r - 使用 data.table 生成多个 qplots

Question

我想从 data.table 中为每组生成一个散点图，并从函数中返回它。

我可以使用绘图(如下)生成不同的图表，所以我认为这不是 data.table 问题:

dt = data.table(A = c(1,2,3,4), B = c(1,1,2,2), C = c(4,5,6,7))
result = dt[, list(plot = list(plot(A, C))), by = B]

但是，如果我尝试对 qplot 做同样的事情(为了获得我可以返回的图表)，我似乎最终得到了第二张图表的两个副本。

dt = data.table(A = c(1,2,3,4), B = c(1,1,2,2), C = c(4,5,6,7))
result = dt[, list(plot = list(qplot(A, C))), by = B]
result[1,][["plot"]]
result[2,][["plot"]]

如果我遗漏了一些明显的东西/做了一些愚蠢的事情，我深表歉意。

Answer 1

我不是 100% 确定到底发生了什么，但这里有一个解决方法:

result = dt[, list(plot = list(qplot(data=.SD, A, C))), by = B]

似乎 data.table 保留了一个环境来以某种方式执行其评估，而 qplot 只是存储对该环境的引用。由于您没有指定 data 参数，qplot 将在该环境中查找数据，每个 by 值都会不断变化data.table，所以在data.table操作之后，只剩下最后一 block 了。