R - 在 plot_ly 中合并 tidy eval 和 tilde 时出错

Question

我无法理解为什么以下代码 returns 出错：

d <- tibble(a = 1:10, x = 1:10, y = 1:10)
f <- function(.data, expr) {
    plot_ly(.data %>% filter({{ expr }}), x = ~x, y = ~y) %>% add_markers()
}

f(d, a <= 5)

# "Error in as.list.environment(x, all.names = TRUE) : object 'a' not found"

但这按预期运行：

g <- function(.data, expr) {
    plot_ly(.data %>% filter({{ expr }})) %>% add_markers(x = ~x, y = ~y)
}

g(d, a <= 5)

似乎在同一个函数调用中使用 tidy eval 和 plot_ly 代字号公式会导致 tidy eval 出现问题？我想了解为什么以防止将来出现错误。有没有办法在同一个函数调用中仍然使用它们？我找到 this 备选方案：

h <- function(.data, expr) {
    rlang::eval_tidy(
        rlang::quo_squash(quo({
            plot_ly(.data %>% filter({{ expr }}), x = ~x, y = ~y) %>% add_markers()
        }))
    )
}

h(d, a <= 5)

但我宁愿使用上面的第二种形式 g()

Answer 1

您链接到的第二种形式没有多大意义，我会避免使用它。

如果我这样重写你的函数，它似乎可以工作：

f <- function(.data, expr) {
  .data %>%
    filter({{ expr }}) %>%
    plot_ly(
      x = ~x,
      y = ~y
    ) %>%
    add_markers()
}

虽然不知道为什么。

当我为您的 post 中的错误打印回溯时，我发现 plotly 仍在使用 lazyeval，即 tidy eval 的前身。这有点可疑，可能值得在 plotly repo 中提交错误。

R - 在 plot_ly 中合并 tidy eval 和 tilde 时出错

R - error combining tidy eval and tilde in plot_ly

r

plotly

tidyeval