R：“with”表达式中的反向引用数据框答案

【问题标题】：R: Back-referencing data frame in `with` expressionR：“with”表达式中的反向引用数据框
【发布时间】：2023-02-22 23:00:36
【问题描述】：

有没有办法在 with 表达式中反向引用范围R？

我正在尝试以更优雅（即非重复）的方式编写以下（有效）语句：

with(subset(mtcars, cyl > 4), {
  aggregate(subset(mtcars, cyl > 4),
            by=list(gear), min)
})

我知道以下替代语法：

aggregate(mtcars[mtcars$cyl>4,], 
          by=list(mtcars[mtcars$cyl>4,'gear']), min)

我几乎可以肯定以前有人提出过这个问题，但我缺少适合网络搜索的词。

【问题讨论】：

标签： r scope

【解决方案1】：

一个简短的版本可以使用公式符号，. 表示所有其他列：

aggregate(. ~ gear, data = subset(mtcars, cyl > 4), min)

或者用类似于 with 的管道：

subset(mtcars, cyl > 4) |>
  aggregate(. ~ gear, FUN = min)

【讨论】：

还有aggregate(. ~ gear, data = mtcars, subset = cyl > 4, min)

【解决方案2】：

另一种方法可能是通过 tidyverse 系列使用 summarise() 函数：

   mtcars |> filter(cyl > 4) |> group_by(gear) |> 
        summarise(across(everything(), .fns = min)) |> as.data.frame()

  gear  mpg cyl disp  hp drat    wt  qsec vs am carb
1    3 10.4   6  225 105 2.76 3.215 15.41  0  0    1
2    4 17.8   6  160 110 3.90 2.620 16.46  0  0    4
3    5 15.0   6  145 175 3.54 2.770 14.50  0  1    4

【讨论】：