如何在Base R函数中更优地间接引用数据变量？

方案1：利用deparse(substitute())获取列名字符串 #

这是Base R中处理非标准求值（传入未加引号的列名）的标准方法，无需依赖tidyverse包：

myfun_base <- function(df, var) {
  # 将传入的未引号列名转换为字符串
  col_name <- deparse(substitute(var))
  # 遍历行输出（也可替换为向量化操作）
  for (i in seq_len(nrow(df))) {
    print(paste("I love my pet", df[i, col_name]))
  }
}

# 调用测试
myfun_base(df_original, string)

原理说明 #

• substitute(var)捕获传入的参数表达式（如string），deparse()将其转换为对应的字符串"string"。
• 后续用df[, col_name]或更安全的df[[col_name]]访问目标列（[[索引在列名含特殊字符或仅单列时更稳定）。

方案2：向量化操作替代循环（更高效） #

Base R推荐优先使用向量化操作而非循环，尤其数据量较大时：

myfun_base_vectorized <- function(df, var) {
  col_name <- deparse(substitute(var))
  # 直接对整列进行字符串拼接，无需循环
  pet_strings <- paste("I love my pet", df[[col_name]])
  print(pet_strings)
}

# 调用测试
myfun_base_vectorized(df_original, string)

输出结果和循环一致，但执行效率更高。

方案3：支持传入带引号的列名（简化版） #

如果可以接受传入带引号的列名，函数会更简洁：

myfun_base_quoted <- function(df, var) {
  pet_strings <- paste("I love my pet", df[[var]])
  print(pet_strings)
}

# 调用时传入带引号的列名
myfun_base_quoted(df_original, "string")

适配多列场景（针对你的经纬度URL需求） #

如果需要处理多列（比如纬度、经度），可以扩展函数支持多个参数：

build_map_url <- function(df, lat_col, lon_col) {
  # 获取两个列的字符串名称
  lat_name <- deparse(substitute(lat_col))
  lon_name <- deparse(substitute(lon_col))
  # 向量化构建URL
  urls <- paste0(
    "https://example.com/map?lat=", 
    df[[lat_name]], 
    "&lon=", 
    df[[lon_name]]
  )
  return(urls)
}

# 测试用数据框
df_coords <- data.frame(lat = c(39.9, 31.2), lon = c(116.4, 121.5))
build_map_url(df_coords, lat, lon)

这样就能直接生成所有经纬度对应的GET请求URL，完全用Base R实现，无需依赖tidyverse工具。

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