r - 如何将 barplot/plot 分配给变量并在后期调用

Question

如何将 plot 分配给变量并在后期打印出来？使用 lattice xyplot，您可以轻松完成:

s <- xyplot((1:10)^2~1:10)
s

但是没有基础 plot

a <- plot((1:10)^2,1:10)

我得到的是函数中的 barplot:

funbar <- function(x) { barplot(x) }
variab <- funbar(1:10) # this plots the data

所以我希望它在稍后阶段通过调用 variab

打印

其实我在一个函数中有额外的图形函数，像这样:

funbar <- function(x) { barplot(x); points(....); text(....) }

我找不到关于这个明显部分的任何信息。 plot=FALSE 在这里没有帮助。

编辑:这是从 ?barplot

中获取的条形图数据

require(grDevices) # for colours
tN <- table(Ni <- stats::rpois(100, lambda = 5))
r <- barplot(tN, col = rainbow(20))

编辑 2:回答 Josh 关于我为什么要这样做的问题。示例:

layout(matrix(1:2, nrow=2, ncol=1))
tN <- table(Ni <- stats::rpois(100, lambda = 5))
r <- barplot(tN)
tN <- table(Ni <- stats::rpois(100, lambda = 5))
r <- barplot(tN)

Answer 1

也许这可以用 xy.coords 解决:

a <- xy.coords((1:10)^2,1:10) #plots nothing

并且可以稍后绘制:

plot(a)

我通过检查 plot.default 的代码想到了这个想法。

至于 barplot，也许 rect 函数会完成类似的事情(因为这似乎是 barplot.default 的核心)正在做)。