按组计算多个R平方值

Question

这个玩具示例允许我针对线性回归的mtcars数据集反应更新两个我感兴趣的矢量的R平方值。但是，我需要能够计算数据中几个不同组的R平方值（例如，使用“cyl”的级别）。添加

selectInput("group","Group","")，​​和

detco.lm <- lm(mtcars[,input$xcol] ~ mtcars[,input$ycol], data=mtcars[,input$group]) 

没有产生预期的结果 - 我一直得到只是单一的R平方值。我在寻找R的表或列表的平方与输入组相应值就像

#Having selected "mpg" and "drat" as my x/y variables 
    cyl(4.00)=.4591  
    cyl(6.00)=.6679  
    cyl(8.00)=.1422 

Answer 1

我觉得这RStudio博客，https://blog.rstudio.org/2015/09/29/purrr-0-1-0/，可能有几乎正是你在“地图功能寻找代码“ 部分。你需要purrr包。

编辑：粘贴来自该部分的代码以防万一，以后出于任何原因，该链接会发生变化。别忘了install.packages('purrr')

mtcars %>% 
    split(.$cyl) %>% 
    map(~lm(mpg ~ wt, data = .)) %>% 
    map(summary) %>% 
    map_dbl("r.squared") 
#>  4  6  8 
#> 0.509 0.465 0.423