R语言data frame新增列名异常：预期为outcome实际为FISV.Volume

• 该问题本质是R语言数据框[索引赋值的隐式结构匹配规则触发了列名覆盖，和代码中指定的新列名字符串本身无关。
• 触发逻辑链条非常明确：
  1. R中不同取列写法的返回结构有固定差异：
     • 仅传列索引的单中括号写法（如df["列名"]），无论取多少列，永远返回对应维度的data.frame，且会完整保留原列名
     • 同时指定行、列位置的单中括号写法（如df[, "列名"]），默认开启drop=TRUE，会返回纯原子向量
  2. 你代码中参与比较的第二个列nasdaq100[outcomeSymbol] 就是不带行位置的单中括号写法，返回带FISV.Volume列名的单列数据框；第一个比较列是带逗号的写法返回向量。两者做大小比较时，R会自动把向量广播为与数据框一致的结构，最终ifelse的返回结果就会带着原有的FISV.Volume列名，成为一个单列数据框。
  3. 把这个带列名的单列数据框通过nasdaq100["outcome"] <- 值赋值时，R的赋值逻辑会优先使用右值自带的列名，覆盖左值位置上指定的新列名，最终就出现了“指定列名是outcome、实际列名是FISV.Volume”的异常。
• 这也解释了改用$操作符依然出现相同问题的原因：只要右值本身是带列名的单列数据框结构，无论用哪种索引方式赋值，都会触发列名覆盖。

• 核心原则：给数据框新增列时，右值必须是纯原子向量，不能是带列名的单列数据框
• 可直接替换的有效写法：
  1. 显式指定取列返回纯向量：

     outcomeSymbol <- "FISV.Volume" 
     nasdaq100["outcome"] <- ifelse(
       nasdaq100[, paste0(outcomeSymbol,".1"), drop = TRUE] > nasdaq100[, outcomeSymbol, drop = TRUE],
       1, 0
     )
     

  2. 用双中括号[[取列（无论数据集结构如何，都返回原子向量，不会保留原列名）：

     nasdaq100$outcome <- ifelse(
       nasdaq100[[paste0(outcomeSymbol,".1")]] > nasdaq100[[outcomeSymbol]],
       1, 0
     )
     

  3. 用dplyr::mutate新增列，自动规避结构不匹配问题：

     library(dplyr)
     nasdaq100 <- nasdaq100 %>% 
       mutate(outcome = ifelse(.data[[paste0(outcomeSymbol,".1")]] > .data[[outcomeSymbol]], 1, 0))
     

• 数据框本身默认允许存在重复列名，遇到列名莫名异常时，可以先执行colnames(nasdaq100) 检查实际列名列表，排查是否存在隐式结构转换导致的列名覆盖。
• 对从xts/zoo等时间序列类对象转换来的数据框，取列时不要依赖默认的drop参数规则，显式指定返回结构，能规避大部分无报错的命名异常。

内容的提问来源于stack exchange，提问作者L.H.