Вы можете рассмотреть dplyr
библиотеку. В этом пакете есть функция filter
, которая позволяет вам задавать строки с заданными условиями.
Добавляя _if
за функцией, вы можете легко выбирать только числовые столбцы , используя is.numeric
.
x <- data.frame(TTT=c(0,1,0,0),
TTA=c(0,1,1,0),
ATA=c(1,0,0,0),
gene=c("gene1", "gene2", "gene3", "gene4"))
library(dplyr)
x %>%
filter_if(is.numeric, any_vars(. != 0)) # any_vars() takes |
#> TTT TTA ATA gene
#> 1 0 0 1 gene1
#> 2 1 1 0 gene2
#> 3 0 1 0 gene3