使用特定列中的指定字体在.xlsx文件中写入数据

Question

我打算将我的数据保存到.xlsx文件中，并将第i列的字体设置为＆＃39; Courier New＆＃39;。

c = matrix (rnorm (20), nrow= 4)

到.xlsx格式文件，并设置＆＃39; Courier New＆＃39;作为第二列的字体。

write.xlsx (c, '1.xlsx')

但是如何从我的R脚本中设置字体？

提前谢谢。

Answer 1

您可以使用openxlsx包来执行此操作。

library(openxlsx)

wb <- createWorkbook()

df <- data.frame(a = c(1:10), b = c(11:20), c = c("A", "A", "B", "B", "B"))

addWorksheet(wb, 'new sheet')

writeData(wb, sheet = "new sheet", df)

my_style <- createStyle(fontName = 'Arial')

addStyle(wb, 'new sheet', my_style, rows = 1:nrow(df), cols = 2)

saveWorkbook(wb, file = 'example.xlsx')

createStyle还可让您控制更多选项。 看看这里：https://cran.r-project.org/web/packages/openxlsx/openxlsx.pdf