4

画像を印刷してディスクに保存するのは簡単です:

fit <- lm(some ~ model)

png(filename="your/file/location/name.png")
plot(fit)
dev.off()

Excelスプレッドシートにデータを書き込むだけです

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

私の質問は、上記の両方をスプレッドシートにリダイレクトする方法です。別の言葉で言えば、いくつかの画像/プロットとペアになったグラフをExcelワークブックに出力しますか?

ありがとう、

4

3 に答える 3

5

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'))
于 2017-10-13T10:48:14.393 に答える