如何基于p值行筛选mtcars数据框列：保留p≤0.05的列

直接通过行索引提取第一行的p值，生成筛选条件后保留符合要求的列，代码如下：

# 生成筛选条件：保留第一列（Cars），以及第一行p值≤0.05的列
keep_columns <- c(TRUE, DF[1, -1] <= 0.05)

# 筛选得到新数据集
filtered_DF <- DF[, keep_columns]

代码说明 #

• DF[1, -1]提取第一行（即标记为"p-value"的行）中除第一列（Cars）外的所有p值
• DF[1, -1] <= 0.05生成一个逻辑向量，标记哪些列的p值满足≤0.05的条件
• c(TRUE, ...)确保第一列（Cars）始终被保留，再结合逻辑向量筛选出所有符合要求的列

如果担心行号定位出错（比如后续数据行顺序可能变化），也可以通过Cars列的值精准定位p-value行：

# 精准定位p-value行的p值
p_vals <- DF[DF$Cars == "p-value", -1]

# 生成筛选条件
keep_columns <- c(TRUE, as.vector(p_vals <= 0.05))

# 筛选数据集
filtered_DF <- DF[, keep_columns]

这种方式更鲁棒，即使数据行顺序改变，只要Cars列的"p-value"标识存在，就能正确提取p值进行筛选。

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