Мы можем использовать %in%
с ifelse
.Создайте логический вектор с помощью %in%
и назначьте «влажный сезон», где «Месяц» начинается с 6:10, или «1004» возвращайте как «сухой сезон»
library(tidyverse)
df1 %>%
mutate(Season = ifelse(Month %in% 6:10, 'wet season', 'dry season'))