如何在Tidyverse函数中处理临时列且不覆盖现有数据？

在使用R语言tidyverse开发函数时，常需创建临时列完成中间计算，但如果临时列名与用户数据中已有列同名，会覆盖原有列导致非预期结果。示例如下：

fun <- function(data, col) {
  data |> 
    mutate(col2 = {{ col }} * 2) |> 
    filter(col2 <= 4) |>
    select(-col2)
}

iris |> fun(Petal.Length)

该函数正常运行无问题，但如果输入数据已存在col2列，它会被覆盖并最终被移除，这不符合预期。虽然简单场景下可直接将计算逻辑嵌入filter，但复杂场景仍需可靠的临时列管理方案。

以下是tidyverse中推荐的几种解决方案：

1. 内嵌计算逻辑（简单场景） #

对于单步中间计算，直接将表达式嵌入到需要的步骤中，完全避免创建临时列，无冲突风险：

fun <- function(data, col) {
  data |> 
    filter({{ col }} * 2 <= 4)
}

2. 生成唯一临时列名（复杂场景） #

通过动态生成带随机后缀的临时列名（以.开头标记为临时），几乎消除冲突概率，同时保持代码可读性：

library(rlang)

fun <- function(data, col) {
  # 生成唯一临时列名
  temp_col <- sym(paste0(".temp_", sample.int(1e6, 1)))
  
  data |> 
    mutate(!!temp_col := {{ col }} * 2) |> 
    filter(!!temp_col <= 4) |>
    select(-!!temp_col)
}

利用rlang的非标准求值（!!）将动态生成的列名注入dplyr函数，完成计算后移除临时列。

3. 检查并动态调整列名（高安全性场景） #

先检查拟用的临时列名是否存在，若存在则循环调整直至找到唯一名称，确保绝对无冲突：

library(rlang)

fun <- function(data, col) {
  base_name <- "temp_col"
  temp_col <- base_name
  
  # 确保列名唯一
  while(temp_col %in% colnames(data)) {
    temp_col <- paste0(base_name, "_", sample.int(100, 1))
  }
  
  temp_col_sym <- sym(temp_col)
  
  data |> 
    mutate(!!temp_col_sym := {{ col }} * 2) |> 
    filter(!!temp_col_sym <= 4) |>
    select(-!!temp_col_sym)
}

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