也许问题已被提出并解决,但该解决方案对我不起作用。
我编写了一个能够创建 ggplot 对象并以向量返回它们的函数。以下是函数内部的代码,vars
是我的数据d
的列名向量。
plotting <- function(d){
P <- numeric(0)
vars <- names(d)[!names(d)%in%c('channel','label')]
for (var in vars){
p <- ggplot(d, aes(x=channel,y=var)) +
geom_boxplot(aes(fill=label)) + ggtitle(var)
P <- c(P,p)
}
return(list(plots=P, num=length(vars)))
}
我想要做的是使用上面的函数返回一个由多个 ggplots 对象组成的串联列表 P
,如下所示,这是工作正常的“手动”版本:
p1 <- ggplot()+ ...
p2 <- ggplot()+ ...
p3 <- ggplot()+ ...
pdf('...')
grid.arrange(p1, p2, p3, nrow = 3)
dev.off()
返回num
的目的是为了后面在布局arg中使用。 grid.arrange 函数的。我有 PLOTS
作为返回变量:
PLOTS <- plotting(d)
pdf('...')
grid.arrange(PLOTS$plots, PLOTS$num)
dev.off()
我得到了错误:
Error in arrangeGrob(..., as.table = as.table, clip = clip, main = main, :
input must be grobs!
所以我尝试了 Passing a vector to grid.arrange as a list of arguments. 中的解决方案
do.call(grid.arrange, c(PLOTS$plots, nrow = PLOTS$num))
但仍然遇到同样的错误。 任何评论将不胜感激。
编辑:使问题描述更清晰,并将可重现的数据d
粘贴到下面:
structure(list(percent = c(0.0962463533974437, 0.129409967469436,
0.0150265653130588, 0.00299276735619027, 0.0108596845008112,
0.00407417010800106), songs = c(0.231617443342384, 0.430320945945946,
0.109264389042782, 0.282109656611649, 0.0288753799392097, 0.041635687732342
), label = c("1", "1", "1", "1", "1", "1"), channel = c("2",
"2", "2", "2", "2", "2")), .Names = c("percent", "songs", "label",
"channel"), row.names = c(NA, 6L), class = "data.frame")
请输入d
作为plotting
的参数,然后继续PLOTS$plots
来帮助我调试,谢谢!
最佳答案
您的绘图功能有一些问题。首先,您需要将 P
初始化为 list
。其次,如果您想使用character
输入var
,则需要使用aes_string
而不是aes
。然后你必须使用list(p)
来保持ggplot
对象完整。
plotting <- function(d){
P <- list()
vars <- names(d)[!names(d)%in%c('channel','label')]
for (var in vars){
p <- ggplot(d, aes_string(x='channel', y=var)) +
geom_boxplot(aes(fill=label)) + ggtitle(var)
P <- c(P, list(p))
}
return(list(plots=P, num=length(vars)))
}
PLOTS <- plotting(d)
do.call(grid.arrange, c(PLOTS$plots, nrow = PLOTS$num))
关于r - 如何将 ggplot 对象向量传递给 grid.arrange 函数?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/27858123/