Определение недели в столбце дат и создание автоматических подмножеств кадра данных в неделю

Question

Я хочу автоматизировать код, который рассчитывает время транспортировки.Я хотел бы, чтобы код давал мне 4 месяца, которые вы можете выбрать из большого показания из года, и делил последний месяц на четыре недели и просто описывает подмножества данных (описание не является проблемой).

Создание подмножеств из набора данных для выбранных месяцев не является проблемой, потому что я могу определить месяцы.Но я борюсь за 3/4 недели прошлого месяца.Мне нужно идентифицировать их автоматически и после этого генерировать подмножества.(Я надеюсь, что генерация подмножеств будет проще после идентификации.)

Я могу дать вам небольшой макет моих данных.

dates <- as.Date(c("2019-01-07", "2019-01-08", "2019-01-09", 
               "2019-01-15", "2019-01-21"))

number <- c(12,13,14,15,20)

df <- data.frame(number, dates)

Оригинальный df содержит 60 переменных, но яПоверьте, этот простой макет может предоставить достаточно информации для задачи.

Я довольно новичок в r, я не знаю, как решить проблему, я покажу вам, как я решал ее с месяцами, но, как сказалв данном случае они определены.

function(data = df, m1 = "01" , m2 = "02") {

Monat1 <- subset(data, format.Date(dates  , "%m") == m1)

Спасибо, что помогли мне немного.

Answer 1

Вы можете сделать это, используя базу R и lubridate

Данные

dates <- as.Date(c("2019-01-07", "2019-01-08", "2019-01-09", 
                   "2019-01-15", "2019-01-21"))

number <- c(12,13,14,15,20)

df <- data.frame(number, dates)
str(df)

Ответ

library(lubridate)
df$condition <- ifelse(month(df$dates) == month(Sys.Date())-1,week(df$dates),"-")

условие проверит, если дата меньше месяца назадили нет, и если да, это даст вам номер недели для этого конкретного значения

Answer 2

вы можете использовать функцию strftime

strftime(df$dates, format = "%W")

, в rstudio используйте

?strftime()

, чтобы увидеть все различные значения, которые можно извлечь из даты или объекта POSIXCT