gpt4 book ai didi

r - 使用 Cowplot align 保持绘图间距不变

转载 作者:行者123 更新时间:2023-12-01 04:46:22 25 4
gpt4 key购买 nike

我正在尝试使用 Cowplot 制作一些“紧密堆叠”的图。我可以使用以下 MWE 获得我想要的效果:

library(ggplot2)
library(cowplot)

disp_plot <- ggplot(data=mtcars,aes(x= hp,y=disp)) + geom_point()+
theme(plot.margin = unit(c(0.3,0.3,0.0,0.15), "cm"),
axis.text.x =element_blank(),axis.title.x =element_blank())
mpg_plot <- ggplot(data=mtcars,aes(x= hp,y=mpg)) + geom_point()+
theme(plot.margin = unit(c(0.0,0.3,0.0,0.15), "cm"),
axis.text.x =element_blank(),axis.title.x =element_blank())
qsec_plot <- ggplot(data=mtcars,aes(x= hp,y=qsec)) + geom_point()+
theme(plot.margin = unit(c(0.0,0.3,0.3,0.15), "cm"))
mp <- plot_grid(disp_plot, mpg_plot, qsec_plot,ncol = 1,align='v', axis = 'l')

correct spacing

请注意,mpg 与其他垂直刻度不同。为了使绘图的垂直尺寸也相同,我想在 plot_grid 中使用“align='hv'”。但是,这会导致边距设置的间距恢复,并且图形再次飞散。有没有办法可以保留我的间距?
incorrect spacing

最佳答案

不是 cowplot ,但这似乎有效。

library(egg)
library(grid)
grid.draw(ggarrange(plots=list(disp_plot, mpg_plot, qsec_plot)))

enter image description here

关于r - 使用 Cowplot align 保持绘图间距不变,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/46369444/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com