您的位置: 首页> 企业 > 正文

R语言绘图|patchwork拼图

2023-02-14 16:07:30 来源:腾讯云

一、安装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和图例区
guides="auto" 会显示相同的图例
p1+p2+p4+guide_area()+plot_layout(guides = "collect")
使用“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语言搬运工

关键词:

资讯
业界
企业
骑闻
产品
港股早盘大跌 午后三大指数逐步回升但仍收跌
港股早盘大跌,午后三大指数逐步回升但仍收跌。恒指跌0 37%,近日在2万点徘徊,国指跌0 47%,恒生科技指数跌0 51%。南下资金净流入14 54亿
2022-08-30
“雪糕刺客高温下不融化”引来网友热议 增稠剂过量的雪糕你还敢吃吗
前有雪糕界内卷冲上热搜,后有钟薛高高温下不融化引发热议。这几天,关于雪糕的话题火了。有网友称,在室温31℃左右放置1小时后,钟薛高海
2022-07-05
唐山曹妃甸推动京津冀协同发展 产业协同转移全面提速
春暖渤海湾,书写新画卷。位于唐山曹妃甸的金隅天坛(唐山)木业科技有限公司的生产车间内一片繁忙景象——铺装、压机、翻板等工作正紧张有序
2022-03-19
石家庄海关共签发RCEP原产地证书864份 货值3.9亿元
自今年1月1日RCEP(《区域全面经济伙伴关系协定》)正式实施以来,截至3月14日,石家庄海关共签发RCEP原产地证书864份,货值3 9亿元。据介绍
2022-03-19
蚌埠海关累计签发RCEP原产地证书35份 涉及金额2583.09万元
在蚌埠海关报关大厅原产地证办理窗口,海关关员仔细核对着递交过来的材料。十分钟后,一份RCEP原产地证书打印盖章后交到了企业业务员手中。
2022-03-19
昆明西山区:“双招双引”推动人才链和产业链融合发展
为激励党员干部在营商环境建设中担当作为,昆明市西山区深入实施人才强区战略和人才领跑工程,建立健全招商引资和招才引资并轨新模式,以产
2022-03-19
  中新网海口1月23日电(符宇群)海南省第六届人民代表大会第五次会议23日在海口举行第二次全体会议。海南省人民检察院检察长张毅在作报告
2022-01-24
  中新网太原1月23日电 (高雨晴 冉涌 张鹏宇)记者23日从国网山西省电力公司获悉,该公司冬奥保电应急发电队伍已到达河北张家口赛区,
2022-01-24
  中新网西宁1月23日电 (记者 李江宁)据青海省地震局23日消息,中国地震台网正式测定,北京时间2022年1月23日10时21分,在青海海西州德
2022-01-24
  中新网贵阳1月23日电 (周燕玲)对外开放,是内陆开放型经济试验区贵州正在召开的两会热点词汇,如何拓展海内外“朋友圈”助力贵州经济
2022-01-24
温馨生活好young 厦门推广文旅产品火爆全网
  中新网厦门1月23日电 (记者 杨伏山)“冬日暖阳厦门好young”福建省内宣传推广线下活动22日精彩收官。主办方称,本次活动火爆全网及福
2022-01-24
宁夏非遗传承人:刻刀里的守正创新更有“年味”
  (新春见闻)宁夏非遗传承人:刻刀里的守正创新更有“年味”  中新网银川1月23日电 题:宁夏非遗传承人:刻刀里的守正创新更有“年味
2022-01-24
R语言绘图|patchwork拼图
说明:有两个area函数说明绘制了两个区域,第一区域的开始位置坐标是(1,1),结束位置是(2,1)
2023-02-14
全球观热点:三亚城管收走孩子写作业桌子?当地官方:存在简单执法 责令上门道歉
央视网消息:2月14日,三亚市综合行政执法局吉阳分局发布《通报》。具体内容如下: 2023年2月13日,网络出现“三亚城管收走孩子写作业桌子”
2023-02-14
去旅游的作文
去旅游的作文4篇在平平淡淡的日常中,大家对作文都不陌生吧,写作文是培养人们的观察力、联想力、想象力、思考力和记忆力的重要
2023-02-14
老人60大寿送什么东西好|播资讯
人家都是个小寿,可以送些比较喜庆的东西,祝老人健康长寿。送这些礼物可以送些比较实惠的的礼物,或是保暖的礼物。像这样的礼物
2023-02-14
胆管堵塞是大手术吗多久能出院_胆管堵塞是大毛病吗 每日快看
1、胆管梗阻是不是大问题,要看胆管梗阻的原因。2、最常见的胆管梗阻是由胆管结石引起的,多为不完全性梗阻。3、患者可能有发
2023-02-14
每日速递:禁止讨论《霍格沃茨之遗》的论坛版主 自己却沉迷其中
国外知名游戏论坛ResetEra此前宣布要禁止《霍格沃茨之遗》,不允许玩家在讨论该游戏的任何内容,原因是《霍格沃茨之遗》涉及到JK 罗琳。虽然JK
2023-02-14
  中新网宿迁1月23日电 (刘林 张华东)核酸检测是当下及时发现潜在感染者、阻断疫情传播的有效方法。23日,记者从宿迁市宿豫区警方获悉
2022-01-24
  记者从天津市人社局获悉,从明天(24日)起,天津2022年度第一期积分落户申报工作正式开始,这是新修订的《天津市居住证管理办法》《天津
2022-01-24
  中新社北京1月23日电 (记者 刘亮)记者23日从中国海关总署获悉,2021年,中国海关组织开展“国门绿盾”专项行动,在寄递、旅客携带物
2022-01-24
  记者从天津市疫情防控指挥部获悉,天津疫情第341—360例阳性感染者基本信息公布。  目前,这20例阳性感染者已转运至市定点医院做进一
2022-01-24
“最美基层民警”武文斌:案子破了最管用
  中新网吕梁1月23日电 题:“最美基层民警”武文斌:案子破了最管用  作者 高瑞峰  同事称他为“拼命三郎”。从警14年,武文斌破
2022-01-24
  据“西安发布”消息,截至2022年1月23日,雁塔区长延堡街道近14天内无新增本地病例和聚集性疫情。根据国务院联防联控机制关于分区分级
2022-01-24
  中新网西宁1月23日电 (记者 孙睿)据青海省地震台网测定,2022年1月23日10点21分(北京时间)在青海省海西州德令哈市(北纬38 44度,东经
2022-01-24
江西南昌:市民赏年画迎新年 书法家挥毫送春联
  (新春见闻)江西南昌:市民赏年画迎新年 书法家挥毫送春联  1月23日,“赏年画过大年”新年画作品联展江西南昌站活动在江西省文化馆
2022-01-24
  中新网成都1月23日电 (祝欢)成都市第十七届人民代表大会第六次会议23日在成都举行,成都市中级人民法院院长郭彦与成都市人民检察院检
2022-01-24
列车临时停车3分钟救旅客
  (新春见闻)列车临时停车3分钟救旅客  中新网广州1月23日电 (郭军 黄伟伟)“车长,车长,4号车厢有位旅客腹涨难忍,身体不舒服”…
2022-01-24
女子背负命案潜逃24年 因涉疫人员核查落网
  中新网湖州1月23日电(施紫楠 徐盛煜 赵学良)1998年7月,犯罪嫌疑人杜某因家庭琐事,用菜刀将自己的弟媳砍伤致死。案发后,她从老家河
2022-01-24
广东“00后”雄狮少年锤炼功夫迎新春
  (新春见闻)广东“00后”雄狮少年锤炼功夫迎新春  中新社广州1月23日电 题:广东“00后”雄狮少年锤炼功夫迎新春  作者 孙秋霞 
2022-01-24
05-20 中国旅游日!河北创新发展“旅游+” 打造“京畿福地 乐享河北”品牌
中国旅游日!河北创新发展“旅游+” 打造“京畿福地 乐享河北”品牌
5月19日是第12个中国旅游日。今年中国旅游日主题为感悟中华文化,享受美好旅程。河北内环京津,外环渤海,携太行燕山之威,挟畿辅拱卫之要 [详细]
05-20 西湖游船“国潮宋风”特色夜游上线 体验穿越宋风豪华画舫之旅
西湖游船“国潮宋风”特色夜游上线 体验穿越宋风豪华画舫之旅
西湖之胜,晴湖不如雨湖,雨湖不如夜西湖。想要一边沐着晚风,一边乘坐游船感受西湖夜色的别样美景吗?那就来体验一把穿越宋风的豪华画舫之 [详细]
05-20 杭州:露营成今年最大热点 “城市露营”模式受年轻人追捧
杭州:露营成今年最大热点 “城市露营”模式受年轻人追捧
一顶帐篷、一副桌椅、一张地垫,寻个湖畔草坪,就能体验时下最热的旅行方式——露营。五一假期,杭州灵山景区铜鉴湖九曲梅韵和海棠融春两块 [详细]
03-19 2022岳阳国际旅游节开幕 特色农产品展销等系列活动目不暇接
2022岳阳国际旅游节开幕 特色农产品展销等系列活动目不暇接
今天,天下洞庭岳阳市君山区第九届良心堡油菜花节暨2022岳阳国际旅游节开幕,菊红、粉红、水红、桃红、紫色、白色等七色组成的4万亩花海在 [详细]
03-19 2022年郴州计划重点推进文旅项目101个 总投资354亿元
2022年郴州计划重点推进文旅项目101个 总投资354亿元
3月16日,我市举行全市文旅项目和城市大提质大融城项目集中开工仪式,市委书记吴巨培宣布项目开工。郴州嘉合欢乐世界、仙福路工地清风徐来 [详细]
03-19 宿州泗县深入推进文旅融合发展 擦亮城市品牌
宿州泗县深入推进文旅融合发展 擦亮城市品牌
近年来,泗县以争创安徽省文化旅游名县为目标,深入推进文旅融合发展,努力擦亮水韵泗州 运河名城城市品牌,全县文化旅游业实现高质量发展 [详细]
03-19 淡季不忘引流 京郊民宿市场有望迎来回暖
淡季不忘引流 京郊民宿市场有望迎来回暖
旅游淡季中的京郊民宿有望成为市场中最先复苏的板块。3月17日,北京商报记者调查发现,虽然正值旅游淡季,且受疫情变化的影响,不过各家民 [详细]