использование melt () в заголовках столбца Date

Question

Вот так выглядит мой Excel ниже.Я хочу использовать эти даты (имя столбца "cols" в x4 ") для построения графика.

structure(list(Date = c("DBS SP Equity", "ST SP Equity", "OCBC SP Equity", 
"UOB SP Equity", "WIL SP Equity"), Industry = c("Banks", "Telecommunications", 
"Banks", "Banks", "Food"), `43402` = c(-0.00476190476190486, 
0.00958466453674123, 0.000961538461538458, 0.00332363938512659, 
0), `43399` = c(-0.0257275411218895, -0.00634920634920633, -0.0188679245283018, 
-0.0352705410821643, 0.00643086816720251), `43398` = c(-0.0161825726141079, 
0.00318471337579607, -0.00375939849624074, -0.00279776179056757, 
0.0130293159609121), `43397` = c(0.00542344597413447, 0.00319488817891389, 
0.00757575757575757, 0.00481927710843388, 0.00655737704918025
), `43396` = c(-0.0156057494866531, -0.0126182965299685, -0.0231267345050878, 
-0.015810276679842, 0)), row.names = c(NA, -5L), class = c("tbl_df", 
"tbl", "data.frame"))

data4 <- read_excel("data.xlsx", sheet = 4, col_names = TRUE)
    x4 <- melt(data4, id = c("Industry"), measure.vars = 3:997,  variable = "cols")
    print(x4$cols)

Значение является целым числомНет, когда я его печатаю.
Я пытался, но он показывает NA для Cols

x4$cols <- as.Date(x4$cols, format = "%yyyy-%mm-%dd")

Я также пробовал следующий код. Он снова отображает int no.

x4 <- x4 %>% mutate(Date = dmy(cols))

Как я могу получить фактическую дату?

Answer 1

Фактической датой является целочисленное смещение (источник) от 1970-01-01.Вы, вероятно, вернетесь назад с чем-то вроде as.Date(x4$cols, origin="1970-01-01").Смотрите также: https://stats.idre.ucla.edu/r/faq/how-does-r-handle-date-values/