ЕТ
data %>% count(group) %>% arrange(desc(n)) %>% slice(5) %>% select(n) %>% unlist() -> tags_group
data %>% filter(group %in% tags_group) -> new_data
#darkwisard
Size: a a a
ЕТ
data %>% count(group) %>% arrange(desc(n)) %>% slice(5) %>% select(n) %>% unlist() -> tags_group
data %>% filter(group %in% tags_group) -> new_data
n
data %>% count(group) %>% arrange(desc(n)) %>% slice(5) %>% select(n) %>% unlist() -> tags_group
data %>% filter(group %in% tags_group) -> new_data
ЕТ
filter(group == "one_group', group == "two_group")
n
filter(group == "one_group', group == "two_group")
ЕТ
n
ЕТ
V
n
KT
ЕТ
V
ЕТ
V
n
KT
V
V
n
n