如何通过循环同时对多个DataFrame执行公式运算并生成新DataFrame

方法一：使用函数定义运算（更安全） #

这种方式规避了字符串解析的潜在风险，代码可读性与扩展性更强：

# 1. 将目标DataFrame存入命名列表，方便批量处理
my_dfs <- list(DF1 = DF1, DF2 = DF2)

# 2. 定义需要执行的运算：键为结果后缀，值为运算函数
operations <- list(
  "1" = function(df) df$X * df$Y,  # 对应X*Y运算
  "2" = function(df) df$X / df$Y   # 对应X/Y运算
)

# 3. 循环生成新对象
for (df_name in names(my_dfs)) {
  current_df <- my_dfs[[df_name]]
  for (op_suffix in names(operations)) {
    # 构造新对象名称：比如DF1 → Df1.1、DF1 → Df1.2
    new_obj_name <- paste0(tolower(substr(df_name, 1, 1)), substr(df_name, 2, nchar(df_name)), ".", op_suffix)
    # 计算结果并赋值到全局环境
    assign(new_obj_name, operations[[op_suffix]](current_df), envir = .GlobalEnv)
  }
}

方法二：使用表达式字符串（更简洁） #

如果运算逻辑简单，也可以直接用字符串定义运算，通过解析执行：

# 1. 存入命名列表
my_dfs <- list(DF1 = DF1, DF2 = DF2)

# 2. 定义运算表达式字符串
ops <- c(
  "1" = "X * Y",
  "2" = "X / Y"
)

# 3. 循环生成新对象
for (df_name in names(my_dfs)) {
  current_df <- my_dfs[[df_name]]
  for (op_suffix in names(ops)) {
    new_obj_name <- paste0(tolower(substr(df_name, 1, 1)), substr(df_name, 2, nchar(df_name)), ".", op_suffix)
    # 解析并执行运算表达式
    result <- eval(parse(text = ops[op_suffix]), envir = current_df)
    assign(new_obj_name, result, envir = .GlobalEnv)
  }
}

关键说明 #

• 命名列表：把DF1、DF2放进命名列表是核心逻辑，通过循环统一处理所有目标DataFrame，避免重复编写相同代码。
• assign函数：实现动态生成新对象的关键，可将计算结果以指定名称存入全局环境。
• 对象名构造：若不需要首字母小写的命名格式，直接用paste0(df_name, ".", op_suffix)即可生成DF1.1这类对象名。

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