gpt4 book ai didi

r - 将 grid.arrange 分配给对象

转载 作者:行者123 更新时间:2023-12-04 18:43:20 24 4
gpt4 key购买 nike

我想用 grid.arrange 安排情节制作更复杂的coplots,然后使用grid.arrange结合这些复杂的coplots。我在此任务中使用以下解决方案 ( https://stackoverflow.com/a/13295880/1000343 ) 来排列多个图并确保它们具有相等的宽度。这是代码的演示:

library(ggplot2); library(gridExtra)
gA <- ggplotGrob(A)
gB <- ggplotGrob(B)
maxWidth = grid::unit.pmax(gA$widths[2:5], gB$widths[2:5])
gA$widths[2:5] <- as.list(maxWidth)
gB$widths[2:5] <- as.list(maxWidth)

x <- grid.arrange(gA, gB, ncol=1)
y <- grid.arrange(gA, gB, ncol=1)
grid.arrange(x, y, ncol=2)

在我的情况下要清楚 xy是具有不同值的略有不同的图。我知道 grid.arrange没有将绘图作为其他基于网格的函数返回。

最佳答案

如果您查看 grid.arrange 的源代码,它只是 arrangeGrob 的包装器

function (..., as.table = FALSE, clip = TRUE, main = NULL, sub = NULL, 
left = NULL, legend = NULL, newpage = TRUE)
{
if (newpage)
grid.newpage()
grid.draw(arrangeGrob(..., as.table = as.table, clip = clip,
main = main, sub = sub, left = left, legend = legend))
}

所以
require(ggplot2);require(gridExtra)
A <- ggplot(CO2, aes(x=Plant)) + geom_bar() +coord_flip()
B <- ggplot(CO2, aes(x=Type)) + geom_bar() +coord_flip()
gA <- ggplotGrob(A)
gB <- ggplotGrob(B)
maxWidth = grid::unit.pmax(gA$widths[2:5], gB$widths[2:5])
gA$widths[2:5] <- as.list(maxWidth)
gB$widths[2:5] <- as.list(maxWidth)
x <- arrangeGrob(gA, gB, ncol=1)
y <- arrangeGrob(gA, gB, ncol=1)
grid.arrange(x, y, ncol=2)

将工作

enter image description here

关于r - 将 grid.arrange 分配给对象,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/19827583/

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