используя Tidyverse для создания переменной, а не базы R

Question

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

df$qrtr[df$amonth %in% 1:3]<- "a"    
df$qrtr[df$amonth %in% 4:6] <- "b"    
df$qrtr[df$amonth %in% 7:9]<- "c"    
df$qrtr[df$amonth %in% 10:12]<- "d"

Answer 1

Почему бы не использовать lubridate для этого?если столбец «amonth» является объектом даты, вы можете

df %>% mutate(qtr = lubridate::floor_date(amonth, "3 month"))

Answer 2

Как предложил @Tung, можно использовать case_wp dplyr:

df %>% 
  mutate(qtr = case_when(
   .$amonth %in% 1:3) ~ 'a',
   .$amonth %in% 4:6) ~ 'b',
   .$amonth %in% 7:9) ~ 'c',
   .$amonth %in% 10:12) ~ 'd',
   TRUE ~ NA))

Несколько более читаемый подход - это комбинация.Метод трубопровода dplyr предназначен для улучшения читабельности, поэтому комбинация может быть сделана в виде:

seasons <- rep(c('a','b','c','d'), each=3)
df %>% mutate(qtr=seasons[amonth])

, который, возможно, перепрыгивает через ожог, чтобы получить воду, поскольку вторая строка эквивалентна df$qtr <- seasons[df$amonth].Но, в сочетании с другими операциями, одна или другая является более подходящей.