示例代码

Question

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

openxlsx文档提供了一些示例，用于将列类设置为＆＃34; currency＆＃34;，＆＃34; accounting＆＃34;，＆＃34; hyperlink＆＃34;，＆＃34; percentage＆＃34;，或＆＃34;科学＆＃34;，但没有明确指出＆＃34; text＆＃34;。我已经尝试将课程设置为＆＃34; text＆＃34;或＆＃34;字符＆＃34;，但输出的Excel列仍然是＆＃34; general＆＃34;。最初，正确的文本存在，但如果我在单元格中编辑任何内容，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")

R：将数据导出为＆＃34; text＆＃34;使用openxlsx

1 个答案:

示例代码