在 R 中迭代生成名称以存储绘图

Question

我正在使用 R 循环数据框、执行计算并绘制图表。

for(i in 2 : 15){
# get data
dataframe[,i]  

# do analysis

# make plot
a <- plot()
}

有没有办法让绘图对象名称为“a”，使用“i”的值？例如，a+“i”＜-plot()。然后我想将其添加到向量中，这样我就有了一系列绘图，可以在稍后阶段制作 pdf 时使用。或者也许还有另一种存储方式。

我熟悉 Paste() 函数，但我还没有弄清楚如何使用它来定义对象。

Answer 1

如果您想要绘图对象的“向量”，最简单的方法可能是将它们存储在列表中。使用 paste() 为您的绘图创建一个名称，然后将其添加到列表中：

# Create a list to hold the plot objects.
pltList <- list()

for( i in 2:15 ){

  # Get data, perform analysis, ect.

  # Create plot name.
  pltName <- paste( 'a', i, sep = '' )

  # Store a plot in the list using the name as an index.
  # Note that the plotting function used must return an *object*.
  # Functions from the `graphics` package, such as `plot`, do not return objects.
  pltList[[ pltName ]] <- some_plotting_function()

}

如果您不想将绘图存储在列表中，并且实际上想要创建一个具有以下内容的新对象： name 包含在 pltName 中，那么您可以使用 assign()：

# Use assign to create a new object in the Global Environment
# that gets it's name from the value of pltName and it's contents
# from the results of plot()
assign( pltName, plot(), envir = .GlobalEnv )

Answer 2

看一下lattice或ggplot2包，这些包中的绘图函数创建可以分配给变量并可以在稍后阶段打印或绘制的对象。

例如使用lattice：

library("lattice")
i <- 1
assign(sprintf("a%d", i), xyplot(1:10 ~ 1:10))
print(a1) # you have to "print" or "plot" the objects explicitly

或者将对象附加到列表中：

p <- list()
p[[1]] <- xyplot(...)
p[[2]] <- xyplot(...)