表示正確的 output 但 rstudio 控制台顯示錯誤

Question

library(tidyverse)
#> Warning: package 'tidyverse' was built under R version 3.6.3
#> Warning: package 'ggplot2' was built under R version 3.6.3
#> Warning: package 'tidyr' was built under R version 3.6.3
#> Warning: package 'purrr' was built under R version 3.6.3
#> Warning: package 'dplyr' was built under R version 3.6.3
#> Warning: package 'stringr' was built under R version 3.6.3
#> Warning: package 'forcats' was built under R version 3.6.3
mtcars = as_tibble(mtcars)
cars_nested = mtcars %>% group_by(cyl) %>% nest()

cars_fitted = cars_nested %>% 
  mutate(fit = map(data, function(x) lm(mpg ~ disp, data = x)))

^{由代表 package (v0.3.0) 於 2020 年 7 月 29 日創建}

當我在 Rstudio 中運行此代碼時，我收到以下錯誤。 有什么幫助嗎？

> mtcars = as_tibble(mtcars)
> cars_nested = mtcars %>% group_by(cyl) %>% nest()
> cars_fitted = cars_nested %>% 
+   mutate(fit = map(data, function(x) lm(mpg ~ disp, data = x)))
Error: Problem with `mutate()` input `fit`.
x object 'disp' not found
i Input `fit` is `map(data, function(x) lm(mpg ~ disp, data = x))`.
i The error occured in group 1: cyl = 4.
Run `rlang::last_error()` to see where the error occurred. ```

Answer 1

感謝您的建議。 我找到了為什么會收到這些錯誤。 在前面的代碼中，我在不知不覺中將 mtcars 嵌套到了同一個 mtcars 數據集。 所以只有 cyl 和 data 列。 這就是我得到錯誤的原因。