在r中以excel表格的形式编写数据帧。

Question

我正试着把不同的数据帧写成一个单独的excel表格。下面是一个示例：

Node<-write_xlsx(Node,paste0(My_path,Model1,'My_Excel_file_2020.xlsx'),sheetName = "Nodes",col.names = TRUE, row.names = FALSE, append = TRUE)

它给了我一个错误：

Error in write_xlsx(Node,paste0(My_path,Model1,'My_Excel_file_2020.xlsx'),  : 
unused arguments (sheetName = "Nodes", col.names = TRUE, row.names = FALSE, append = TRUE)

我已经通过了这个https://cran.r-project.org/web/packages/writexl/writexl.pdf，但没有成功。

我试图安装和使用替代的writexl包，它给了我这个错误：

Error: package or namespace load failed for ‘xlsx’:
 .onLoad in loadNamespace() für 'rJava' fehlgeschlagen, Details:
  Aufruf: fun(libname, pkgname)
  Fehler: JAVA_HOME cannot be determined from the Registry

有人能在这个问题上帮我吗？提前谢谢。

Answer 1

可能是打字错误。

首先，通过执行以下代码行确保库被正确加载：

library("tidyverse")
library("readxl")
library("xlsx")

你得到的第一个错误，让我认为你想使用write.xlsx()函数而不是write_xlsx()。

尝试执行以下代码：

Node <- write.xlsx(Node, paste0(My_path, Model1, 'My_Excel_file_2020.xlsx'), sheetName = "Nodes", col.names = TRUE, row.names = FALSE, append = TRUE)

希望这能有所帮助。

Answer 2

使用writexl包，您可以为各个数据帧设置工作表名称，如下所示：

writexl::write_xlsx(
  list(
    sheetname1 = df1,
    sheetname2 = df2
  ),
  "excel_file_name.xlsx"
)

编辑:要修改现有工作簿，可以使用openxlsx。

library(openxlsx)
wb <- loadWorkbook("path/to/existing/workbook.xlsx")

addWorksheet(wb, sheetName = "newSheetName")
writeDataTable(
  wb,
  sheet = "newSheetName",
  x = df,
  startCol = 1,
  startRow = 1
)

saveWorkbook(wb, "nameOfWorkbook.xlsx")

openxlsx有许多用于自定义工作表的附加功能。