一年中增加几个月和几天

Question

我有一个数据框，其中一个变量包含具有不同格式的日期：

1970-01-09
1974
1970
1987-05-28
1970-06-01
1980

我想在只有可用年份的所有日期上添加“ 01-01”，以便每个日期都具有相同的格式。

欢迎任何建议。

Answer 1

随时使用 软件包：

library(anytime)

x <- c("1970-01-09","1974","1970","1987-05-28","1970-06-01","1980")
anydate(x)
# [1] "1970-01-09" "1974-01-01" "1970-01-01" "1987-05-28" "1970-06-01" "1980-01-01"

或使用粘贴：

ifelse(nchar(x) == 4, paste(x, "01-01", sep = "-"), x)