如何在R中导出不同表格的excel文件？

# 安装和加载openxlsx包
install.packages("openxlsx")
library(openxlsx)

# 创建数据框
df1 <- data.frame(Name = c("Alice", "Bob", "Charlie"),
                  Age = c(25, 30, 35))

df2 <- data.frame(City = c("New York", "London", "Tokyo"),
                  Population = c(8537673, 8908081, 13929286))

# 创建Excel工作簿
wb <- createWorkbook()

# 创建第一个工作表并写入数据
addWorksheet(wb, "Sheet1")
writeData(wb, "Sheet1", df1)

# 创建第二个工作表并写入数据
addWorksheet(wb, "Sheet2")
writeData(wb, "Sheet2", df2)

# 保存工作簿为Excel文件
saveWorkbook(wb, "output.xlsx", overwrite = TRUE)