R语言函数无法传入字符串参数报错：object 'AK' not found

问题背景 #

编写函数用于从数据集中筛选出单个州的数据，但调用时出现对象未找到的错误。

示例数据集 #

state <- sample(state.abb, size = 100, replace = TRUE)
registered <- sample(c("registered", "unregistered"), size = 100, replace = TRUE)

df <- data.frame(state, registered)

编写的函数代码 #

create_xtab_tables <- function(state_name){
  require(dplyr)
  
  df2 <- 
    df %>% 
    filter(state == state_name)

  return(df2)
}

调用方式与报错信息 #

调用代码：

df_ak <- create_xtab_tables(AK)

报错内容：

Error in `filter()`:
! Problem while computing `..1 = state == state_name`.
Caused by error in `mask$eval_all_filter()`:
! object 'AK' not found
Backtrace:
1. global create_xtab_tables(AK)
2. dplyr:::filter.data.frame(., state == state_name)
3. dplyr:::filter_rows(.data, ..., caller_env = caller_env())
4. dplyr:::filter_eval(dots, mask = mask, error_call = error_call)
5. mask$eval_all_filter(dots, env_filter)

解决方法 #

1. 修正函数调用方式 #

报错核心原因是传入的州名AK未加引号，R会将其当作变量而非字符串处理，但你并未定义过名为AK的变量，因此报错。正确调用需将州名以字符串形式传入：

df_ak <- create_xtab_tables("AK")

2. 优化函数健壮性（可选） #

原函数依赖全局环境中的df数据集，灵活性不足。建议将数据集作为参数传入，让函数可处理任意符合结构的数据集：

create_xtab_tables <- function(data, state_name){
  require(dplyr)
  
  data %>% 
    filter(state == state_name)
}

# 调用示例
df_ak <- create_xtab_tables(df, "AK")

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