R语言怎么画气泡图

这篇文章主要讲解了“用R语言怎么画气泡图”，文中的讲解内容简单清晰，易于学习与理解，下面请大家跟着小编的思路慢慢深入，一起来研究和学习“用R语言怎么画气泡图”吧！

成都创新互联服务项目包括漳州网站建设、漳州网站制作、漳州网页制作以及漳州网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，漳州网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到漳州省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

第一步是准备数据

部分数据集如下

总共4列

前两列是变量
第三列是相关系数
第四列是显著性P值

前面的变量需要注意的是，因为只画上三角，所以准备数据的时候是：

总共的变量是10个第一列10个x1，接下来是紧接着9个x2,然后是8个x3

第一步树读入数据

df<-read.csv("20210320.csv",header=T)
head(df)

增加一列显著性的星号

library(dplyr)
df%>%
  mutate(label=case_when(
    signi<0.001 ~ "***",
    signi>0.001&signi<0.01 ~ "**",
    signi>0.01&signi<0.05 ~ "*",
    TRUE ~ ""
    )
  ) -> df1

接下来是作图

首先是上三角的气泡图

library(ggplot2)
ggplot(data=df1,aes(x=var_x,y=var_y))+
  geom_point(aes(size=value,color=value))+
  scale_color_gradient(low = "#80fcfe",high = "#ff80fc",
                       breaks=seq(-1,1,0.2))+
  scale_size_continuous(range = c(5,15))+
  guides(size=F)

这样的话X10的位置是不对的，所以要设置一下因子的水平

df1$var_x<-factor(df1$var_x,
                 levels = paste0("X",1:10))
df1$var_y<-factor(df1$var_y,
                 levels = paste0("X",1:10))
ggplot(data=df1,aes(x=var_x,y=var_y))+
  geom_point(aes(size=value,color=value))+
  scale_color_gradient(low = "#80fcfe",high = "#ff80fc",
                       breaks=seq(-1,1,0.2))+
  scale_size_continuous(range = c(5,15))+
  guides(size=F)

这样就对了 R语言怎么画气泡图

接下来是添加文字，首先把对角线那一列去掉

df1%>%
  filter(var_x!=var_y) -> df2
head(df2)
ggplot(data=df1,aes(x=var_x,y=var_y))+
  geom_point(aes(size=value,color=value))+
  scale_color_gradient(low = "#80fcfe",high = "#ff80fc",
                       breaks=seq(-1,1,0.2))+
  scale_size_continuous(range = c(5,15))+
  guides(size=F)+
  theme_bw()+
  geom_text(data=df2,aes(x=var_y,y=var_x,
                        label=paste0(value,label)))

最后调整一下图例的高度

df1%>%
  filter(var_x!=var_y) -> df2
head(df2)
ggplot(data=df1,aes(x=var_x,y=var_y))+
  geom_point(aes(size=value,color=value))+
  scale_color_gradient(low = "#80fcfe",high = "#ff80fc",
                       breaks=seq(-1,1,0.2))+
  scale_size_continuous(range = c(5,15))+
  guides(size=F)+
  theme_bw()+
  geom_text(data=df2,aes(x=var_y,y=var_x,
                        label=paste0(value,label)))+
  theme(legend.key.height = unit(3.5,'cm'),
        legend.justification = c(0,0),
        legend.title = element_blank())

感谢各位的阅读，以上就是“用R语言怎么画气泡图”的内容了，经过本文的学习后，相信大家对用R语言怎么画气泡图这一问题有了更深刻的体会，具体使用情况还需要大家实践验证。这里是创新互联，小编将为大家推送更多相关知识点的文章，欢迎关注！

网站标题：R语言怎么画气泡图
URL地址：http://myzitong.com/article/gdddgj.html

R语言怎么画气泡图

其他资讯