R中字符转日期显示unknown、WriteXLS导出常规格式如何解决

你用class()查询返回Date类型，已经说明日期转换步骤本身是成功的，RStudio数据查看器显示unknown只是查看器的兼容显示bug，不影响列的实际类型。导出到Excel后显示为「常规」格式，是WriteXLS包的默认导出逻辑问题：它不会自动将R的Date类型列映射为Excel的日期单元格格式，和你本地的类型转换操作无关。

方法1：继续使用WriteXLS包，补全格式标记参数 #

你需要在转换完日期类型后，给日期列添加专属格式属性，同时在导出时开启格式识别，代码如下：

library(WriteXLS)
library(stringr)

# 注意：代码里的列名引号要换成半角反引号，不要用全角单引号，避免列识别异常
# 逐个处理3个日期列，这里以Fecha de ejecucion列为例
BtotalSinPublico$`Fecha de ejecucion` <- as.Date(BtotalSinPublico$`Fecha de ejecucion`, format = "%Y-%m-%d")
# 给列添加Excel日期格式标记
attr(BtotalSinPublico$`Fecha de ejecucion`, "date.format") <- "yyyy-mm-dd"

# 其余2个日期列按相同逻辑替换列名处理即可
# BtotalSinPublico$`第二个日期列名` <- as.Date(BtotalSinPublico$`第二个日期列名`, format = "%Y-%m-%d")
# attr(BtotalSinPublico$`第二个日期列名`, "date.format") <- "yyyy-mm-dd"

# 导出时开启perl依赖支持，让包能识别到你设置的日期格式属性
WriteXLS(
  BtotalSinPublico,
  ExcelFileName = str_c("PrevisionesNiif_", Fecha, ".xls"),
  use.perl = TRUE,
  AdjWidth = TRUE
)

方法2：换用openxlsx包导出（无perl依赖，格式可控性更强） #

如果方法1因为perl环境配置问题跑不通，直接换openxlsx包导出是更稳定的选择，不需要额外装perl环境，可以手动指定每一列的单元格格式：

library(openxlsx)
library(stringr)

# 先确保3个日期列都已经转成R的Date类型
BtotalSinPublico$`Fecha de ejecucion` <- as.Date(BtotalSinPublico$`Fecha de ejecucion`, format = "%Y-%m-%d")
# 其余2个日期列同理完成类型转换

# 创建工作簿和工作表
wb <- createWorkbook()
addWorksheet(wb, "数据")

# 定义Excel端的日期显示样式
date_cell_style <- createStyle(numFmt = "yyyy-mm-dd")

# 将数据写入工作表
writeData(wb, "数据", BtotalSinPublico)

# 找到3个日期列对应的列位置，替换成你自己表中的实际列名即可
date_col_index <- c(
  which(colnames(BtotalSinPublico) == "Fecha de ejecucion"),
  which(colnames(BtotalSinPublico) == "第二个日期列名"),
  which(colnames(BtotalSinPublico) == "第三个日期列名")
)

# 给所有日期列的单元格（跳过表头行）应用日期格式
addStyle(
  wb,
  sheet = "数据",
  style = date_cell_style,
  cols = date_col_index,
  rows = 2:(nrow(BtotalSinPublico)+1),
  gridExpand = TRUE
)

# 保存导出文件
saveWorkbook(wb, str_c("PrevisionesNiif_", Fecha, ".xlsx"), overwrite = TRUE)

• 写R代码时不要用全角的单引号’索引列名，统一用半角反引号`包裹带空格、特殊字符的列名，避免出现隐式的列识别错误。
• 不用纠结RStudio查看器里显示的unknown格式，只要class()校验返回Date，列的类型就是正确的，显示异常只是前端查看器的兼容问题。

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