R语言绘图|patchwork拼图-全球观点
一、安装patchwork包
install.packages("patchwork")
library(patchwork)
二、简单运算符拼图
p1<-ggplot(data = diamonds) + geom_bar(mapping = aes(x = cut,fill=clarity))p2<-ggplot(data = diamonds) + geom_bar(mapping = aes(x = cut, fill = clarity), position = "dodge")p3<-ggplot(data = diamonds) + geom_bar(mapping = aes(x = cut))p4<-ggplot(data = iris,mapping = aes(x = Species, y = Sepal.Width, fill = Species)) +geom_boxplot()+ geom_jitter()p5<-ggplot(data = mpg, mapping = aes(x = class, y = hwy)) + geom_boxplot() + coord_flip()
(先任意绘制五张图分别命名为p1,p2,p3,p4,p5)
(资料图片仅供参考)
1)按➕排列图片
p1+p2+p3+p4
2)“|”对画布进行分割
p1|p2+p3 #p1占50%,p2和p3一共占50%
3) "/" 按行拼图
p1/p2/p3
(p1+p2)/p3 #可以把多个图合并成一行
4)plot_layout()调整行数和列数
p1+p2-p3+plot_layout(ncol = 1) #p1和p2都在第一行,p3在第二行,一共一列,p1和p2看成一列
p1+p3-p2+plot_layout(ncol = 2) #效果和(p1+p3)|p2一样
5)plot_layout() 调节行列的宽度和高度
p1+p2+p3+p4+p5+plot_layout(ncol = 2,heights = c(1,2,3)) #ncol设置两列,而且height是每行高度分别是1/2/3
p1+p2+(p3+p4+plot_layout(ncol = 2))+p5+plot_layout(widths = c(2,1))#p3和p4组合,并设置以两列方式组合,总体布局的宽度分别是2,1
6) theme函数修改主题
a) *theme_参数()设置局部主题
(p1*theme_bw())+(p2+p3)+p4+plot_layout(ncol = 1)#对p1使用theme_bw() 主题,p3和p2合并成一张图,并且拼成一列
b)()& theme_参数 设置所有图片的主题
(p1+(p2+p3)+p4+plot_layout(ncol = 1))&theme_bw()
总结:
theme_ 的参数有很多,可以设置不同主题,根据需要选择
三、进阶拼图
(1)坐标法
areas<-c(area(1,1,2,1),area(2,3,3,3))plot(areas)
说明:有两个area函数说明绘制了两个区域,第一区域的开始位置坐标是(1,1),结束位置是(2,1)
第二个区域开始坐标是(2,3),结束位置是(3,3)
再看一个例子
layout<-c(area(1,1,1,1),area(1,3,3,3),area(3,1,3,2))plot(layout)
说明:有三个area函数说明绘制了三个区域,第一区域的开始位置坐标是(1,1),结束位置是(1,1)
第二个区域开始坐标是(1,3),结束位置是(3,3)
第三个区域开始坐标是(3,1),结束位置是(3,2)
(2)字母法(字母代表绘图区,#代表空白)
areas<-"A#B ##B CCB"p1+p2+p3+plot_layout(design = areas)
四、调整图例
p1+p2+p4+guide_area()+plot_layout(guides = "auto")#一共是四个区域p1,p2,p3和图例区
p1+p2+p4+guide_area()+plot_layout(guides = "collect")
⚠️⚠️ guides的参数 "auto" , "collect" , "keep"
五、插入元素
p1+inset_element(p2,0.6,0.6,1,1)#图中的坐标同样表示插入图片的位置,(0.6,0.6)是图片的左下角点,(1,1)是图片右上角的点
p1+inset_element(p2,0,0.6,0.4,1)
六、插入空白 plot_spacer()
p1+plot_spacer()+p2#在p1和p2之间插入一个空白
七、插入图片标签
(p1|p2)/(p3|p4)+plot_annotation(tag_levels = "A")&theme(plot.tag=element_text(color="blue",size=16))
tag_levels的参数:“A”大写字母 ;“a”小写字母 ;“i”小写罗马字母 ;“I”大写字母罗马字母 ;“1”数字排序
theme设置标签参数,包括颜色和大小
‼️自定义标签名称
(p1|p2)/(p3|p4)+plot_layout(tag_level = "new")+plot_annotation(tag_levels = list(c("A1","A2","A3","A4")))&theme(plot.tag = element_text(color = "grey",size = 16))
plot_layout(tag_level ="new") 设定自定义标签
tag_levels =list(c("A1","A2","A3","A4"))设置标签名称
⚠️文章参考于b站视频——R语言搬运工
-
艺术家边剃头,边作画,用10万根白发创造“新东方明珠”这是一幅发人深思的画作。近日,上海艺术家杨烨炘走出封闭2个月的家门,以行为绘画的方式创作了《新东方明珠图》献给上海。杨烨炘以疫情期
-
花8000多元买的商品,白等两个月却没收到货?亚马逊回应“花8000多元买的商品,白等了两个月却没收到货。”近日,消费者赵先生向《中国消费者报》投诉,称他通过亚马逊购物APP下了两笔订单,在等待两个月后订单均被强制取消。
-
广东省消委会发布二手车买卖合同示范文本为配合广东省推进“阳光二手车”工作,促进二手车流通行业健康发展,推动经营主体树立诚信经营理念,规范二手车交易行为,切实保护消费者的合法权益。
-
国家卫健委:家庭医生签约服务“最后一公里”有望打通3月15日,国家卫生健康委、财政部等六部门共同提出的《关于推进家庭医生签约服务高质量发展的指导意见》(以下简称《意见》)发布。
-
2022年1~2月房企拿地榜出炉:冠军碧桂园近日,中指研究院公布了2022年1~2月房企拿地(金额)TOP100榜单。令业内惊讶的是,除了品牌房企名次“乾坤大挪移”,榜单内还冒出了许多“名不见经传”的新面孔。
X 关闭
资讯
X 关闭
聚焦