r - 格子图在函数内部不起作用

Question

我有这个 R 代码，它工作得很好，如果我在 R 控制台或作为 RScript 运行它，我会得到带有绘图的位图

library(DBI);
library(RMySQL);
library(brew);
library(lattice);
con <- dbConnect(MySQL(),server credentials)
x <- dbGetQuery(con,"SELECT name, distance FROM distances")
bitmap("/tmp/dist_6078.bmp")
dotplot(x$distance~x$name, col='red', xlab='name', ylab='distance', main='Distance plot')
dev.off()

问题是，如果我将 <% 和 %> 之间的所有内容括起来并使用 brew 库，我将得到一个空白图像。如果我使用基本的 R 图，一切正常，只有当我使用 lattice 时才会出现问题。

Answer 1

来自 R FAQ 7.22

Lattice functions such as xyplot() create a graph object, but do not display it (the same is true of ggplot2 graphics, and Trellis graphics in S-Plus). The print() method for the graph object produces the actual display

工作代码

library(DBI);
library(RMySQL);
library(brew);
library(lattice);
con <- dbConnect(MySQL(),server credentials)
x <- dbGetQuery(con,"SELECT name, distance FROM distances")
bitmap("/tmp/dist_6078.bmp")
plot_obj <- dotplot(x$distance~x$name, col='red', xlab='name', ylab='distance', main='Distance plot')
print(plot_obj)
dev.off()