R Cell 合并和居中内容中的 Openxlsx

Question

我在 r 中使用 openxlsx 创建具有特定格式参数的 excel 文件。以下是可重复使用的代码：

library(openxlsx)
wb <- createWorkbook()
addWorksheet(wb, "TestSheet")
df <- mtcars
df$Car <- row.names(mtcars)
row.names(df) <- NULL
df <- df[,c(length(df), 1:length(df)-1)]

forTopTit <- createStyle(fontColour = "#ffffff", fgFill = "#F4D03F",halign = "center",wrapText = TRUE,valign = "center")
forColHdr <- createStyle(fontColour = "#ffffff", fgFill = "#4F81BD",halign = "center",wrapText = TRUE,valign = "center")
forDatStl <- createStyle(fontColour = "#ffffff", halign="center")

writeData(wb,"TestSheet", "THIS IS A TEST MESSAGE", startCol = 1,startRow = 1,colNames = FALSE, rowNames = TRUE,
          headerStyle = forTopTit,borders = "surrounding",borderStyle = "medium")

writeData(wb,"TestSheet", df, startCol = 1,startRow = 2,colNames = TRUE,rowNames = FALSE,
          headerStyle = forColHdr,borders='all',borderStyle = "thin")
mergeCells(wb, "TestSheet", cols=1:length(df), rows=1)
setColWidths(wb, "TestSheet", ignoreMergedCells = TRUE,cols = 1:ncol(df), widths = "auto")
openXL(wb)

我面临两个问题：

我试图在第一列第一列（这是一个合并的单元格）中创建的标题始终左对齐，并且正在应用 none 颜色。
我想将第 3 行第 2 列的数据居中，但我无法做到。我尝试使用以下代码：

addStyle(wb, "TestSheet", style=forDatStl, 行数 = 3:nrow(df), cols=3:length(df), gridExpand=TRUE)

上面的那种隐藏了所有的数据点，尽管它仍然保留在单元格中。我看不到它们，但是当我 select 单元格时，我可以在 sheet 上方的摘要行中看到它。我正在使用 Ubuntu 18.04 和 Libre Office Calc.

Answer 1

您的单元格是 "hidden" 因为您设置了颜色 #ffffff，即白色，背景是白色。

使用另一种颜色：

forDatStl <- createStyle(fontColour = "#000000", halign="center")

要使合并的单元格居中：

centerStyle <- createStyle(halign = "center")
mergeCells(wb, "TestSheet", cols=1:length(df), rows=1)
addStyle(wb, "TestSheet", centerStyle, rows = 1, cols = 1)

R Cell 合并和居中内容中的 Openxlsx

Openxlsx in R Cell Merging and Centering content

excel

r

openxlsx