我还没有找到一种不使用正式样式（创建工作簿和工作表，为特定的行和列分配特定的样式）的方法。
这里有一个工作的例子。
我添加了一些注解来解释addStyle中的参数。如果这没有帮助，或者你有任何问题，让我知道。

library(openxlsx)

wb <- createWorkbook()               # create structure/workbook
addWorksheet(wb, "formatting")       # create sheet and name it
                                     # create data to add to workbook
df1 <- data.frame(values1 = -10:10, values2 = 10:-10, letters = LETTERS[1:21])

writeData(wb, "formatting", df1)     # add data to sheet "formatting"

                                     # add styling
# wb, sheet 1, () for negs, first 2 cols, 100 rows
addStyle(wb, 1, style = createStyle(numFmt = '#,##0.00_);(#,##0.00)'), 
         cols = 1:2, rows = 2:100, gridExpand = T)
saveWorkbook(wb, "newSpreadsheet.xlsx", overwrite = T) # save formatted wb