求解释，三句简单的R语言代码小白看不懂了

fanshenzhang

nan.xiao 感谢指点

fanshenzhang

tctcab 多谢指点

fanshenzhang

Heterogeneity 非常感谢您的详细指点。。

songxiao

fanshenzhang
可以阅读Hadley Wickham在Advanced R中对purrr::map函数的详细讲解：
https://adv-r.hadley.nz/functionals.html

%>%的教程看这里：
https://r4ds.had.co.nz/pipes.html

Heterogeneity

fanshenzhang
如果你最近在学习R语言，欢迎三个月以后回来看看这篇帖子。那个时候你懂的更多，更通透的解释就不会把你绕晕了。

fanshenzhang

songxiao 很详细谢谢

fanshenzhang

Heterogeneity 多谢鼓励。。近段时间工作中要用到R，所以确实在学习，但是R的学习曲线确实比较陡，目前基本上一头雾水

songxiao

fanshenzhang
总之 map(~lm(mpg ~ wt, data = .))这一行的两个~不是一个意思，
第一个~是匿名函数的省略写法，它等价于

map(function(x) lm(mpg ~ wt, data = .) )

lm()中的mpg ~ wt表示R的公式，~用于连接自变量和因变量。说句题外话，这种公式表示法叫Wilkinson-Rogers notation。

reference：
Symbolic Description of Factorial Models for Analysis of Variance

fanshenzhang

songxiao 谢谢指点，很专业

Liechi

fanshenzhang 这段代码里混用了 tidyverse 和 baseR 的语法，如果你刚开始学 R，看这样的代码容易糊涂，建议先按二楼提供的纯 BaseR 代码写。

Tidyverse 和 BaseR 各有所长，熟悉二者后，混用是正常的。但我觉得你提供的这个例子是个混用的反面例子，增加了不必要的复杂。不知原作者是不是觉得都上了 %>%，必须搭配一句极乐净土的黑话（map(...)）。明明可以 %>% 得更眉清目秀些。

model <- split(mtcars, mtcars$cyl) %>% lapply(function(x) lm(mpg ~ wt, x))

fanshenzhang

Liechi 这段代码的原作者好像就是tidyverse包的开发者之一，也许他已经习惯了这样的用法

Liechi

fanshenzhang
原来是 Hadley 的手笔（https://r4ds.had.co.nz/iteration.html#the-map-functions）。这个例子就是用来展示 map 的用法的，所以没法用 lapply。自己平时写没必要这样。他已经考虑读者感受了，不然就 group_split 了: )

fanshenzhang

Liechi 😄 虽然大神已经很低调，奈何本人太小白了