使用基R管道创建表达式/调用

d7v8vwbk 于 2023-09-27 发布在其他

关注(0)|答案(1)|浏览(131)

有没有办法做到以下几点

ex1 <- quote(iris)
ex2 <- quote(dplyr::filter(Species == "setosa" & Sepal.Width > 4))
substitute(x %>% y, list(x = ex1, y = ex2))
#> iris %>% filter(Species == "setosa" & Sepal.Width > 4)

使用基管而不是magrittr管？

substitute(x |> y, list(x = ex1, y = ex2))
#> Error: The pipe operator requires a function call as RHS

来源：https://stackoverflow.com/questions/77075127/creating-an-expression-call-using-the-base-r-pipe

1条答案

按热度按时间

k0pti3hp1#

错误消息在这里实际上很有帮助。对于基管，您总是需要在右侧添加括号。这样做

substitute(x |> y(), list(x = ex1, y = ex2))
# (dplyr::filter(Species == "setosa" & Sepal.Width > 4))(iris)

产生一个调用。但是，您可能需要更改ex2以使调用有效：

ex1 <- quote(iris)
ex2 <- quote(\(x) dplyr::filter(x, Species == "setosa" & Sepal.Width > 4))
substitute(x |> y(), list(x = ex1, y = ex2)) |> eval()
#   Sepal.Length Sepal.Width Petal.Length Petal.Width Species
# 1          5.7         4.4          1.5         0.4  setosa
# 2          5.2         4.1          1.5         0.1  setosa
# 3          5.5         4.2          1.4         0.2  setosa

赞(0）回复(0）举报 2023-09-27

我来回答

使用基R管道创建表达式/调用

1条答案

相关问题

热门标签

最新问答