as.Date带来的麻烦

Question

我目前有以下格式的日期数据: DDMMYYYY

我想使用以下代码将日期转换为适当的日期函数(我怀疑我需要这样做以可视化时态数据)：

data$DATE<-as.Date(as.character(data$DATE), "%d%m%Y")

这很好，但是使用个位数的日子会导致我得到NA结果，因为前面没有0。

示例：

17042018  = 2018-05-10
 5022018  = NA

什么是工作？在字符数小于8的情况下，我应该只粘贴0吗？

我对R很陌生，但如果你能把我送到正确的方向，我将不胜感激！

致敬，G

Answer 1

用零填充字符串，直到长度为8，然后转换：

a <- '5102017'
a <- sprintf('%08d', as.numeric(a))
as.Date(a, "%d%m%Y")

或者，在您的示例中：

data$DATE <- as.Date(sprintf('%08d', as.numeric(data$DATE)), "%d%m%Y")

您可能需要转换初始data$DATE，这取决于您的目标