如何在R中通过函数根据参数创建多组data frame及报错解决

错误原因 #

你遇到的「赋值目标未扩展为语言对象」报错，核心问题是不能直接将动态拼接的字符串作为赋值语句的左值。noquote(paste(...))返回的是字符串，并非合法的变量引用，R无法识别这个赋值目标。

修正方案 #

方案1：基于原逻辑（固定1-9列）用assign赋值 #

用assign()函数替代直接字符串赋值，实现动态变量名的绑定：

create_df_sud_form <- function(x, y){
  # 生成要提取的1-9列的列名
  target_cols <- paste(y, paste0("___", 1:9), sep = "")
  # 从idata中提取对应列，创建新数据框
  new_dataframe <- idata[, target_cols, drop = FALSE]
  # 将新数据框赋值到全局环境的指定变量名
  assign(paste0("df_sud_form_", x), new_dataframe, envir = .GlobalEnv)
}

# 调用函数
create_df_sud_form("alk", "l_alk_009")

方案2：自动匹配所有同前缀列（更灵活） #

如果列数不固定（比如超过9列），用正则表达式自动匹配所有以y___开头加数字的列，无需手动指定范围：

create_df_sud_form <- function(x, y){
  # 正则匹配：列名以y开头，后跟___+任意数字
  target_cols <- grep(paste0("^", y, "___\\d+$"), colnames(idata), value = TRUE)
  # 提取列并创建数据框
  new_dataframe <- idata[, target_cols, drop = FALSE]
  # 赋值到全局环境
  assign(paste0("df_sud_form_", x), new_dataframe, envir = .GlobalEnv)
}

方案3：传入数据源参数（更健壮） #

避免依赖全局环境的idata，将数据源作为函数参数传入，提升函数通用性：

create_df_sud_form <- function(x, y, data){
  target_cols <- grep(paste0("^", y, "___\\d+$"), colnames(data), value = TRUE)
  new_dataframe <- data[, target_cols, drop = FALSE]
  assign(paste0("df_sud_form_", x), new_dataframe, envir = .GlobalEnv)
}

# 调用时传入数据源
create_df_sud_form("alk", "l_alk_009", data = idata)

关键说明 #

• assign()的envir = .GlobalEnv参数是将生成的变量放到全局环境，方便后续直接调用；若需在函数内部使用，可调整环境参数。
• drop = FALSE确保即使只提取一列，结果仍为数据框而非向量。

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