对list列中保存的数据使用modelr :: data_grid（）

Question

我想创建一个列表列，它是一个值网格，供以后在add_predictions()中使用，但我很想知道如何从列表列中存储的数据创建网格值的列表列。

mt2 <- 
  mtcars %>% 
  group_by(cyl) %>% 
  nest() %>% 
  mutate(model = map(data, ~lm(mpg ~ wt, data = .x))) 

# This step is not working
mt2 %>% 
  mutate(grid = map(data, data_grid(wt)))