在dbplyr中使用cur_column()与sym()时的列运算问题求助

API 探路者

2026-8-14

解决方案：数据库端基于列名动态生成除数列的除法运算

由于cur_column()在!!的提前求值阶段无法生效（!!是在R端解析时求值，而cur_column()仅在across()的迭代执行中有效），且数据库操作需要将表达式提前翻译为SQL，因此可以通过提前构造列名映射关系的方式解决这个问题，以下是两种可行方法：

方法一：使用`purrr::map2`生成延迟求值表达式

先在R端明确要处理的列与对应除数列的映射，再生成每个列的sum()除法表达式，最后通过!!!展开传递给summarise()：

library(dplyr, warn.conflicts = FALSE)
library(purrr)
library(DBI)
library(RSQLite)

con <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
copy_to(con, name ="mtcars", df=mtcars %>% mutate(across(c(gear,carb),~.*2,.names = "{col}_2")))

# 定义要处理的列和对应的除数列
target_cols <- c("gear", "carb")
divisor_cols <- paste0(target_cols, "_2")

# 生成每个列的summarise表达式并执行
tbl(con,"mtcars") %>% 
  summarise(!!!map2(target_cols, divisor_cols, 
                    ~ quo(sum(!!sym(.x)) / sum(!!sym(.y)))))

原理说明

先在R端构造完整的列名对，避免依赖cur_column()在!!求值阶段的运行时值
map2遍历列名对，用quo()创建延迟求值的表达式，确保dplyr能将其正确翻译为SQL
!!!将所有表达式展开为summarise()的参数，最终生成的SQL会是类似：
```
SELECT SUM(gear) / SUM(gear_2) AS gear, SUM(carb) / SUM(carb_2) AS carb FROM mtcars
```

方法二：直接构造SQL表达式（适合复杂场景）

如果需要更灵活的SQL构造，可以使用glue生成SQL字符串，再通过sql()传递给dplyr：

library(glue)

target_cols <- c("gear", "carb")
# 构造SQL表达式字符串
sql_expressions <- glue("SUM({target_cols}) / SUM({target_cols}_2) AS {target_cols}")

tbl(con,"mtcars") %>% 
  summarise(!!!sql(sql_expressions))