使用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"