重写map(x, function(df) lm(mpg ~ wt, data = df))这段代码，去除匿名函数

可以将匿名函数中的内容提取出来，单独定义为一个函数，然后将该函数名作为参数传递给 map() 函数。例如：

# 定义一个函数，用于拟合线性模型
fit_lm <- function(df) {
  lm(mpg ~ wt, data = df)
}

# 将 fit_lm 函数名作为参数传递给 map() 函数
map(x, fit_lm)

这样就可以将原来的匿名函数重写为一个具名函数，使代码更加清晰易读。