R：使用 openxlsx 将数据导出为“文本”

Question

我正在尝试使用openxlsx（或xlsx其他包）包将数据框导出到 Excel 电子表格。我遇到的一个问题是我想将某些列设置为“文本”而不​​是“常规”，因为 Excel 倾向于自动格式化基因名称（即SEPT16 -> 16-Sep（日期格式））。

该openxlsx文档提供了一些将列类设置为“货币”、“会计”、“超链接”、“百分比”或“科学”的示例，但没有明确设置为“文本”。我尝试将类设置为“文本”或“字符”，但输出 Excel 列仍然是“常规”。最初，那里有正确的文本，但如果我在单元格中编辑任何内容，Excel 会自动设置这些单元格的格式。

library(openxlsx)

df <- data.frame(gene   = c("SEPT16", "MARCH10", "GATA4"),
                 pvalue = c(0.0123, 0.2315, 0.00001),
                 stringsAsFactors = FALSE)

class(df$gene)   <- "text"         # Doesn't work
class(df$pvalue) <- "scientific"

wb    <- openxlsx::createWorkbook()
sheet <- openxlsx::addWorksheet(wb, "test")
openxlsx::writeDataTable(wb         = wb, 
                         sheet      = "test",
                         x          = df)
openxlsx::saveWorkbook(wb, "example_table.xlsx")

Answer 1

openxlsx确实允许文本格式化，但需要几个步骤：

• 创建一个工作簿对象wb并为其创建一个选项卡（工作表）
• 创建您想要使用的单元格格式（单元格样式）。对于文本格式：使用numFmt = '@'。
• 将一些数据分配（写入）到工作簿对象中的工作表wb
• 识别每个单元格样式的单元格范围并将单元格样式分配给它们

示例代码

# Create workbook & sheet:
wb    <- openxlsx::createWorkbook()
sheet <- openxlsx::addWorksheet(wb, "test")

# Create the cell style
textstyle <- openxlsx::createStyle(fontName = "Arial", fontSize = 7, numFmt = "@")

# Assign df to workbook
openxlsx::writeDataTable(wb = wb, sheet = "test", x = df)

# First identify the range of the 'text cells':
textcells <- expand.grid(row = c(1,3,5), col = c(1,2,3,4,5))

# Then assign 'textstyle' to the 'textcells-range':
openxlsx::addStyle(wb = wb, sheet = "test", 
                   rows = textcells$row, cols = textcells$col, 
                   style = textstyle) 

# Save the workbook
openxlsx::saveWorkbook(wb, "example_table.xlsx")