如何在R中将只有一年的日期转换为格式为“年月日”的日期

Question

对于这个问题，很抱歉，我一个月前开始使用RStudio，但遇到了从未学过的事情。 在过去的两天里，我检查了所有可能的网站，帮助和论坛，这让我发疯。

我有一个名为Release的变量，它给出了歌曲发行的日期。 有些日期采用%Y-%m-%d格式，而另一些仅给我年份。 我希望它们都一样，但是我努力只修改年份的观测值。

简要总结：

11/11/2011
01/06/2011
1974
1970
16/09/2003

我已使用导入数据：

music<-read.csv("music2.csv", header=TRUE, sep = ",", encoding = "UTF-8",stringsAsFactors = F)

这就是我在RStudio中的方式

"2011-11-11" "2011-06-01" "1974" "1970" "2003-09-16" 

这是一个示例，因为我有2200个Obs。

工作代码是

Modifdates<- ifelse(nchar(music$Release)==4,paste0("01-01-",music$Release),music$Release)
Modifdates

我得到这个：

"2011-11-11" "2011-06-01" "01-01-1974" "01-01-1970" "2003-09-16" 

我只是希望它们都具有相同的格式“％Y-％m-％d”。 我怎样才能做到这一点？

所以我尝试了这个

as.Date(music$Release,format="%Y-%m-%d")

但是我得到了NA修改日期的地方。

有人可以帮忙吗？

Answer 1

欢迎使用SO，请下次尝试提供可复制的示例，以便我们为您提供最佳帮助。 我认为您可以在这里使用：

testdates <- c("1974", "12-12-2012")
betterdates <- ifelse(nchar(testdates)==4,paste0("01-01-",testdates),testdates)
> betterdates
[1] "01-01-1974" "12-12-2012"

编辑：如果您的向量是因素，您应该首先使用as.character.factor 。 如果您随后想要转换回因子，则可以使用as.factor

EDIT2：在执行此as.date之前，请不要转换as.date 。 仅在此修改后执行

Answer 2

更新资料

使用sub查找从单个年份（ "(^[0-9]{4}$)"部分）组成的日期，使用后向引用替换它，以在字符串的末尾添加-01-01 （ "\\\\1-01-01"部分），最后使用as.Date()将其转换为date类（ as.Date()默认为format = "%Y-%m-%d"因此您不需要指定它）：

dat <- c("2011-11-11", "2011-06-01", "1974", "1970", "2003-09-16") 

dat类是character ：

as.Date(sub("(^[0-9]{4}$)", "\\1-01-01", dat))

# "2011-11-11" "2011-06-01" "1974-01-01" "1970-01-01" "2003-09-16"

dat类是factor ，但是sub自动将character强制转换为character类：

 # dat <- as.factor(dat); dat # 2011-11-11 2011-06-01 1974 1970 2003-09-16 # Levels: 1970 1974 2003-09-16 2011-06-01 2011-11-11 as.Date(sub("(^[0-9]{4}$)", "\\\\1-01-01", dat)) # "2011-11-11" "2011-06-01" "1974-01-01" "1970-01-01" "2003-09-16"