Вы можете сделать последовательность дат (и дней, оба с lubrirdate
), отфильтровать выходные и посчитать количество строк:
library(dplyr)
library(lubridate)
df <- data_frame(date = seq(ymd("2018-06-01"), ymd("2018-09-30"), by = "days"))
days <- mutate(df, day = wday(date, label = T)) %>%
filter(day != "Sat", day != "Sun") %>%
nrow()