读写带有注释的Excel文件

Question

问。我正在寻找一种在阅读和操作后保留excel文件注释的方法。

0。我的excelfile ：（不能与您分享！）

1。我想这样阅读：（在excel中将col注释作为R中的col注释）

（使用任何执行此操作的库。openxlsx最好）

df<- data.frame(a=1:3,b=4:6,c=7:9)
comment(df$a) <- "Random comment" #is there a better practice to preserve the excel comment?

2。数据的随机处理：

df[2:3] <- df[2:3] * 2
df$d    <- "funny"

3。保存数据（看起来应该像这样：）

编辑：

library(openxlsx)

wb <- loadWorkbook("commented.xlsx")
df <- readWorkbook(wb)

df[2:3] <- df[2:3] * 2
df$d    <- "funny"
df <- rev(df)
df <- df[order(df$a,decreasing = T),]

writeData(wb, 1, df)
saveWorkbook(wb, "modified.xlsx")

到目前为止，这是一个很棒的解决方案！

1. 如本例所示，评论保持不变。
2. 我得到额外的空̶“COMMENT弹出窗口”̶以我所得̶f̶i̶l̶e̶.̶只是我？̶（解决办法可用！）

Answer 1

您可以使用 openxlsx 进行此操作：使用loadWorkbook()读取原始文件，修改所需的数据，最后完成saveWorkbook()。评论将被保留：

library(openxlsx)

wb <- loadWorkbook("commented.xlsx")
df <- readWorkbook(wb)

df[2:3] <- df[2:3] * 2
df$d    <- "funny"

writeData(wb, 1, df)
saveWorkbook(wb, "modified.xlsx")

unlink(c("commented.xlsx", "modified.xlsx"))

样本数据：

library(openxlsx)

wb <- createWorkbook("unknown")
addWorksheet(wb, "Sheet 1")

df <- data.frame(a = 1:3, b = 4:6, c = 7:9)
writeData(wb, 1, df)

comment <- createComment("Random comment")
writeComment(wb, 1, 1, 1, comment)

saveWorkbook(wb, "commented.xlsx")