我想预测一个新的列到当前的df在一个dplyr链。尝试：

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.

字符串
我如何使用原生管道在我的dply链中引用字段x？