如何使用R的XLSX包对齐XLSX文件的单元格?

我用下面的解决方案解决了上述问题:

library(xlsx)

# Creating dataframe.
df <- data.frame(c(1, 2, 3),
                 c("one", "two", "three"),
                 c("1", "2", "3"))

# Creating a workbook using the XLSX package.
wb <- xlsx::createWorkbook(type = "xlsx")

# Creating a sheet inside the workbook.
sheet <- xlsx::createSheet(wb, sheetName = "Sheet0")

# Adding the full dataset into the sheet.
xlsx::addDataFrame(df, sheet, startRow = 1, startCol = 1, row.names = FALSE, col.names = FALSE)

# Creating cell style needed to left-justify text.
cs <- CellStyle(wb) + Alignment(horizontal = "ALIGN_LEFT")

# Selecting rows to apply cell style to.
all.rows <- getRows(sheet, rowIndex = 1:nrow(df))

# Selecting cells within selected rows to apply cell style to.
all.cells <- getCells(all.rows)

# Applying cell style to selected cells.
invisible(lapply(all.cells, setCellStyle, cs))

# Saving the workbook.
xlsx::saveWorkbook(wb, "df.xlsx")

解决方案包括创建一个单元格样式,我将其存储在 cs 。接下来,我选择了每一行和每一个包含的单元格,并使用 lapply() 。

未来读者请注意:上述解决方案会消耗大量内存。 我有10Mb的数据。框架和相应的 全部的单元格 该对象原来是1.1Gb。

如果唯一的目的是使单元格保持左对齐,则可以这样做:

openxlsx::write.xlsx(
    x = df,
    file = file,
    startRow = 1, 
    startColumn = 1, 
    rowNames = FALSE, 
    colNames = TRUE
  )