R自定义函数动态引用数据框执行left_join报错解决方案

你原来的写法里，as.name()生成的是R的符号（name类型）对象，仅存储了变量名称的文本标识，不是实际加载到内存中的教师表数据框实体。dplyr的join函数接收这个符号对象时，不会自动去全局环境解析它对应的真实数据，会把它识别为和管道传入的统计结果表不同源的对象，因此触发x和y必须共享相同src的报错。
当你硬编码写死教师表名称时，R会直接完成变量求值，把真实的数据框对象传入left_join，因此代码可以正常运行。

优先选第一种方案，兼容性最好，不会受dplyr版本、非标准计算规则影响。

方案1：提前用get()取出真实数据框对象 #

核心逻辑是先根据传入的主表名称拼接出教师表的字符串名，用get()从全局环境中取出对应的数据框实体，再传入join函数，从根源上避免类型不匹配问题。
修正后的完整可运行代码：

Q2_Table <- function(df){
  # 动态获取传入主表的名称，拼接对应教师表名，取出真实数据对象
  input_df_name <- deparse(substitute(df))
  teacher_df <- get(
    paste0(input_df_name, "_Teacher_Names"),
    envir = .GlobalEnv # 明确指定从全局环境取数，避免函数内部作用域找不到变量
  )

  df %>% select(contains("Q2_")) %>% 
    gather(var,value) %>% 
    group_by(var) %>%
    summarise(
      Mean = round(mean(as.numeric(value), na.rm = TRUE), 2),
      Responses = length(value[!is.na(value)]),
      "Very Dissatisfied" = paste0(length(value[value == "1" & !is.na(value)]), " (", sprintf("%1.0f%%", length(value[value == "1" & !is.na(value)])/Responses*100), ")"),
      "Dissatisfied" = paste0(length(value[value == "2" & !is.na(value)]), " (", sprintf("%1.0f%%", length(value[value == "2" & !is.na(value)])/Responses*100), ")"),
      "Neutral" = paste0(length(value[value == "3" & !is.na(value)]), " (", sprintf("%1.0f%%", length(value[value == "3" & !is.na(value)])/Responses*100), ")"),
      "Satisfied" = paste0(length(value[value == "4" & !is.na(value)]), " (", sprintf("%1.0f%%", length(value[value == "4" & !is.na(value)])/Responses*100), ")"),
      "Very Satisfied" = paste0(length(value[value == "5" & !is.na(value)]), " (", sprintf("%1.0f%%", length(value[value == "5" & !is.na(value)])/Responses*100), ")")
    ) %>%
    left_join(teacher_df, by = 'var') %>%
    rename("Teacher" = teacher) %>%
    select(-var, -value) %>%
    relocate(Teacher, .before = Mean)
}

# 函数调用方式和之前完全一致，传入不同主表会自动匹配对应教师表
Q2_Output <- Q2_Table(GE_GC)
# 例如传入EX_EF时，会自动匹配EX_EF_Teacher_Names完成关联，无需修改函数代码
# Q2_Output_EX <- Q2_Table(EX_EF)

方案2：用rlang非标准计算规则解引用符号 #

如果你习惯tidyverse的元编程写法，也可以用!!（bang-bang运算符）在left_join的参数位置强制解引用as.name()生成的符号，告诉dplyr这里需要解析符号拿到对应的数据对象，而非把符号本身作为参数传入。
仅需要修改原代码中join的部分即可：

left_join(
  # 用!!强制解引用符号，完成变量求值
  !!as.name(paste0(deparse(substitute(df)),"_Teacher_Names")),
  by = 'var'
)

注意：该方案依赖rlang的非标准计算机制，在过旧版本的dplyr中可能存在兼容问题，生产环境优先使用方案1。

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