函数内调用列名失败：akima::interp报错问题求助

你的核心问题是函数内的对象引用混淆：select能识别字符串列名是因为tidyverse的tidyselect语法支持，但akima::interp是基础R风格的函数，需要直接传入数值向量，无法识别字符串形式的列名。

原来的代码里，with()环境中，map指向的是你传入的字符串参数（比如"wt"），而不是数据框中对应的列向量。interp拿到字符串后无法处理，就抛出了“缺失值或无穷值不允许”的错误（本质是传入的数据类型错误，不是真的有缺失值）。

方法1：直接提取列向量（不用with） #

这种方法最直观，避免非标准求值的混淆：

library(tidyverse)
library(akima)

heat_map <- function(map_col){
  # 用all_of确保字符串列名被正确识别
  selected_data <- mtcars %>% select(mpg, cyl, all_of(map_col))
  
  # 直接从数据框提取对应向量传入interp
  data1 <- akima::interp(
    x = selected_data$mpg,
    y = selected_data$cyl,
    z = selected_data[[map_col]],
    duplicate = "mean"
  )
  
  data2 <- data.frame(expand.grid(mpg = data1$x, cyl = data1$y), fill = c(data1$z))
  
  return(data2)
}

# 调用测试
wt <- heat_map("wt")
head(wt)

方法2：用非标准求值解析列名（保留with） #

如果你想继续使用with，可以用rlang包的工具把字符串转为符号，再强制解析为列名：

library(tidyverse)
library(akima)
library(rlang)

heat_map <- function(map_col){
  # 将字符串列名转为符号
  map_sym <- sym(map_col)
  
  data1 <- mtcars %>%
    select(mpg, cyl, !!map_sym) %>%  # !!强制解析符号为列名
    with(
      akima::interp(
        mpg, cyl, !!map_sym,  # 同样在with中解析为列向量
        duplicate = "mean"
      )
    )
  
  data2 <- data.frame(expand.grid(mpg = data1$x, cyl = data1$y), fill = c(data1$z))
  
  return(data2)
}

# 调用测试
wt <- heat_map("wt")
head(wt)

对象引用细节解释 #

• 函数参数map_col是字符串类型，存储的是列名的文本（比如"wt"）。
• select中的all_of(map_col)：tidyselect的all_of()函数专门用来处理字符串列名，告诉select“选择这个字符串对应的列”，所以能正确筛选数据。
• 原代码中with里的map：在with的环境中，变量优先从数据框中查找，但map是函数的参数（字符串），并没有被解析为数据框的列名，所以interp拿到的是字符串"wt"，而不是mtcars$wt的数值向量，自然报错。
• selected_data[[map_col]]：用[[操作符直接从数据框中提取列，不管列名是字符串还是符号，都能返回对应的数值向量，这是最稳妥的基础R方法。
• sym()+!!：sym()把字符串转为R的符号对象（类似列名的“指针”），!!（称为“bang-bang”）强制在tidyverse或with的环境中解析这个符号，让它指向数据框的列向量。

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