咨询Tidyverse中mutate命令字符串变量LHS/RHS的规范写法

一、当前写法的问题与规范调整方向 #

你的函数能正常运行，但确实存在语法混用的情况。现在tidyverse推荐用更统一的dplyr动词语法处理动态列名，!!（bang-bang）并未被完全替代，但有更直观的替代方案，尤其适合教学场景。

二、统一写法优化 #

针对你的需求，推荐用.data代词、{{}}（curly-curly）配合case_when简化逻辑，让代码更清晰规范：

library(tidyverse)

noga_data <- tibble(NOGA = c("01", "02", "03", "05"))

assign_noga_class <- function(mydata, noga2, noga_class) {
  mydata %>%
    mutate(
      {{ noga_class }} := case_when(
        as.numeric({{ noga2 }}) %in% 1:3 ~ 1,
        as.numeric({{ noga2 }}) %in% 5:34 ~ 2,
        TRUE ~ NA_real_
      )
    )
}

assign_noga_class(noga_data, NOGA, "NOGA_CLASS")

优化点说明： #

• 动态列名（LHS）：用{{ noga_class }}直接处理字符串参数，替代!!noga_class :=，这是当前tidyverse推荐的直观写法。
• 引用现有列（RHS）：{{ noga2 }}用于传递未加引号的列名参数；如果传入的是字符串列名，可改用.data[[noga2]]，示例如下：

  # 适配字符串类型列名参数的写法
  assign_noga_class <- function(mydata, noga2, noga_class) {
    mydata %>%
      mutate(
        {{ noga_class }} := case_when(
          as.numeric(.data[[noga2]]) %in% 1:3 ~ 1,
          as.numeric(.data[[noga2]]) %in% 5:34 ~ 2,
          TRUE ~ NA_real_
        )
      )
  }
  assign_noga_class(noga_data, "NOGA", "NOGA_CLASS")
  

• 条件判断简化：用case_when替代多次ifelse嵌套，逻辑层级更清晰，符合tidyverse的可读性格式。

三、关于!!（bang-bang）的说明 #

!!并未被完全淘汰，在复杂表达式拼接场景中仍会用到，但普通动态列名操作中，{{}}和.data代词的组合更易读、更贴合当前规范，教学时优先推荐后者。

四、教学核心知识点 #

1. 参数传递类型区分：
   • 未加引号的列名参数：用{{ }}捕获
   • 字符串类型的列名参数：用.data[[ ]]引用
2. 动态创建列：统一用{{ 列名变量 }} :=的写法，兼容符号和字符串类型的变量
3. 多条件判断：优先使用case_when替代嵌套ifelse，提升代码可读性

五、学习资源总结（核心内容） #

• dplyr官方文档的Programming章节：详细讲解动态列操作的规范与方法
• 《R for Data Science》第二版第19章：专门介绍dplyr编程范式的更新
• tidyverse官方博客：曾发布curly-curly语法和.data代词的详解，说明从!!到直观语法的过渡逻辑

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