R 在日期列标题上使用melt（）

下面是我的excel的样子。我想用这些日期（x4中的列名“cols”）来绘制一个图表

结构（列表（日期=c（“DBS SP股权”、“ST SP股权”、“OCBC SP股权”）， “UOB SP股权”、“WIL SP股权”），行业=c（“银行”、“电信”， “银行”、“银行”、“食品”），`43402`=c（-0.00476190476190486， 0.00958466453674123, 0.000961538461538458, 0.00332363938512659, 0），`43399`=c（-0.0257275411218895，-0.006349206344920633，-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”、“data.frame”））

---

数据4实际日期是1970-01-01的整数偏移量（原点）。您可能会使用类似于

as.date（x4$cols，origin=“1970-01-01”）

的值转换回来。另请参见：

请使用

dput

发布数据。您可以使用

dput（head（df，15））

例如。将其输出复制并粘贴到问题中。详细信息。@NelsonGon我已添加了数据子集的dput。我尝试了不同的日期格式。我可以使用Excel中的任何日期格式，将日期转换为年-月日期格式，我先尝试通过as.numeric进行{x4$cols转换

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)

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

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