ggplot 的 qplot 在采购时不执行

Question

假设我有 2 个源文件，第一个名为 example1.r，第二个名为 example2.r（如下所示）。

example1.r

plot(1:10,1:10)

example2.r

qplot(1:10,1:10)

当我获取 example1.r 时，会绘制图表。但是，当我获取 example2.r 时，情况并非如此。这里的解决方案是什么？

（example2.r中的qplot是ggplot2的函数）

Answer 1

更新：

• .R 文件： source 的选项 print.eval=TRUE 将导致打印行为评估结果就像交互式命令行中一样。

source("Script.R", print.eval=TRUE)

• .Rnw 文件： knitr 默认情况下模拟交互式命令行的行为字。 打印。请注意，也可以将 knitr 指定为 R 包小插图的 Sweaving 引擎。

---

This is my original answer. But note that this workaround is IMHO completely obsolete now (and it always was good for a small lazy niche only).

这是著名的 常见问题解答7.22: 为什么点阵/网格图形不起作用？。

对于像ggplot2或lattice这样的网格图形，您需要打印图形对象才能实际绘制它。

在命令行上交互地，这是自动完成的。在其他地方（在要获取的文件、循环、函数、Sweave 块内），您需要显式地打印它。

print (qplot (1 : 10, 1 : 10))

或者，您可以重新定义 qplot 来进行打印：（

qplot <- function (x, y = NULL, z = NULL, ...) {
  p <- ggplot2::qplot (x = x, y = y, z = z, ...)
  print (p)
}

这会将轴标签更改为 x 和 y）。

我在小插图中使用这种方法，我想编写与交互式会话中的用户键入代码完全相同的代码。