如何在R中导入日期作为表头且不被转换为数字

问题原因 #

Excel中的日期本质是基于1899-12-30起始的数值，当readxl读取表头行时，会将日期类型的单元格转换为对应的数值（因为表头需要是可识别的字符/数值类型），因此出现了44866这类数字列名。

解决方法 #

方法一：先读取全量数据，再手动设置列名 #

1. 读取整个文件，不将第一行设为表头：

library(readxl)
# col_names = FALSE 表示不把第一行当表头，全部按数据行读取
Book1_raw <- read_excel("C:/X/X/X/Book1.xlsx", col_names = FALSE)

2. 提取第一行的数值，转换为日期格式作为新列名：

# 提取第一行，将Excel日期数值转为R的日期格式
new_colnames <- as.Date(Book1_raw[1, ], origin = "1899-12-30")
# 将第一列的列名设为原数据中的"ds"
new_colnames[1] <- "ds"
# 转换为字符类型，避免后续操作报错
new_colnames <- as.character(new_colnames)

3. 截取有效数据行并设置列名：

# 去掉第一行（原日期表头行）
Book1 <- Book1_raw[-1, ]
# 赋值新列名
colnames(Book1) <- new_colnames
# 将数值列转换为数值类型（默认是字符）
Book1[, -1] <- sapply(Book1[, -1], as.numeric)

方法二：单独读取表头行，再读取数据并指定列名 #

1. 读取第一行的日期数值，转换为日期格式：

date_header <- read_excel("C:/X/X/X/Book1.xlsx", n_max = 1, col_names = FALSE)
# 转换为日期格式，替换第一列的列名为"ds"
date_header <- as.Date(as.numeric(date_header), origin = "1899-12-30")
date_header[1] <- "ds"

2. 读取数据时直接使用转换后的日期作为列名：

Book1 <- read_excel("C:/X/X/X/Book1.xlsx", skip = 1, col_names = date_header)

两种方法都能将列名恢复为原日期格式，根据个人习惯选择即可。

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