R语言数据框中至少3个Point列值为1时如何新增Point列

你不需要枚举所有3列的组合来判断，直接按行统计Point_A到Point_E中值为1的列数，再做判断即可，代码简洁且可扩展性强。

dplyr实现（最常用） #

library(dplyr)

df <- df %>%
  mutate(
    # 自动匹配所有Point_开头的列，按行统计值为1的个数
    Point = ifelse(
      rowSums(across(starts_with("Point_")) == 1, na.rm = TRUE) >= 3,
      1,
      NA
    )
  )

逻辑说明 #

• starts_with("Point_")会自动选中所有列名以Point_开头的字段，不需要手动逐个输入列名，后续如果新增Point_F、Point_G这类列，代码不需要修改就能适配
• 对选中的列做==1判断时，值为1的位置会返回逻辑值TRUE（计算时等价于数值1），非1值、NA值会返回FALSE（计算时等价于数值0）
• rowSums(..., na.rm = TRUE)按行对逻辑值求和，直接得到每行里值为1的列的总数量
• 最后判断总数量≥3时给Point列赋值1，否则赋值NA，运行结果和你给出的预期输出完全一致。

基础R实现（无需加载第三方包） #

如果不想依赖dplyr，用基础R函数也可以快速实现：

# 匹配所有Point_开头的列名
point_cols <- grep("^Point_", names(df), value = TRUE)
# 按行统计值为1的列数
valid_count <- rowSums(df[, point_cols] == 1, na.rm = TRUE)
# 生成新列
df$Point <- ifelse(valid_count >= 3, 1, NA)

这种写法的效率远高于枚举所有三列组合的写法，尤其是当Point类的列数变多时，不需要手动罗列所有判断条件，也不会因为漏写组合导致结果出错。

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