Как флаг прошлой пятнице или в последний день или месяц

Question

У меня есть кадр данных даты и дня недели

> head(data) 
     day weekday 
1 2016-01-01 Friday 
4 2016-01-04 Monday 
5 2016-01-05 Tuesday 
6 2016-01-06 Wednesday 
7 2016-01-07 Thursday 
8 2016-01-08 Friday 

вот код:

data <- data.frame(day = seq(as.Date("2014-01-01"), as.Date("2016-05-10"), "day"), 
        weekday = weekdays(seq(as.Date("2014-01-01"), as.Date("2016-05-10"), 
             "day"))) 
excludeDays <- c("Saturday", "Sunday") 
data <- subset(data, !weekdays(data$day) %in% excludeDays) #exclude weekend 

Я хотел бы добавить 2 столбца, обозначающие последнюю пятницу в каждом месяце и в последний день месяца независимо от того, в какой день. Как бы Вы это сделали?

Для уточнения: Я бы хотел (а) чтобы он идентифицировал меня только для моих данных, если дата является последней датой в месяце. Например, если у моих данных есть даты в январе 2016 года, и последняя дата в январе у меня есть 1/20/2016, то это должно быть отмечено как последний день месяца. Точно так же я хотел бы определить последнюю пятницу месяца в моих данных не по календарю.

Answer 1

С дополнительных разъяснений и после комментария по @eminik код ниже

library(data.table) 
setDT(data) 
data[, LastDayInMonth := day == max(day), by = .(year(day), month(day))] 
data[, LastFridayInMonth := weekday == "Friday" & day == max(day), 
    by = .(year(day), month(day), weekdays(day))] 

производит:

# show results (only relevant rows) 
data[LastDayInMonth | LastFridayInMonth == TRUE] 

      day weekday LastDayInMonth LastFridayInMonth 
1: 2016-01-29 Friday   TRUE    TRUE 
2: 2016-02-26 Friday   FALSE    TRUE 
3: 2016-02-29 Monday   TRUE    FALSE 
4: 2016-03-25 Friday   FALSE    TRUE 
5: 2016-03-31 Thursday   TRUE    FALSE 
6: 2016-04-29 Friday   TRUE    TRUE 
7: 2016-05-06 Friday   FALSE    TRUE 
8: 2016-05-10 Tuesday   TRUE    FALSE 

Edit: Измененный код для учета изменения лет как запрошенный ОП.

Примечание:weekdays возвращает символ вектор имен в локали в использовании. Поэтому код работает только в том случае, если вы находитесь в английском языке. В противном случае вам, возможно, придется использовать Sys.setlocale(category = "LC_ALL", locale = "English").

Answer 2

Я использую lubridate для расчета даты, но поскольку у вас отсутствуют промежутки времени между ними, я использую функцию lead() от dplyr, чтобы найти на следующий день (строку) в данных.

library(lubridate) 
library(dplyr) 
my.data <- tbl_df(data) 
my.data <- my.data %>% 
    # First last day of month 
    # get the next day in the data 
    mutate(next.day = lead(day)) %>% 
    # it's month is different 
    mutate(LastDayInMonth = ifelse(month(day) != month(next.day), T, F)) %>% 
    # Now Last Friday 
    mutate(LastFridayInMonth = 
       ifelse((wday(day) == 6) & # It's a Friday 
       # Check the month of next Friday, different 
       (month(lead(day, 5)) != month(day) 
       | is.na(lead(day, 5))), T, F)) 

Answer 3

library(lubridate) 
library(dplyr) 
data%>% 
    mutate(year = year(day),month= month(day)) %>% 
    group_by(year, month) %>% 
    mutate(LastDayInMonth = max(day)==day)%>% 
    arrange(day) %>% 
    ungroup() %>% 
    group_by(year, month, weekday) %>% 
    mutate(LastWeekInMonth = row_number() == n(), 
     LastFriayInMonth = weekday =="Freitag" & LastWeekInMonth == 1) %>% 
    ungroup()%>% 
    select(day, weekday, LastDayInMonth,LastFriayInMonth) 

же отрывок, как указано выше (%>% фильтра (LastDayInMonth | LastFriayInMonth == TRUE):?.

Source: local data frame [8 x 4] 

     day weekday LastDayInMonth LastFriayInMonth 
     (date)  (fctr)   (lgl)   (lgl) 
1 2016-01-29 Freitag   TRUE    TRUE 
2 2016-02-26 Freitag   FALSE    TRUE 
3 2016-02-29  Montag   TRUE   FALSE 
4 2016-03-25 Freitag   FALSE    TRUE 
5 2016-03-31 Donnerstag   TRUE   FALSE 
6 2016-04-29 Freitag   TRUE    TRUE 
7 2016-05-06 Freitag   FALSE    TRUE 
8 2016-05-10 Dienstag   TRUE   FALSE