Используйте mutate с оператором ifelse
для перекодирования каждого значения, меньшего 12. Суммируйте затем с помощью dplyr
.
df <- data.frame(
Education = c(18, 16, 15, 12, 10, 8),
entries = c(200, 100, 50, 50, 10 ,5)
)
Вы сказали, что Education - это групповая вариабельность, так что это означает, чтоне оригинал data.frame, верно?
df %>%
ungroup() %>%
mutate(Education = ifelse(Education < 12, "others", Education)) %>%
group_by(Education) %>%
summarise(entries = sum(entries))