记录:R语言生成热图(非相关性)

今天解决了一个困扰了我很久的问题,就是如何绘制不添加相关性的热图。一般绘制热图是使用corrplot包画相关性图,但是这样有一个前提,就是输入的数据集必须进行相关性分析。那么如果我不需要进行相关性分析,而是直接绘制能够反应数值大小的热图呢?

这里给出一个相关性热图的绘制方法:corrplot相关性图,我之前是参考这个来画的,所以就一直出错,但是如果你要绘制相关性热图的话,可以参考他的方法。

在这里,我使用了气泡图进行绘制,我的数据集如下:

但是使用这样的数据集是无法绘制气泡图的,因为气泡图要求数据有三列,因此需要将原始数据转换为长格式的数据 (可以使用melt函数,但是我不太会使用这个函数,如果您会,可以告诉我如何操作),所以我就直接手动将数据调整为长格式:

接下来就是绘制气泡图:

r 复制代码
library(ggplot2)
A <- read_excel("jiaohu_result.xlsx", sheet = 7)
data <- as.data.frame(A)

## 调整因子水平
data$X <- factor(data$X, levels = c("X1", "X2", "X3", "X4", "X5", "X6",
                                    "X7","X8"))
data$Y <- factor(data$Y, levels = c("X1", "X2", "X3", "X4", "X5", "X6",
                                    "X7","X8"))
data

# 创建气泡图
ggplot(data, aes(x = X, y = Y, size = values, color= X, fill=X))+
  geom_point(color="black", shape=21,alpha=0.9, stroke = 0.7)+
  scale_size_continuous(range = c(1, 16)) +
  theme_minimal() +
  labs(x = "Variable", y = "Variable", size = "q") +
  theme_bw()+
  theme(text=element_text(size=20,  family="serif"),
        axis.text.x = element_text(family = "serif", size = 14, face = "bold"),
        axis.text.y = element_text(family = "serif", size = 14, face = "bold"),
        panel.grid = element_blank()
  )

结果展示:

这里放一张别人论文里面的气泡图:

相关推荐
DebugKitty32 分钟前
C语言14-指针4-二维数组传参、指针数组传参、viod*指针
c语言·开发语言·算法·指针传参·void指针·数组指针传参
Bio Coder1 小时前
R语言中 read.table 和 read.delim 之间的区别
开发语言·r语言
charlie1145141911 小时前
设计自己的小传输协议 导论与概念
c++·笔记·qt·网络协议·设计·通信协议
LZQqqqqo2 小时前
C#_ArrayList动态数组
开发语言·windows·c#
xiaoli23273 小时前
课题学习笔记3——SBERT
笔记·学习·nlp·bert
睿思达DBA_WGX3 小时前
Python 程序设计讲义(27):字符串的用法——字符串的常用操作
开发语言·python
云天徽上3 小时前
【数据可视化-74】电信用户流失数据可视化分析:Python + Pyecharts 炫酷大屏(含完整的数据,代码)
开发语言·python·信息可视化·数据挖掘·数据分析·数据可视化·pyecharts
鲁Q同志3 小时前
java导入pdf(携带动态表格,图片,纯java不需要模板)
java·开发语言·pdf
_frank2223 小时前
kotlin使用mybatis plus lambdaQuery报错
开发语言·kotlin·mybatis
ZhuYuxi3333 小时前
【Kotlin】const 修饰的编译期常量
android·开发语言·kotlin