如何在R中将两个数据框水平添加到一个Excel工作表

Question

我有以下dfs：

df1 <- data.frame(Engagement = c(1,1234,345,643,2345,645,687,9563,678,7), Post=c(6,8,65,34,23,4,67,8,9,6))
df2 <- data.frame(Tag=c("Love","Hope","Change","Faith","Doubt"),Count=c(521,502,378,95,33))

我想将两者都添加到1个excel表格中，并在两者之间添加一列。我知道有几种方法可以rbind并具有垂直偏移量，因此它们之间有一个间隔，但是我希望数据框彼此相邻。有没有一种方法可以水平偏移数据？

我目前使用openxlsx来编写较大的df以使其优于excel，然后必须手动将较小的df放入。我会经常重复此过程，因此需要任何非“复制/粘贴”的解决方案。

我已附上希望在excel中获得的图片，以供参考

Answer 1

xlsx软件包是您的朋友

library( xlsx ) 

wb <- createWorkbook( type = "xlsx" )
sheet <- createSheet( wb, sheetName = "test" )

addDataFrame( df1, sheet, startRow = 1, startColumn = 1, row.names = FALSE )
addDataFrame( df2, sheet, startRow = 1, startColumn = 4, row.names = FALSE )

saveWorkbook( wb, "./example.xlsx" )