基于条件替换列值遇异常：dplyr操作多列DataFrame出错求解答

1. 赋值逻辑错误：你用df['new_col'] <- ...时，右侧df %>% mutate(tenure = ...)返回的是完整的3列DataFrame。R在将多列数据赋值给单列时，会把整个DataFrame按列优先拼接成一个长向量，再截取与目标列行数一致的前N个元素，而这部分正好是第一列num的内容，所以看起来像是“选中了第一列”。
2. 数据框创建有隐患：用cbind生成矩阵再转成DataFrame，会强制所有列类型统一为字符型，原本的数值列num也被转成字符，后续处理容易出现类型问题。

方案1：用dplyr直接生成新列（推荐） #

修正数据框创建方式，同时在管道中直接添加目标新列，无需额外赋值操作：

library(dplyr)
# 直接通过data.frame参数创建，保留各列原始数据类型
df <- data.frame(
  num = c(1,2,3,4), 
  tenure = c('Unknown', 'a', 'Unknown', 'b'),
  tenure_2 = c('t', 's', 'u', 'v'),
  stringsAsFactors = FALSE # R版本≥4.0可省略此参数
)

# 直接添加new_col，不修改原tenure列
df <- df %>%
  mutate(new_col = ifelse(tenure == "Unknown", tenure_2, tenure))

方案2：基础R实现（无需dplyr） #

如果不想依赖dplyr，用基础R语法直接赋值：

df <- data.frame(
  num = c(1,2,3,4), 
  tenure = c('Unknown', 'a', 'Unknown', 'b'),
  tenure_2 = c('t', 's', 'u', 'v'),
  stringsAsFactors = FALSE
)

df$new_col <- ifelse(df$tenure == "Unknown", df$tenure_2, df$tenure)

额外说明 #

• 若你需要的是修改原tenure列而非创建新列，直接执行df <- df %>% mutate(tenure = ifelse(...))即可，不需要额外的列赋值操作。
• 避免用cbind+data.frame的组合创建数据框，直接给data.frame()传递命名参数是更规范的写法，能有效保留各列的原始数据类型。

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