我正在处理一个表,对于该表,我需要计算满足某个条件的行数,结果基本上是相同管道的多次重复,只是变量名不同.
比方说,我想知道在每个变量上,有多少辆车比Valiant的车好.下面是一个包含两个变量的代码示例:
library(tidyverse)
reference <- mtcars %>%
slice(6)
mpg <- mtcars %>%
filter(mpg > reference$mpg) %>%
count() %>%
pull()
cyl <- mtcars %>%
filter(cyl > reference$cyl) %>%
count() %>%
pull()
tibble(mpg, cyl)
除了,假设我需要对大约100个变量这样做,那么肯定有更优的方法来重复这个过程.
怎样才能以最优的方式重写上面的代码(也许,使用map()
或其他可以很好地处理管道的东西,这样结果就会是一个Tibble,其中包含mtcars
中所有变量的计数?
我觉得解决方案应该很简单,但我被困住了. 谢谢!