将矩阵中的多个绘图从R导出到excel

我有一个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。 我不知道我是否需要一个循环..我也不知道代码是什么。 使用代码

绘图（df[，1]）

我有

5

的绘图，使用代码

绘图（df[，2]）

我有第二个绘图

我想用一个代码（可能是一个循环）将每个列从R导出到excel。。考虑到我想要循环，因为我想在80列的矩阵中做同样的事情。所以我需要时间来写文本<代码>图（DF[，1）]……图（DF[，80）] < /COD> < /P>

---

我问题的第二部分是：如何在excel中从R导出“n”图。

下面的循环应自动创建所需的每个图，并将其保存到.jpg文件中。据我所知，没有将绘图导出到Excel文档的方法。如果需要，您可以以不同的格式保存，更多详细信息请参见

---

它可以被二分

步骤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，因为它允许插入照片（）。

这不是答案。。我认为步骤应该是，使图像文件-JPEG-在一个循环中，然后使用一些可以导入图像的Excel R包。避免使用循环！使用lappy跨df列执行某些操作

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()  
}