將十進制月份和年份轉換為日期

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 package 中的一些不錯的功能：

as.yearmon將十進制月份的年份和floor轉換為 class yearmon 。

然后使用as.Date.yearmon及其frac參數將年月強制轉換為 class 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")