使用write_xlsx导出Excel时大数字被转为科学计数法如何解决

失效原因说明 #

options(scipen=999)仅作用于R运行环境内的控制台输出逻辑，不会影响第三方导出包的数值处理规则，且Excel本身默认对≥12位的纯数字自动触发科学计数法显示，仅调整R全局配置无法覆盖Excel的默认格式规则。

可选解决方法 #

方案一：使用openxlsx包自定义单元格格式（推荐） #

该方案导出的大数字仍为数值格式，可直接在Excel中做计算，替换原服务端代码如下：

# 需提前安装openxlsx包：install.packages("openxlsx")
output$dl_bulk <- downloadHandler(
  filename = "Data.xlsx",
  content = function(file){
    library(openxlsx)
    # 创建工作簿
    wb <- createWorkbook()
    # 定义纯数字无格式样式，禁用科学计数
    no_sci_style <- createStyle(numFmt = "0")
    
    # 写入PP工作表并设置格式
    addWorksheet(wb, "PP")
    writeData(wb, "PP", df_p())
    # 请将cols参数改为你实际存储大数字的列序号/列范围，例如c(2,3)代表第2、3列，"B:C"同理
    addStyle(wb, "PP", style = no_sci_style, cols = 3, rows = 2:(nrow(df_p())+1), gridExpand = TRUE)
    
    # 写入PM工作表并设置格式
    addWorksheet(wb, "PM")
    writeData(wb, "PM", df_m())
    addStyle(wb, "PM", style = no_sci_style, cols = 3, rows = 2:(nrow(df_m())+1), gridExpand = TRUE)
    
    # 写入PR工作表并设置格式
    addWorksheet(wb, "PR")
    writeData(wb, "PR", df_r())
    addStyle(wb, "PR", style = no_sci_style, cols = 3, rows = 2:(nrow(df_r())+1), gridExpand = TRUE)
    
    # 写入PS工作表并设置格式
    addWorksheet(wb, "PS")
    writeData(wb, "PS", df_s())
    addStyle(wb, "PS", style = no_sci_style, cols = 3, rows = 2:(nrow(df_s())+1), gridExpand = TRUE)
    
    # 导出文件
    saveWorkbook(wb, file, overwrite = TRUE)
  }
)

方案二：继续使用writexl，转换大数字为文本格式 #

该方案无需更换导出包，但导出的大数字为文本格式，无法直接在Excel中做数值计算，仅适合纯展示场景，代码如下：

output$dl_bulk <- downloadHandler(
  filename = "Data.xlsx",
  content = function(file){
    # 转换函数：将数据框中所有数值列转为非科学计数的字符串
    num_to_text <- function(df){
      num_cols <- sapply(df, is.numeric)
      df[num_cols] <- lapply(df[num_cols], function(x) format(x, scientific = FALSE, trim = TRUE))
      return(df)
    }
    # 对所有待导出数据框应用转换
    output_list <- list(
      "PP" = num_to_text(df_p()),
      "PM" = num_to_text(df_m()),
      "PR" = num_to_text(df_r()),
      "PS" = num_to_text(df_s())
    )
    write_xlsx(output_list, path = file)
  }
)

内容的提问来源于stack exchange，提问作者Sky_7