R语言中筛选满足数值条件的数据框基因条目问题

你的原代码存在两个核心问题：

1. 不必要地提取了数据框的第一行并重新赋值，丢失了完整数据的维度信息，导致筛选逻辑仅基于单行判断，无法覆盖所有数据。
2. 列筛选的逻辑有误，colSums(xxx <= 0.15) == 0仅判断第一行是否大于0.15，而非整列所有值都满足条件，这直接导致结果中仍出现小于0.15的值。

根据你的需求（筛选数值大于0.15的基因条目），分两种常见场景给出修正代码：

场景1：基因是数据框的列，需保留所有值都大于0.15的基因列 #

# 简化变量名，提升可读性
filtered_data <- data
# 筛选整列所有值都大于0.15的列
filtered_data <- filtered_data[, apply(filtered_data, 2, function(col) all(col > 0.15))]

场景2：基因是数据框的行，需保留所有值都大于0.15的基因行 #

filtered_data <- data
# 筛选整行所有值都大于0.15的行
filtered_data <- filtered_data[apply(filtered_data, 1, function(row) all(row > 0.15)), ]

补充说明 #

• 若你只需要保留存在至少一个值大于0.15的基因（列/行），只需将代码中的all替换为any即可。
• 避免使用过长的变量名，不仅难以维护，还容易出现拼写错误导致逻辑混乱。

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