将图像和数据从R导出到Excel电子表格

打印图像并将其保存在磁盘上很简单：

fit <- lm(some ~ model) png(filename="your/file/location/name.png") plot(fit) dev.off() 

写一些数据到Excel电子表格

 write.csv(rnorm(10),"some file",sep=",") 

我的问题是，如何将上述两个redirect到电子表格。 另一个词，输出一个graphics配对的一些图像/情节到Excel工作簿？

谢谢，

Answer 1

我会使用xlsx包。 查看addPicture函数和addDataFrame函数。 我发现这个软件包很容易处理。

Answer 2

只要添加一个关于xlsx包的例子，据我可以告诉它需要您先保存图片，然后将其导入到xlsx文件，请参阅下面导出到现有书籍的可重复的示例：

 # Setup x <- c('tidyverse', 'rJava', 'xlsxjars', 'xlsx') sapply(X=x, FUN = require, character.only = TRUE) # Create graph--------- dcs <- ggplot(mtcars) + geom_point(aes(cyl, disp)) # Export Pic ----------- pic_path <- "C:/home/dcs.jpeg" png(filename = pic_path) plot(dcs) dev.off() # Add to existing book ------------- xl_path <- "C:/home/a.xlsx" wb <- loadWorkbook(xl_path) ws <- getSheets(wb)["Summary"][[1]] addPicture(file = pic_path, sheet = ws) saveWorkbook(wb, xl_path) # Kill pic unlink(pic_path) #Then write some data write.xlsx(as.data.frame(output), xl_path, sheetName = 'data'))