如何解决当 ggplot2 中有图例和标题时,对齐并排图的 y 轴比例
我想创建一个包含两个面板的图。一个面板是一个栅格图,显示了变量 z 在 x-y 空间中的分布。第二个面板是一个简单的线图,显示另一个变量如何依赖于 y。栅格图和线图的 y 值相同。这是一个使用 grid.arrange 来定位显示总体思路的图的示例代码:
require(ggplot2)
require(gridExtra)
title <- "Example"
df2 <- data.frame(eruptions = faithfuld$eruptions,foo=faithfuld$eruptions*2)
pb <- ggplot(data=faithfuld,aes(x=waiting,y=eruptions,fill=density))
p1 <- pb + geom_raster() +
theme(legend.position = "top") +
guides(fill=guide_colorbar(title.position="top")) +
ggtitle(title)
p2 <- ggplot(data=df2,aes(x=foo,y=eruptions)) + geom_line()
pout <- grid.arrange(p1,p2,ncol=2)
print(pout)
问题是我希望右侧面板上的 y 轴与左侧面板的 y 轴匹配。也就是说,应该减小右侧面板的尺寸,以便两个面板的 y 轴对齐。我在档案中搜索了解决方案,但没有找到与此问题类似的任何问题。
解决方法
teunbrand 发表了一条评论,对我的问题提供了一个非常简单的解决方案。使用 patchwork 包,我更改了代码,如下所示。这正是我想做的。非常感谢 teunbrand。
require(ggplot2)
require(gridExtra)
require(patchwork)
title <- "Example"
df2 <- data.frame(eruptions = faithfuld$eruptions,foo=faithfuld$eruptions*2)
pb <- ggplot(data=faithfuld,aes(x=waiting,y=eruptions,fill=density))
p1 <- pb + geom_raster() +
theme(legend.position = "top") +
guides(fill=guide_colorbar(title.position="top")) +
ggtitle(title)
p2 <- ggplot(data=df2,aes(x=foo,y=eruptions)) + geom_line()
pout <- p1 | p2
print(pout)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。