使用R中的read_xlsx读取xlsx文件，第一行作为月-年变量

Question

我有一个xlsx数据文件，其中第一行是格式为time var的时间（即jan-53 feb-53）。 我使用此命令读取数据，但R正在将非年份转换为数字。 以下是我的命令。 wpi_raw<- read_excel("/Users/sonu/Dropbox/vd_ps/wpi_monthly.xlsx",sheet=1, col_names = TRUE,col_types=NULL,na="",skip=0)请建议我如何阅读read_excel的数据。 我正在提供数据的保管箱链接以供参考。
<a href="https://www.dropbox.com/s/vpm8hbk63zc1jcd/wpi_monthly.xlsx?dl=0">dpi_monthly</a>

Answer 1

当您从excel导入日期时，您必须将它们从时代以来的日期转换为您想要的日期...

library("readxl")
tmp <- tempfile(fileext=".xlsx")
download.file("https://www.dropbox.com/s/vpm8hbk63zc1jcd/wpi_monthly.xlsx?dl=1",
              destfile=tmp, mode="wb")
wpi_raw <- read_excel(tmp, sheet=1, col_names = TRUE,col_types=NULL,na="",skip=0)

names(wpi_raw)[2:ncol(wpi_raw)] <- format(as.Date(as.numeric(names(wpi_raw)[2:ncol(wpi_raw)]),
                                           origin="1900-01-01"), "%b-%y")
> names(wpi_raw)
 [1] "commodity" "Apr-53"    "May-53"    "Jun-53"    "Jul-53"   
 [6] "Aug-53"    "Sep-53"    "Oct-53"    "Nov-53"    "Dec-53"   
[11] "Jan-54"    "Feb-54"    "Mar-54"