r - pmin() 与 dplyr 在 R

Question

这是一个相当简单的问题。出于某种原因，当使用数据帧进行管道传输时，pmin() 函数不起作用。见下文:

library(dplyr)
data(mtcars)
pmin(mtcars$am, mtcars$gear)
1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 1 1 1 1 1 1 1
mtcars %>% pmin(am, gear)
Error in pmin(., am, gear): object 'am' not found
Traceback:

1. mtcars %>% select(am, gear) %>% pmin(am, gear)
2. withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
3. eval(quote(`_fseq`(`_lhs`)), env, env)
4. eval(quote(`_fseq`(`_lhs`)), env, env)
5. `_fseq`(`_lhs`)
6. freduce(value, `_function_list`)
7. withVisible(function_list[[k]](value))
8. function_list[[k]](value)
9. pmin(., am, gear)

我错过了什么？我们将不胜感激您的建议。

Answer 1

您出错的地方是管道运算符将数据帧作为第一个参数传递。因此，您尝试运行 pmin(select(mtcars,am, gear), am, gear)。

正如 Nate 的评论所暗示的那样，mtcars%>%with(pmin(am, gear)) 做你想做的事。

此外，对 Marco 的评论稍作修改。 mtcars%>%transmute(pmin(am,gear))%>%pull