从Rmatrix中导出许多图到excel
我有一个matrix名称与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列的matrix做同样的事情..所以这将需要我的时间来文本plot(df[,1])...plot(df[,80]) 。
我的问题的第二部分是：我如何从R中导出excel中的'n'图。
它可以分成两部分。
步骤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 ）。
下面的循环应该自动创build每个需要的绘图并保存到一个.jpg文件。 据我所知，没有办法将图表导出到Excel文档。 如果需要，您可以保存不同的格式， 这里有更多的细节
for (i in 1:80) { jpeg('i.jpg') plot(df[,i]) dev.off() }