r语言 - 将十进制月份和年份转换为日期

Question

我有一个'十进制月份'和一个年份变量:

df <- data.frame(decimal_month = c(4.75, 5, 5.25), year = c(2011, 2011, 2011))

如何将这些变量转换为Date?("2011-04-22" "2011-05-01" "2011-05-08")。或者至少一年中的一天。

Answer 1

您可以使用zoo包中的一些很好的函数:

as.yearmon将年和十进制月的floor转换为yearmon类。

然后使用as.Date.yearmon和它的frac参数将年-月强制转换为Date类。

library(zoo)
df$date = as.Date(as.yearmon(paste(df$year, floor(df$decimal_month), sep = "-")),
frac = df$decimal_month - floor(df$decimal_month))
#       decimal_month year        date
# 1              4.75 2011  2011-04-22
# 2              5.00 2011  2011-05-01
# 3              5.25 2011  2011-05-08 

如果需要，年份的日期仅为format(df$date, "%j")