使用R按列名遍历指定列时误删非目标列的问题解决

首先纠正你生成目标列名的方式，别转成list，直接存成字符向量就行：

# 方法1：用dplyr生成目标列名
apple_cols <- df %>% 
  select(contains("apple")) %>% 
  select(!contains("apple_1")) %>% 
  colnames()

# 方法2：用base R更简洁
apple_cols <- grep("apple", colnames(df), value = TRUE)
apple_cols <- apple_cols[apple_cols != "apple_1"]

然后分两种方式实现需求：

方式1：用dplyr批量修改（推荐，代码更简洁高效） #

不需要循环，用across批量处理目标列，其他列会自动保留：

library(dplyr)

df <- df %>%
  mutate(across(all_of(apple_cols), ~ifelse(apple_1 == 1, 1, .x)))

方式2：用循环实现（如果你偏好循环写法） #

遍历目标列名，而不是用索引，这样就不会修改到非目标列：

for (col in apple_cols) {
  df[[col]] <- ifelse(df$apple_1 == 1, 1, df[[col]])
}

你原来代码的问题： #

1. 把列名转成了list类型，导致后续循环的索引逻辑完全错误——ncol(applelist)对list来说没有意义，循环时取df[,i]其实是修改了df的第i列，而不是你想要的apple列。
2. 用索引定位列很容易出错，尤其是当df列顺序变化时，用列名定位更可靠。

内容的提问来源于stack exchange，提问作者Steinunn Sigurjónsdóttir