ДВ
Кажется вот так должно точно сработать
Size: a a a
2021 April 09
К
а можно пояснить filter(length(unique(predLargeSeg)) != 1
ДВ
самое главное забыл!))
df %>% group_by(gene) %>% filter(length(unique(predLargeSeg)) != 1 & min(predLargeSeg) != 2) %>% ungroup()ДВ
Смотрите, мы по каждой группе (гену) смотрим количчество уникальных значений в predLargeSeq
И в итоге отбираем только те гены, у которых количество уникальных больше 1 и при этом не равно 2
И в итоге отбираем только те гены, у которых количество уникальных больше 1 и при этом не равно 2
ДВ
Хотя не
ДВ
я ошибся(
К
)))))
ДВ
во!
df %>% group_by(gene) %>% filter(! (length(unique(predLargeSeg)) == 1 & min(predLargeSeg) == 2))ДВ
Тут мы действуем прямо явно. Исключаем те гены, у которых есть только одно уникальное значение проверочной величины и это значение равно 2))
ДВ
для этого ставим отрицание (!) перед условием одно уникальное значение и оно равно 2
a
Я бы тогда делал так:
tibble(gene = c("a", "a", "b", "b", "b", "c"),
value = c(2, 3, 3, 4, 5, 2)) %>%
group_by(gene) %>%
filter(sum(value != 2) > 0)К
пасяб, ща будем пробовать)
ДВ
во, так круче, да)
К
забавно, @@volodin_dd @aGricolaMZ,
Код
Error: Problem with
x object 'value' not found
ℹ️ Input
ℹ️ The error occurred in group 1: gene = "ABL1".
Тогда как
Код
tibble(gene = c("a", "a", "b", "b", "b", "c"),
value = c(2, 3, 3, 4, 5, 2)) %>%
group_by(gene) %>%
filter(sum(value != 2) > 0)
выдает ошибку:Error: Problem with
filter() input ..1.x object 'value' not found
ℹ️ Input
..1 is sum(value != 2) > 0.ℹ️ The error occurred in group 1: gene = "ABL1".
Тогда как
df %>% group_by(gene) %>% filter(! (length(unique(predLargeSeg)) == 1 & min(predLargeSeg) == 2)) все сделал ровноДВ
Переименуйте переменную в первом варианте))
ДВ
Вам трассировщик на это явно указал
К
бл*
ДВ
с value на нужную вам
К
сорян
К
заработался совсем уже