如何将一些数据附加到现有的xlsx工作表R中？

Question

我正在尝试读取xlsx文件并将一个数据帧写入xlsx的同一张纸，而不会删除数据帧的其他行。

我尝试使用library("XLConnect")和函数appendWorksheet（），但数据未在正确的位置写入，并且使用library("xlsx")，但找不到类似于appendWorksheet的函数。

我只想读取我的xlsx文件并将我的数据写入数据帧，然后写入相同的xlsx文件，而无需删除前几行。

Answer 1

似乎不是将数据附加到xlsx文件的好方法。您可以创建一个函数，该函数将读取工作表并将数据附加到数据框，然后覆盖xlsx。

library(xslx)
appendxlsx <- function(df2, path, sheetName) {
  df1 <- read.xlsx2(path, sheetName = sheetName)
  colnames(df2) <- colnames(df1)
  df <- rbind(df1, df2)
  write.xlsx2(df, path, sheetName = sheetName)
}

然后，您只需调用提供更新的数据框（df2），xlsx的路径以及工作表名称的函数。像这样的东西：

appendxlsx(df2=df2, "/path/to/xlsx", sheetName = "Sheet1")