r - 使用 R 将模糊的“XM.D.20”格式化为 as.Date

Question

我有

days<-c("X1.22.20", "X1.23.20", "X1.24.20", "X1.25.20", "X1.26.20", 
"X1.27.20", "X1.28.20", "X1.29.20", "X1.30.20", "X1.31.20", "X2.1.20", 
"X2.2.20", "X2.3.20", "X2.4.20", "X2.5.20", "X2.6.20", "X2.7.20", 
"X2.8.20", "X2.9.20", "X2.10.20", "X2.11.20", "X2.12.20", "X2.13.20", 
"X2.14.20", "X2.15.20", "X2.16.20", "X2.17.20", "X2.18.20", "X2.19.20", 
"X2.20.20", "X2.21.20", "X2.22.20", "X2.23.20", "X2.24.20", "X2.25.20", 
"X2.26.20", "X2.27.20", "X2.28.20", "X2.29.20", "X3.1.20", "X3.2.20", 
"X3.3.20", "X3.4.20", "X3.5.20", "X3.6.20", "X3.7.20", "X3.8.20", 
"X3.9.20", "X3.10.20", "X3.11.20", "X3.12.20", "X3.13.20", "X3.14.20", 
"X3.15.20", "X3.16.20", "X3.17.20", "X3.18.20", "X3.19.20")

我希望这些天（ https://github.com/CSSEGISandData/COVID-19/tree/master/csse_covid_19_data/csse_covid_19_time_series的行名）格式化为.Date。

但是我有以下问题：1.前导X，2.天没有前导零3.月份没有前导零3.年份缩写为20。

我还没有找到解决所有这些问题的方法。

标签： rdate

Answer 1

首先，删除“X” gsub：

days <- gsub("X", "", days)

然后，假设第一个数字是月份，第二个是天，第三个是年，用as.Date函数重新编码：

days <- as.Date(days, "%m.%d.%y")