R 使用lappy生成三维绘图

我想根据列表中的数据在R中生成大约50个三维图。我将这些绘图输入

网格。排列
，以便在一页上全部绘图

我的问题是生成情节的部分。在下面的示例中，我展示了我当前的方法，为了保持简单，我只生成了两个图：

library(rgl)
data<-list()

data[[1]] <- list("data" =data.frame("x" = 1*(1:10), "y" = 2*(1:10),"z" = 3*(1:10)),
                  "dataO"=data.frame("x" = 1,        "y" = 2,       "z" = 3))

data[[2]] <- list("data" =data.frame("x" = 4*(1:10), "y" = 5*(1:10),"z" = 6*(1:10)),
                  "dataO"=data.frame("x" = 4,        "y" = 5,       "z" = 6))

plot_func = function (data) {
  plot3d(data$data,        type='s',    size=0.5)
  points3d(data$dataO,    color='red', size=10)
  rgl.viewpoint( theta = -160, phi = 15,     fov=60)
  legend3d("topright",
           legend = c('Data', 'Outliers'),
           pch = 16,
           col = c("black","red"),
           cex = 1,
           inset=c(0.02))
}

tmp<-lapply(data[c(1,2)], plot_func)

库（rgl）
dataplot_func仅返回legend3d输出，两个元素不是相同的same@Moody_Mudskipper如何使
plot\u func
返回组合绘图？我不知道是否可以将这些绘图存储为对象，函数plot3d绘制绘图，它不在对象中存储任何内容。如果使用ggplot2，则将使用打印对象。另请检查lattice软件包，请参见此处的第二个答案：