将十进制月份和年份转换为日期

问题描述

我有一个“十进制月份”和一个年份变量：

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")。或者至少到一年中的某一天。

解决方法

您可以使用 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")