关于r:ggplot2,排列多张图,大小都一样,中间没有空隙 | 珊瑚贝

ggplot2, arrange multiple plots, all the same size, no gaps in between


我想将多个plot排列成一个图形,plot区域之间没有任何间隙,并且所有plot的大小完全相同(参见下图,了解我想要的图形的草图,其中包含 6 个单独的plot)。

desired

我已经尝试过 ggarrange (ggpubr) 和 plot_grid (cowplot) 以及其他几个,但它们似乎有同样的问题 – 您可以对齐图以使它们具有相同的大小,但不要将它们安排得更接近彼此。

cowplot 包中的

ggdraw 允许人们准确指定绘图的位置,但它们的大小都略有不同。

有没有办法克服这个问题?

基本上,我想让六个图表的绘图区域(显示数据的地方,而不是轴和标签)相同,然后将它们连续排列。到目前为止,我还没有找到这样做的方法。

所有 6 个图的 x 轴变量都相同,但 y 不同,并且在某些图上有多个系列,但在其他图上没有,所以我不能在 ggplot2 中使用 facet 选项。

请帮忙!

编辑:抱歉,还有更多信息 – 因为我的绘图有不同的 y 变量,绘图边距和绘图面板的大小都略有不同。所以这意味着当我尝试将它们全部加在一起时,它们会不对齐。
绘制不对齐的不同尺寸。来自 cowplot 的 plot_grid 允许您指定位置和大小,但是,大小是整个绘图、面板和边距的大小。由于 Y 轴标签,边距大小不同,使用 plot_grid 的参数调整它们的大小并不是那么简单。

  • 你见过这些问题吗?不确定它们是否重复,但它们可能会有所帮助:减少 grid.arrange 图之间的空间,以及与 ggplot2 并排的图
  • cowplot::draw_plot 让您指定位置、高度和宽度。
  • 我使用 library(gridExtra) 来组合绘图 – 效果很好。指定 layout <- rbind(c(1, 1, 1), c(2, 2, 2)) 并使用 grid.arrange(p1, p2, layout_matrix = layout) AND 为 p1 和 p2 (两个 ggplots)添加主题( plot.margin=unit(c(0,0,0,0),”cm”)) 控制两个图之间的空间
  • 与 ggplot2 的并排图可能重复
  • 谢谢你的回复。没有一个选项完全符合我的要求:stackoverflow.com/questions/1249548/… 仍然在绘图之间留下一些空白,我需要完全消除这些空白。这个stackoverflow.com/questions/13299496/…我什至不明白如何使用,对R来说相对较新。
  • @Annaz 似乎只有在绘图面板的尺寸已经相同时才有效,否则会导致大量轴调整的艰苦过程,试图使面板尺寸相同。


所以我设法根据这里的一些代码找到了答案:https://community.rstudio.com/t/how-do-i-control-the-size-of-the-panel-in- a-ggplot-so-they-are-consistent/14377/8

绘图首先需要通过 align_plots() 函数在
cowplot() ,制作plot列表:

1
`multiplot <- align_plots(plotAA,plotBB,plotCC,plotDD,plotEE,plotFF, align =”hv”)`

然后图表的面板将全部相同大小,并且可以使用
ggdraw() 和 draw_plot() 如下:

1
2
3
4
5
6
`ggdraw() + draw_grob(multiplot[[1]], 0,0.565,.6,.4) +
  draw_grob(multiplot[[2]], 0.396,0.565,0.6,0.4) +
  draw_grob(multiplot[[3]], 0, 0.285, 0.6,0.4) +
  draw_grob(multiplot[[4]], 0.396, 0.285, 0.6, 0.4) +
  draw_grob(multiplot[[5]], 0,0.004, 0.6, 0.4) +
  draw_grob(multiplot[[6]], 0.396,0.004,0.6,0.4)`

给出最终数字:
所需的情节安排

我希望这对将来的其他人有所帮助,
谢谢。

  • 编辑:那应该是代替 ‘draw_grob()’ 的 ‘draw_plot()’ 函数(尽管两者都有效)。
  • 第二次编辑:我要做的第一件事是使用 theme(panel.background = element_rect(colour=NA, fill =”transparent”), plot.background = element_rect(colour=NA, fill =”transparent”)) 使面板和绘图背景透明。然后更容易正确定位图形。


来源:https://www.codenong.com/55151531/

微信公众号
手机浏览(小程序)

Warning: get_headers(): SSL operation failed with code 1. OpenSSL Error messages: error:14090086:SSL routines:ssl3_get_server_certificate:certificate verify failed in /mydata/web/wwwshanhubei/web/wp-content/themes/shanhuke/single.php on line 57

Warning: get_headers(): Failed to enable crypto in /mydata/web/wwwshanhubei/web/wp-content/themes/shanhuke/single.php on line 57

Warning: get_headers(https://static.shanhubei.com/qrcode/qrcode_viewid_9973.jpg): failed to open stream: operation failed in /mydata/web/wwwshanhubei/web/wp-content/themes/shanhuke/single.php on line 57
0
分享到:
没有账号? 忘记密码?