ЕТ
Size: a a a
ЕТ
a
JL
data <- mtcars %>% 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
}
JL
АК
data <- mtcars %>% 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
, !!
портят всю простоту, ибо эзотеричны по природе.JL
JL
JL
for (group in names(data)){
data %<>% group_by_(group) %>% filter(n() > lim) %>% ungroup
}
!!sym(group)-подобному =)
A
for (group in names(data)){
data %<>% group_by_(group) %>% filter(n() > lim) %>% ungroup
}
!!sym(group)-подобному =)
{{}}
завезли для этих целейJL
БА
АК
БА
DD
EP
DD
БА
АК
БА
АК