在R中获取每个月的第一天和最后一天

Question

我需要在一个大数据框中获取每个月的第一天和最后一天的行，我需要在其中应用准确涵盖每个月的操作，使用 for 循环。不幸的是，数据框不是很均匀。这里有一个可重现的例子：

dataframe <- data.frame(Date=c(seq.Date(as.Date("2020-01-01"),as.Date("2020-01-31"),by="day"),
    seq.Date(as.Date("2020-02-01"),as.Date("2020-02-28"),by="day"),seq.Date(as.Date("2020-03-02"),
    as.Date("2020-03-31"),by="day")))

Answer 1

我们可以通过转换为 yearmon 来创建分组列，然后获取第一个和最后一个

library(zoo)
library(dplyr)
dataframe %>% 
   group_by(yearMon = as.yearmon(Date)) %>%
   summarise(FirstDay = first(Date), LastDay = last(Date))
# A tibble: 3 x 3
#  yearMon   First      Last      
#* <yearmon> <date>     <date>    
#1 Jan 2020  2020-01-01 2020-01-31
#2 Feb 2020  2020-02-01 2020-02-28
#3 Mar 2020  2020-03-02 2020-03-31

如果是第一天和最后一天不考虑数据

library(lubridate)
dataframe %>% 
   group_by(yearMon = as.yearmon(Date)) %>%
   summarise(First = floor_date(first(Date), 'month'), 
             Last = ceiling_date(last(Date), 'month')-1)

在R中获取每个月的第一天和最后一天

Getting first and last day of each month in R

r

dataframe

lubridate

tidyverse