R语言中筛选值大于1的数据行的方法咨询

Hey Anna, let's break down why your original code wasn't working and get you the right way to filter rows where values are greater than 1.

原代码的问题 #

Your code sel <- apply(data[,collist],1,function(row) "1" %in% row) has two key issues:

• You're checking for the string "1" instead of the numeric value 1. If your data is numeric, this condition will never match anything.
• The %in% operator checks if a specific element exists in the row, not whether any (or all) values are greater than 1. That's why your subsetting wasn't behaving as expected.

正确的筛选方法 #

We need to adjust the logic based on exactly what you want: whether you want rows where at least one value is >1, or rows where all values are >1.

1. 筛选至少有一个值大于1的行

This is the most common use case. You can use rowSums (super efficient for large datasets) or apply with any():

# Method 1: Using rowSums (fastest)
sel <- rowSums(data[, collist] > 1, na.rm = TRUE) > 0
filtered_data <- data[sel, ]

# Method 2: Using apply with any()
sel <- apply(data[, collist], 1, function(row) any(row > 1, na.rm = TRUE))
filtered_data <- data[sel, ]

The na.rm = TRUE flag ensures missing values don't break the check—remove it if you want NA values to make the row fail the condition.

2. 筛选所有值都大于1的行

If you need every value in the row (from collist columns) to be greater than 1, use apply with all() or the matrixStats package for better performance:

# Method 1: Base R with apply()
sel <- apply(data[, collist], 1, function(row) all(row > 1, na.rm = TRUE))
filtered_data <- data[sel, ]

# Method 2: Using matrixStats (faster for big data)
library(matrixStats)
sel <- rowAlls(as.matrix(data[, collist]) > 1, na.rm = TRUE)
filtered_data <- data[sel, ]

注意事项 #

If your columns in collist are stored as character strings (instead of numeric), you'll need to convert them first:

data[collist] <- lapply(data[collist], as.numeric)

内容的提问来源于stack exchange，提问作者Anna