在多個工作表中添加標題

Question

我們如何在每個導出的工作表中添加標題（在單個工作簿中）。 它是以下答案的擴展-R：將多個data.frame導出到多個Excel工作表的簡便方法？

示例（我的輸出看起來像這樣）

(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 

Answer 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")