如何用ggplot2实现一幅叫不上来名字的图,相信很多没有经验的人对此束手无策,为此本文总结了问题出现的原因和解决方法,通过这篇文章希望你能解决这个问题。
成都创新互联公司专注为客户提供全方位的互联网综合服务,包含不限于成都网站建设、做网站、通化县网络推广、微信平台小程序开发、通化县网络营销、通化县企业策划、通化县品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;成都创新互联公司为所有大学生创业者提供通化县建站搭建服务,24小时服务热线:13518219792,官方网址:www.cdcxhl.com
在论文里看到了一张图如下:
最近可能会用到,就琢磨了一下如何实现。不知道这种图叫什么名字,没办法搜索。但是感觉R语言里应该有现成的包来做这幅图。这幅图和ggplot2做的热图有点像。试着用ggplot2来实现这张图。通常用ggplot2做热图会用geom_tile()函数
参考 https://www.r-bloggers.com/how-to-make-a-simple-heatmap-in-ggplot2/构造数据集
df<-expand.grid(teams=paste0("Team",LETTERS[1:4]),
metrics=paste0("Metric",1:4))
df$performance<-rnorm(nrow(df))
head(df)
library(ggplot2)
ggplot(data=df,aes(x=teams,y=metrics))+
geom_tile(aes(fill=performance))+
theme_bw()+
scale_fill_continuous(low="red",high="blue")
这里遇到的问题是:如何实现Metric4,3,2,1添加不同的颜色,比如Metric4是红蓝渐变色,Metric3我想填充黄绿渐变色。
想到一个解决办法是将Metric4,3,2,1 分成四份数据集,分别使用geom_tile()函数作图,然后在将图拼接起来。
df1<-data.frame(A=paste("var",1:100),
B=rep("TeamA",100),
D=sample(c("Yes","No"),100,replace = T))
head(df1)
p1<-ggplot(df1,aes(x=A,y=B))+
geom_tile(aes(fill=D))+
scale_y_discrete(expand = c(0,0))+
labs(x="",y="")+theme_bw()+
scale_fill_manual(values = c("purple","grey"))
p1
接下来调整图片的一些细节:去掉x轴的文字标签;去掉x轴和y轴的小短线;去掉边框
p1<-ggplot(df1,aes(x=A,y=B))+
geom_tile(aes(fill=D))+
scale_y_discrete(expand = c(0,0))+
labs(x="",y="")+theme_bw()+
scale_fill_manual(values = c("purple","grey"))+
theme(axis.text.x = element_blank(),
axis.ticks = element_blank(),
panel.border = element_blank())
p1
接下来同样的思路再做2幅,然后使用cowplot包的plot_grid()函数将图片拼起来
df2<-data.frame(A=paste("var",1:100),
B=rep("TeamA",100),
D=sample(c("Yes","No"),100,replace = T))
p2<-ggplot(df2,aes(x=A,y=B))+
geom_tile(aes(fill=D))+
scale_y_discrete(expand = c(0,0))+
labs(x="",y="")+theme_bw()+
scale_fill_manual(values = c("red","grey"))+
theme(axis.text.x = element_blank(),
axis.ticks = element_blank(),
panel.border = element_blank())
df3<-data.frame(A=paste("var",1:100),
B=rep("TeamA",100),
D=sample(c("Yes","No"),100,replace = T))
p3<-ggplot(df3,aes(x=A,y=B))+
geom_tile(aes(fill=D))+
scale_y_discrete(expand = c(0,0))+
labs(x="",y="")+theme_bw()+
scale_fill_manual(values = c("green","grey"))+
theme(axis.text.x = element_blank(),
axis.ticks = element_blank(),
panel.border = element_blank())
找到了 https://github.com/wilkelab/cowplot/issues/31可以使用 plot.margin = unit(c(0,0,0,0),'cm')
加到主题theme()
设置里
p1.1<-p1+theme(plot.margin = unit(c(0,0,0,0),'cm'))
p2.1<-p2+theme(plot.margin = unit(c(0,0,0,0),'cm'))
p3.1<-p3+theme(plot.margin = unit(c(0,0,0,0),'cm'))
plot_grid(p1.1,p2.1,p3.1,ncol = 1)
变化不是太大。看看 https://github.com/wilkelab/cowplot/issues/31这篇文章发现theme(plot.margin = unit(c(0,0,0,0),'cm'))
里面的数值可以设置为负数
p1.2<-p1+theme(plot.margin = unit(c(-0.5,-0.5,-0.5,-0.5),'cm'))
p2.2<-p2+theme(plot.margin = unit(c(-0.5,-0.5,-0.5,-0.5),'cm'))
p3.2<-p3+theme(plot.margin = unit(c(-0.5,-0.5,-0.5,-0.5),'cm'))
plot_grid(p1.2,p2.2,p3.2,ncol = 1)
这样三幅图就挨到一起去了。每个单独的小图有些高,可以输出图片时压缩整体的高
p1.2<-p1+theme(plot.margin = unit(c(0,-0.3,-0.3,-0.3),'cm'))
p2.2<-p2+theme(plot.margin = unit(c(-0.3,-0.3,-0.3,-0.3),'cm'))
p3.2<-p3+theme(plot.margin = unit(c(-0.3,-0.3,-0.3,-0.3),'cm'))
png("Rplot18.png",height = 120)
plot_grid(p1.2,p2.2,p3.2,ncol = 1)
dev.off()
图例有些被盖住和,可以改变图例的大小
p1.3<-p1+theme(plot.margin = unit(c(0,-0.3,-0.3,-0.3),'cm'),
legend.key.size = unit(0.2,'cm'),
legend.title=element_text(size=3),
legend.text=element_text(size=2))
p2.3<-p2+theme(plot.margin = unit(c(-0.3,-0.3,-0.3,-0.3),'cm'),
legend.key.size = unit(0.2,'cm'),
legend.title=element_text(size=3),
legend.text=element_text(size=2))
p3.3<-p3+theme(plot.margin = unit(c(-0.3,-0.3,-0.3,-0.3),'cm'),
legend.key.size = unit(0.2,'cm'),
legend.title=element_text(size=3),
legend.text=element_text(size=2))
png("Rplot19.png",height = 120)
plot_grid(p1.3,p2.3,p3.3,ncol = 1)
dev.off()
#修改图例大小还可以用
legend.key.height = unit(0.2,'cm'),
legend.key.width = unit(0.2,'cm')
#还有一个小知识点是:plot.margin = unit(c(-0.3,-0.3,-0.3,-0.3)四个数字控制的位置分别是上右下左
看完上述内容,你们掌握如何用ggplot2实现一幅叫不上来名字的图的方法了吗?如果还想学到更多技能或想了解更多相关内容,欢迎关注创新互联行业资讯频道,感谢各位的阅读!
本文名称:如何用ggplot2实现一幅叫不上来名字的图
当前路径:http://lswzjz.com/article/pssjsp.html