在多个工作表中添加标题答案

【问题标题】：Adding titles in multiple sheets在多个工作表中添加标题
【发布时间】：2015-04-07 05:41:24
【问题描述】：

我们如何在每个导出的工作表中添加标题（在单个工作簿中）。它是以下答案的扩展 - R: easy way to export multiple data.frame to multiple excel worksheets?

示例（我的输出如下所示）

(In sheet1)
Credit card details of Mr.x     
Year    Amount  Paid
2010    $10,000     $10,000 
2011    $20,000     $19,000 

(In sheet2)
Population data for the year 2010       
Gender  %   No.
Male    45  12345
Female  55  13456

(In sheet-3)
M/S ABC Limites EMPLOYEE Details        
Name ID SALARY
P     2 $10,000 
Q     3 $20,000

【问题讨论】：

在我看来，您的问题是该链接中的答案。展示一些代码并描述你看到的问题。
（也许我在查询中使用了错误的术语；抱歉）。考虑到上述链接中的示例（带有绿色勾号），我想在每个单独的工作表中为每个生成的表格创建一个标题（我不是指命名单个工作表）。如何获取每个表格的标题（存在于每张表格中）？希望我现在清楚了。非常感谢。
所以您想添加一行，然后在该行的连续单元格块中添加文本？（仍然没有代码或示例数据。）
我已经编辑了我的问题，添加了一个示例。在示例中，我将如何在每张工作表中添加标题（信用卡详细信息...在工作表 1、人口数据......在工作表 2 和 M/S ABC Limited...在工作表 3）？（非常感谢您的帮助。谢谢。）

标签： r xlsx

【解决方案1】：

您必须使用 openxlsx 包的 writeData() 函数：

library("openxlsx")
# Creating workbook
wb <- createWorkbook()
# Create sheet
addWorksheet(wb, "sheet1")

# Write title in worksheet
writeData(wb, 1, x = "Main Title", startRow = 1, startCol = 1)
addStyle(wb = wb, sheet = 1, rows = 1, cols = 1, style = main_title)
# Write subtitle of a given dataset
writeData(wb, 1, x = "Subtitle", startRow = 3, startCol = 1)
addStyle(wb = wb, sheet = 1, rows = 3, cols = 1, style = second_title)

# Write dataset
writeDataTable(wb, 1, x = head(mtcars), startRow = 4,
               startCol = 1, tableStyle = "TableStyleMedium2", withFilter = FALSE)

# Save workbook
openxlsx::saveWorkbook(wb, "test.xlsx")

【讨论】：