К
Size: a a a
К
a
ДВ
К
ДВ
К
ДВ
К
К
ЮМ
df %>%
group_by(gene) %>%
filter(predLargeSeg != 2)
К
К
a
a
library(tidyverse)
df <- tibble(gene = c("a", "a", "b", "b", "b", "c"),
value = c(2, 3, 3, 4, 5, 2))
df %>%
filter(value != 2) %>%
pull(gene) %>%
unique() ->
our_genes
df %>%
filter(gene %in% our_genes)
К
ДВ
К
К
ДВ
df %>% group_by(gene) %>% filter(length(unique(predLargeSeg)) != 1 & min(predLargeSeg) != 2)