R语言绘图|patchwork拼图:今头条
说明:有两个area函数说明绘制了两个区域,第一区域的开始位置坐标是(1,1),结束位置是(2,1)
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)
(相关资料图)
p1+p2+p3+p4
p1|p2+p3 #p1占50%,p2和p3一共占50%
p1/p2/p3
(p1+p2)/p3 #可以把多个图合并成一行
p1+p2-p3+plot_layout(ncol = 1) #p1和p2都在第一行,p3在第二行,一共一列,p1和p2看成一列
p1+p3-p2+plot_layout(ncol = 2) #效果和(p1+p3)|p2一样
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
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_ 的参数有很多,可以设置不同主题,根据需要选择
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)
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)
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"))设置标签名称
关键词:
[ 相关文章 ]
说明:有两个area函数说明绘制了两个区域,第一区域的开始位置坐标是(1,1),结束位置是(2,1)
威利-格林:我们的容错空间很小这场并不是我们应有的样子,韧性,威利-格林,克利夫兰骑士,新奥尔良鹈鹕
2019年6月15日,对于传承了157年的国家非遗老字号品牌龙顺成家具来说,是一个划时代的开始,在这一天,“中式设计师之家”在永定门龙顺成京作
说个“恐怖故事”,你的元旦节假期已余额不足……明天就要上班了,还好吗铁铁们?最近“巧克力色系”大风刮得猛烈,看得久了,kiyo就越能get到
终于,房企放下这个执念,万科,龙湖,囤地,土储,代建,房地产
1、“禾”的“左上角”加一竖,变成“乐”;“禾”的上面加一竖,变成“未”;“禾”的上面加一捺,变成“
随着淘宝平台的不断壮大,越来越多的人开始在淘宝开店了,我们在淘宝开店了以后需要确定好自己卖什么产品,如果在淘宝开店卖内衣的话,到底需
信用卡逾期是需要支付逾期利息的,利息是按照万分之五去计算,大概是需要1650元。逾期之后,持卡人需要支付高昂的逾期罚息,违约金,还会导致
1、史泰龙英文名:SYLVESTERSTALLONE原名:西尔维斯特·恩奇奥·史泰龙职业:演员、作家、导演、制片人出生日期:1946年7月6日星座
霍格沃茨遗产眼球宝箱怎么开启游戏中有眼球宝箱,在玩家靠近时它的视野会跟随着玩家,很多玩家不知道如何开启宝箱下面为大家介绍
拓尔思:关于提前赎回拓尔转债的第八次提示性公告
你的文章为什么阅读量很低?你辛辛苦苦写完一篇文章,为什么没有人看?或许问题出在选题方面。如果你不了解选题的话,你就无法去完成一篇优质
天眼查App显示,近日,三体宇宙(上海)文化发展有限公司与深圳英迈思信息技术有限公司计算机软件开发合同纠纷一审裁定书公布。文书显示,原告
1、地肤子性寒,味苦,归肾、膀胱经。2、具有利尿通淋、清热燥湿、祛风止痒的功效。3、可用于治疗排尿困难、小便不利、涩痛等
鹰爪门鹰门九子名字,鹰爪门鹰门九子名字分别是霍元甲、亚历克斯、大刀王五、孙无疾、阿部、鹰四、沙狼、雷霆云、贝特朗、沙燕。鹰爪门鹰门九
代码托管平台极狐GitLab宣布裁员130人,占公司总人数的7%,裁员,翻译,遣散费,托管平台,极狐gitlab
联系人白警官:15704773555孙警官:13474786788伊金霍洛旗公安局2023年2月9日悬赏通告为深刻诠释“人民至上、生命至上”的崇高理念,深入推进
锁住了lock怎么过关,进入第七关时房间里的单词是lock(锁),把单词修改成oe(打开)就行了,具体的操作步骤如下:
1、律诗古人写律诗,是严格地依照韵书来押韵的。2、韵书的历史,这里用不着详细叙述。3、清代一般人常常查阅的《诗韵集成》
没想到,与翁子光的再次见面,竟然是在七年之后。大多数以纯港片成名的导演,多数会选择在本地制作中继续沉淀,而《踏血寻梅》给香港影坛带来
[ 相关新闻 ]
Copyright 2015-2022 医院头条网 版权所有 备案号:沪ICP备2022005074号-20 联系邮箱:58 55 97 3@qq.com