R语言函数中使用str_sub遇‘object not found’错误，求解决

错误原因 #

报错核心是未正确处理函数参数中的列名引用：在dplyr管道中直接使用参数measurement时，R会将其视为全局环境变量，而非传入数据框的列名，导致str_sub无法定位目标列。此外原代码还有两处逻辑缺陷：c_across(c(n1:n9))依赖列必须存在，否则会触发报错；nNA列不存在，对应判断逻辑完全无效。

修正方案 #

1. 使用**整洁评估（tidy evaluation）**语法{{measurement}}引用传入的列参数，让dplyr正确识别数据框中的目标列。
2. 用正则匹配matches("^n[1-9]$")替代硬编码的列范围，避免因部分数字缺失引发的报错。
3. 移除无效的nNA判断逻辑（示例数据无缺失值，若需处理缺失可在前期添加drop_na或调整判断逻辑）。

修正后的完整代码 #

library(dplyr)
library(stringr)    

# 示例数据集
test <- data.frame(
  year = rep(c(rep(1995, 10), rep(1996, 10), rep(1997, 10)), 2),
  site = c(rep(LETTERS[1], 30), rep(LETTERS[2], 30)),
  mass = rep(c(rep(c(10,20,30,40,50), 2), rep(c(10, 25, 30, 35, 50), 2), rep(c(18, 25, 32, 44, 57), 2)), 2))

# 修正后的精度推断函数
fun_precision <- function(df, measurement, unit) {
  precisionType <- paste(quo_name(enquo(measurement)), "PRECISION", sep = "_")
  
  precision <- df %>%
    # 正确引用传入的列参数
    mutate(last = as.numeric(str_sub({{measurement}}, -1, -1))) %>%
    group_by(year, site, last) %>%
    summarise(n = n(), .groups = "drop") %>%
    arrange(last) %>%
    pivot_wider(id_cols      = c(year, site),
                names_from   = last,
                names_prefix = "n",
                values_from  = n) %>%
    mutate(
      # 用正则匹配替代硬编码列范围
      not0    = sum(c_across(matches("^n[1-9]$")), na.rm = TRUE),
      not0or5 = sum(c_across(matches("^n[1-4]$|^n[6-9]$")), na.rm = TRUE),
      "{precisionType}" = case_when(
        not0 == 0           ~ paste("By10", unit, sep = ""),
        not0or5 > 0         ~ paste("By1", unit, sep = ""),
        !is.na(n0) & !is.na(n5) ~ paste("By5", unit, sep = "")
      )
    ) %>%
    select(year, site, all_of(precisionType)) # 用all_of引用动态列名
  
  df <- left_join(df, precision, by = c("year", "site"))
}

# 测试函数
test <- fun_precision(test, mass, "g")
head(test)

关键说明 #

• {{measurement}}是整洁评估的简洁语法，等价于!!enquo(measurement)，用于在函数中正确引用传入的列名参数。
• matches()正则匹配确保只选中以n开头、后跟1-9的列，避免因某些数字缺失导致的报错。
• all_of(precisionType)用于在select中引用动态生成的列名，符合dplyr的语法规范。

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