如果使用 source() 运行，R 包lattice将不会绘图

Question

我开始使用lattice图形包，但我偶然遇到了一个问题。我希望有人能帮助我。 我想使用相应的函数绘制直方图。

这是文件 foo.r：

library("lattice")

data <- data.frame(c(1:2),c(2:3))
colnames(data) <- c("RT", "Type")

pdf("/tmp/baz.pdf")
histogram( ~ RT | factor(Type), data = data)
dev.off()

当我使用 R --vanilla 运行此代码时foo.r 它工作得很好。

但是，如果我使用第二个文件 bar.r

source("bar")

并运行 R --vanilla bar.r 该代码生成错误的 pdf 文件。 现在我发现 source("bar", echo=TRUE) 解决了问题。这是怎么回事？这是一个错误还是我错过了什么？

我正在使用 R 版本 2.13.1 (2011-07-08) 和lattice_0.19-30

Answer 1

它位于 常见问题解答中对于 R - 您需要在您调用的格子函数周围使用 print() ：

7.22 为什么点阵/网格图形不起作用？

最可能的原因是你忘记告诉 R 显示
图形。 xyplot() 等格子函数创建图形对象，但是
不显示（ggplot2图形也是如此，Trellis
S-Plus 中的图形）。图形对象的 print() 方法产生
实际显示。当您以交互方式使用这些功能时
命令行，结果会自动打印，但是在 source() 或
在您自己的函数中，您将需要显式的 print() 语句。

Answer 2

案例示例

1. visualise.r
   • 调用plot2this.r
     • 调用ggplot2并返回p对象

这里修复了 plot2this.r 中来自 return(p) 到 return(print(p))。

初始 plot2this.r

p <- ggplot(dat.m, aes(x = Vars, y = value, fill=variable)) 
return(p)

立即修复

p <- ggplot(dat.m, aes(x = Vars, y = value, fill=variable)) 
return(print(p))

输出：具有所需绘图的预期输出。