select(cyl, vs, am, gear, carb)
data$vs[1] <- "kek"
data$am[3] <- "bishkek"
data$gear[5] <- "cheburek"
lim = 1
for (group in names(data)){
data %<>% group_by(!!sym(group)) %>% filter(n() > lim) %>% ungroup
}
Решение простое, но вот эти вот sym, !! портят всю простоту, ибо эзотеричны по природе.
Обсуждают сегодня