如何使用dplyr基于变量存储的公式生成cutoff新列？

开发者阿泽

2026-5-12

嘿，我来帮你解决这个问题！

问题出在哪？

你现在的代码里，a2是个字符串（"mean * .290"），直接在mutate()里写cutoff=a2的话，只是把这个字符串原封不动塞到每一行里，根本没执行这个公式计算数值——这就是结果不符合预期的核心原因。

两种可行的解决方案

我们需要把字符串形式的公式转换成能被R执行的表达式，再让dplyr帮我们计算每一行的结果：

方案1：用`eval(parse())`快速解决

parse()能把字符串转成表达式，eval()负责执行它，组合起来就能得到计算结果：

library(dplyr)

a1 <- "AVG(C1) * .290"
a2 <- gsub("AVG[(]C1[)]","mean",a1)

newiris <- iris %>% 
  group_by(Species) %>% 
  summarize(n = n(),
            mean = mean(Petal.Width), 
            cv = sd(Petal.Width)/mean(Petal.Width)*100) %>% 
  mutate(cutoff = eval(parse(text = a2)))

# 查看结果
newiris

方案2：用`rlang`工具更安全（推荐）

如果你的公式涉及数据框里的变量，用tidyverse生态的rlang包更安全，也更贴合dplyr的风格：

library(dplyr)
library(rlang)

a1 <- "AVG(C1) * .290"
a2 <- gsub("AVG[(]C1[)]","mean",a1)

newiris <- iris %>% 
  group_by(Species) %>% 
  summarize(n = n(),
            mean = mean(Petal.Width), 
            cv = sd(Petal.Width)/mean(Petal.Width)*100) %>% 
  mutate(cutoff = eval_tidy(parse_expr(a2)))

# 查看结果
newiris