r - 使用 native 管道将预测与变异结合使用

Question

我想预测 dplyr 链中当前 df 的新列。尝试过:

library(tidyverse)

mod <- lm(price ~ x, data = diamonds)
newDF <- data.frame(x = rnorm(10, mean = mean(diamonds$x)))

newDF <- newDF |> 
  mutate(prediction = predict(mod, .$x)) # object '.' not found

newDF <- newDF |> 
  mutate(\(.) prediction = predict(mod, .$x)) # `..1` must be a vector, not a function.

如何使用 native 管道在我的 dply 链中引用字段 x？

Answer 1

像这样使用dplyr::cur_data怎么样？

newDF <- newDF |> 
    mutate(prediction = predict(mod, cur_data()))