dplyr::select重复使用列问题：为何无法创建同一列的多个别名？

你遇到的这个情况其实是dplyr刻意设计的逻辑，不是程序错误。让我拆解一下：

当你运行select(mtcars, foo=mpg, bar=mpg)时，select()的核心定位是选择并重命名现有列，它会把重复引用同一列的参数视为“重命名冲突”，最终只保留最后一次的命名结果（也就是bar=mpg）。这个设计是为了避免用户在选择列时不小心重复选同一列，导致数据框出现冗余的重复列。

解决办法 #

如果你的需求是把同一列复制成多个别名列，有几种简单的实现方式：

方法1：用mutate()先复制列，再select #

这是最直观的方式，先通过mutate()创建原列的副本，再选择需要的列：

library(dplyr)

mtcars %>%
  mutate(foo = mpg) %>%  # 先复制mpg为foo列
  select(foo, bar = mpg) # 再选择foo和重命名后的bar

方法2：在select()中使用表达式/.data代词 #

如果你想在select()一步完成，可以用公式或者.data代词来强制dplyr把每个引用当作独立的表达式，而不是直接的列选择：

# 用公式语法
mtcars %>%
  select(foo = ~mpg, bar = ~mpg)

# 用.data代词
mtcars %>%
  select(foo = .data$mpg, bar = .data$mpg)

这两种写法都会让dplyr生成两个独立的列，而不会覆盖之前的引用。

方法3：使用tibble::add_column()（可选） #

如果你习惯用tibble的工具，也可以先选择列，再添加副本：

library(tibble)

mtcars %>%
  select(bar = mpg) %>%
  add_column(foo = mtcars$mpg, .before = "bar")

小结 #

dplyr的这个设计是为了让select()更专注于“选择/重命名”的核心功能，减少意外冗余列的产生。如果需要复制列，交给mutate()或者上述的表达式写法就可以轻松解决啦！

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