从R到excel的矩阵中导出许多图

Question

我有一个2列的矩阵名称df。

         AVELOX5  AVELOX7
Jan 2009  1.00000  6.00000
Feb 2009  2.00000  4.00000
Mar 2009  5.00000  3.00000
Apr 2009 34.00000  1.00000
May 2009  7.00000  2.00000
Jun 2009  6.00000 34.00000
Jul 2009  8.00000 34.00000
Aug 2009  8.00000 53.00000
Sep 2009  9.00000  6.00000
Oct 2009  4.00000  7.00000
Nov 2009 23.00000  9.00000
Dec 2009 12.42851 10.33471
Jan 2010 12.78912 10.80950
Feb 2010 13.14972 11.28429
Mar 2010 13.51032 11.75908
Apr 2010 13.87092 12.23387
May 2010 14.23152 12.70866
Jun 2010 14.59212 13.18345
Jul 2010 14.95273 13.65824
Aug 2010 15.31333 14.13303
Sep 2010 15.67393 14.60781
Oct 2010 16.03453 15.08260
Nov 2010 16.39513 15.55739

我想从每个分隔为excel的列中导出图。 我不知道我是否需要一个循环......我不知道代码是什么。 使用代码plot(df[,1])我有AVELOX5的图和代码plot(df[,2])我有第二个图。

我希望用一个代码（可能是一个循环）将每一列从R导出到excel。考虑我想要循环原因我想在80列的矩阵中做同样的事情。所以它需要我的时间来文本plot(df[,1])...plot(df[,80]) 。

我的问题的第二部分是：我如何从ex中导出R中的'n'图。

Answer 1

它可以除以2。

步骤1将绘图保存到本地驱动器中。 它可以如下完成。

lapply(1:ncol(df), function(x) {
  png(paste(x, ".png", sep = ""))
  plot(df[,x])
  dev.off()
})
# or
for(x in 1:ncol(df)) {
  png(paste(x, ".png", sep = ""))
  plot(df[,x])
  dev.off()  
}

步骤2导出到Excel

实际上我不确定在R中是否有办法这样做。你必须使用VBA，因为它允许插入照片（ LINK ）。

Answer 2

以下循环应自动创建所需的每个绘图并将其保存为.jpg文件。 据我所知，没有办法将绘图导出到Excel文档。 如果需要，您可以保存为不同的格式，有关详细信息，请点击此处

for (i in 1:80) {
jpeg('i.jpg')
plot(df[,i])
dev.off()
}