dplyr :: do() benötigt benannte Funktion?

Question

Folgende Arbeiten fein:

library(dplyr) 
m <- function(df) { 
    mod <- lm(Sepal.Length ~ Sepal.Width, data = df) 
    pred <- predict(mod,newdata = df["Sepal.Width"]) 
    data.frame(df,pred) 
} 
iris %>% 
    group_by(Species) %>% 
    do(m(.)) 

Ich dachte, dass dies funktionieren würde, wenn ich eine anonyme Funktion verwendet, aber es funktioniert nicht:

iris %>% 
    group_by(Species) %>% 
    do(function(df) { 
    mod <- lm(Sepal.Length ~ Sepal.Width, data = df) 
    pred <- predict(mod,newdata = df["Sepal.Width"]) 
    data.frame(df,pred) 
    }) 
Error: Results are not data frames at positions: 1, 2, 3 

Answer 1

Sie haben nicht eine anonyme Funktion benötigen:

library(dplyr) 
iris %>% 
    group_by(Species) %>% 
    do({ 
    mod <- lm(Sepal.Length ~ Sepal.Width, data = .) 
    pred <- predict(mod, newdata = .["Sepal.Width"]) 
    data.frame(., pred) 
    }) 

Answer 2

Sie nicht die . loswerden können.

iris %>% 
    group_by(Species) %>% 
    do((function(df) { 
    mod <- lm(Sepal.Length ~ Sepal.Width, data = df) 
    pred <- predict(mod,newdata = df["Sepal.Width"]) 
    data.frame(df,pred) 
    })(.)) 

Das wird funktionieren. Die . ist notwendig. Die . ist Liebe. Behalte die ..