R 中按值传递

Question

当尝试调用 grid.arrange 将多个图放在同一个 ggplot2 图上时，我首先构建一个我想要的图的列表。然后，我构建相应的参数列表来调用 grid.arrange，如所解释的 在上一个问题中。这是我的代码（我的数据框称为 manip）：

args.list <- NULL;
plot.list <- NULL;
for (m in names(manip[2:10])) {
  plot.list <- c(plot.list, list(qplot(manip$side, y=manip[,m],ylab=m))
}
args.list <- c(plot.list, 1, 9)
names(args.list) <- c(names(manip)[2:10], list("nrow","ncol"))
do.call(grid.arrange, args.list)

这有效，只是 9 个图完全相同！经过检查发现，数据始终是m=10对应的数据。所以我的猜测是 m 的值不是在循环中分配的，而是稍后评估的。但是，标签 ylab=m 分配正确，并且对于所有图表而言都不同。

所以我真的不明白有什么区别以及解释器如何选择何时评估图的 m 。有人可以解释一下吗？

Answer 1

该行为是由于 R 的惰性求值所致。

这是一个最小（？）示例：

d <- 1:3

args.list <- NULL;
plot.list <- NULL;
for (m in 1:3) {
 plot.list <- c(plot.list, list(qplot(d[m], d[m], ylab=letters[m])))
}

args.list <- c(plot.list, nrow=1, ncol=3)
do.call(grid.arrange, args.list)

在本例中，d[m] 在调用 do.call。所以所有面板的 m 都是 3。

这里有一个解决方法：

d <- 1:3

args.list <- NULL;
plot.list <- NULL;
for (m in 1:3) {
  plot.list <- c(plot.list,
    list(qplot(d, d, data=data.frame(d=d[m]), ylab=letters[m])))
}

args.list <- c(plot.list, nrow=1, ncol=3)
do.call(grid.arrange, args.list)

在这种情况下，在调用 qplot 时计算 d[m]，并存储 d[m]在 qplot 的输出对象中。

因此，简单的解决方案是将数据传递给 qplot() 或 ggplot()。

Answer 2

我将首先回答您的问题，然后使用分面图展示替代方案。

编辑

以下经过简化的代码似乎可以工作：

library(gridExtra)
manip <- mtcars
plot.list <- lapply(2:11, 
                    function(x)qplot(manip$mpg, y=manip[, x], 
                    ylab=names(manip)[x]))
do.call(grid.arrange, c(plot.list, nrow=10))

它产生了这个丑陋的情节：

---

我知道，在不了解您的目标的情况下尝试提供建议是危险的。尽管如此，您是否考虑过在情节中使用多方面？

下面的代码要简单得多，执行 quiker 并生成一个更容易解释的图表：

library(reshape2)
manip <- mtcars
mmanip <- melt(manip, id.vars="mpg")
str(mmanip)
ggplot(mmanip, aes(x=mpg, y=value)) + 
    geom_point(stat="identity") + 
    facet_grid(.~variable, scales="free")

Answer 3

也许融化数据并使用分面会更好？

library(ggplot2)
manip <- data.frame(car = row.names(mtcars), mtcars)
manip.m  <- melt(manip)
qplot(car, value, data = manip.m) + facet_wrap(~variable, scales = "free_y")

它需要在 xlab 中进行一些打磨

last_plot() + opts(axis.text.x = theme_text(angle = 90))

HTH