如何筛选单行列值为'Change'的R DataFrame列？

Base R 实现 #

问题出在直接用矩阵下标筛选列，需要先把判断结果转成一维逻辑向量，同时用drop=FALSE确保结果保持DataFrame格式：

# 提取第一行的逻辑判断结果（转为向量）
change_cols <- as.vector(medoid_df[1, ] == 'Change')
# 筛选目标列
filtered_df <- medoid_df[, change_cols, drop = FALSE]

或者用unlist简化写法：

filtered_df <- medoid_df[, unlist(medoid_df[1, ]) == 'Change', drop = FALSE]

dplyr 实现 #

用select()结合where()，针对每一列判断唯一元素是否为'Change'：

library(dplyr)

filtered_df <- medoid_df %>%
  select(where(~ .x == 'Change'))

如果需要更严谨（比如后续数据可能多行），可以用all()明确判断：

filtered_df <- medoid_df %>%
  select(where(~ all(.x == 'Change')))

关键说明 #

• 之前报错「下标为矩阵而非简单向量」，是因为medoid_df == 'Change'返回的是逻辑矩阵，而列下标需要一维向量，所以必须提取第一行的判断结果转为向量。
• drop=FALSE是Base R中的必要参数，避免当筛选后只剩一列时自动转为向量，确保结果始终是DataFrame格式。

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