在 R 中查找四位数字并将其转换为日历日期

Question

我有一个 dataframe 列，其中包含混合日期格式，例如 30/06/2020、07/2020 和 2020。我想将四位数字转换为日期（例如 2020 -> XX/XX/2020） . 我有不同的年份，而不仅仅是 2020 年，所以如果可能的话，我更喜欢通用的表达方式。

一个补充问题：当我从 excel 文件中读取数据时，我得到的是五位数字而不是日期。 根据我的阅读，这些数字是自 1900 年以来经过的天数。因此，实际列还包含五位数字、代表年份的四位数字和其他日期。 我已经处理了这个问题，但不是以最佳方式。 有没有一种通用的方法来处理所有这些格式？ 对不起，大帖子

ķ

Answer 1

谢谢大家的想法。 你是对的，我下次需要更具体。 老实说，我专注于解决问题，我相信我做到了。

关于数据，一个简单的说明可能如下：

date
08/2003
12/06/2002
38054
2004
...
...
...

首先，我发现 dataframe 列（RHO_DataBase$date）的哪些元素表示为年份（例如 2003）并将它们转换为日期（例如 15/05/2003）：

#Step 1
counter1 <- which( (!is.na(as.numeric(RHO_DataBase$date))) & (as.numeric(RHO_DataBase$date)<2030)  )
for (i in counter1) {
  RHO_DataBase$date[i] <- paste ("15/05/",sep="",RHO_DataBase$date[i])
}

然后，我找到了哪些元素以数值表示（自 1899 年 12 月 30 日以来的天数），并将它们的格式转换为日/月/年

#Step 2
counter2 <- which(!is.na(as.numeric(RHO_DataBase$date)))
for (i in counter2) {
  RHO_DataBase$date[i] <- format(as.Date(as.numeric(RHO_DataBase$date[i]), origin = "1899-12-30"),'%d/%m/%Y')
}

然后，我找到了以其他剩余格式表示的列元素，在这种情况下只有月/年，并使用粘贴将其更改为日/月/年。

# Step 3:
counter3<-which(is.na(as.Date( RHO_DataBase$date, "%d/%m/%Y") ) )
for (i in counter3) {
  RHO_DataBase$date[i] <- paste ("01/",sep="",RHO_DataBase$date[i])
} 

干杯，K