使用 R 来获得上一个和明年没有几天的优雅方式？答案

【问题标题】：Elegant way to get no of days to prev and next year using R?使用 R 来获得上一个和明年没有几天的优雅方式？
【发布时间】：2020-07-02 22:52:20
【问题描述】：

我有一个如下所示的 R 数据框

test_df <- data.frame("subbject_id" = c(1,2,3,4,5), 
          "date_1" = c("01/01/2003","12/31/2007","12/30/2008","01/02/2007","01/01/2007"))

我想知道前一年和明年的天数。

我正在尝试类似下面的东西

library(lubridate)
test_df$current_yr = year(mdy(test_df$date_1))
prev_yr = test_df$current_yr - 1 #(subtract 1 to get the prev year)
next_yr = test_df$current_yr + 1 #(add 1 to get the prev year)
days_to_prev_yr = days_in_year(current_yr) # this doesn't work

在 python 中，我知道我们有一些名为 day of the year 和 offsets.YearEnd(0) 等的东西，我基于 post 知道了这些东西。但是可以帮助我如何使用 R 来做到这一点？

我希望我的输出如下所示

【问题讨论】：

标签： r dataframe datetime dplyr lubridate

【解决方案1】：

您可以使用lubridate 中的ceiling_date 和floor_date 得到一年中的第一天和最后几天，然后用date_1 减去它得到days_to_previous_year 和days_to_next_year。

library(dplyr)
library(lubridate)

test_df %>%
  mutate(date_1 = mdy(date_1), 
         previous_year = floor_date(date_1, 'year'), 
         next_year = ceiling_date(date_1, 'year') - 1, 
         days_to_previous_year = as.integer(date_1 - previous_year), 
         days_to_next_year = as.integer(next_year - date_1)) %>%
  select(-previous_year, -next_year)


#  subbject_id     date_1 days_to_previous_year days_to_next_year
#1           1 2003-01-01                     0               364
#2           2 2007-12-31                   364                 0
#3           3 2008-12-30                   364                 1
#4           4 2007-01-02                     1               363
#5           5 2007-01-01                     0               364

【讨论】：

【解决方案2】：

dplyr 和 lubridate 选项可以是：

test_df %>%
 mutate(date_1 = mdy(date_1),
        days_to_prev_year = date_1 - mdy(paste0("01-01-", year(date_1))),
        days_to_next_year = mdy(paste0("12-31-", year(date_1))) - date_1)

  subbject_id     date_1 days_to_prev_year days_to_next_year
1           1 2003-01-01            0 days          364 days
2           2 2007-12-31          364 days            0 days
3           3 2008-12-30          364 days            1 days
4           4 2007-01-02            1 days          363 days
5           5 2007-01-01            0 days          364 days

【讨论】：