readxl() 将日期转换为数字

问题描述

我有一个这样的 xlsx 文件，日期在第一行：

1 月 20 日	2020 年 3 月	2020 年 6 月
A	K	L
C	是	B

出于某种原因，当使用 readxl() 函数导入到 R 时，标题中的日期被转换为一个数字，例如： 15890、17890等

我知道将日期作为变量保存不是一个好习惯，但即使换表问题仍然存在。如果有人可以提供帮助，我将不胜感激:)

解决方法

我不确定你是如何读/写数据的，但如果我使用这些数据，我就无法重现：

df <- structure(list(`jan/20` = c("A","C"),`mar/2020` = c("K","Y"),`jun/2020` = c("L","B")),class = "data.frame",row.names = c(NA,-2L))
df

#  jan/20 mar/2020 jun/2020
#1      A        K        L
#2      C        Y        B

#Write the data
writexl::write_xlsx(df,'test.xlsx')
#Read the data
readxl::read_excel('test.xlsx')

# A tibble: 2 x 3                                                 
# `jan/20` `mar/2020` `jun/2020`
#  <chr>    <chr>      <chr>     
#1 A        K          L         
#2 C        Y          B

您可以将数字日期更改为您选择的格式：

names(df) <- format(as.Date(as.numeric(names(df)),origin = '1970-01-01'),'%b/%Y')
df

date r r readxl