Dodawanie prostą linię trendu lm do ggplot boxplot

Question

Dodając liniowej modelu trendu do wykresu pudełkowego stosując standardowe grafiki R używać:

boxplot(iris[,2]~iris[,1],col="LightBlue",main="Quartile1 (Rare)") 
modelQ1<-lm(iris[,2]~iris[,1]) 
abline(modelQ1,lwd=2) 

Jednak podczas korzystania z tego w ggplot2:

a <- ggplot(iris,aes(factor(iris[,1]),iris[,2])) 
a + geom_boxplot() + 
geom_smooth(method = "lm", se=FALSE, color="black", formula=iris[,2]~iris[,1]) 

pojawia się następujący błąd:

geom_smooth: Only one unique x value each group.Maybe you want aes(group = 1)? 

a linia nie pojawia się na mojej działce.

Modele stosowane w obu tych scenariuszy są identyczne. Jeśli ktokolwiek mógłby wskazać, gdzie idę źle, byłoby wspaniale.

EDIT: Używany zestaw danych przysłony jako przykład.

Answer 1

Komunikat o błędzie jest dość dużo oczywiste: Dodaj aes(group=1) do geom_smooth:

ggplot(iris, aes(factor(Sepal.Length), Sepal.Width)) + 
    geom_boxplot() + 
    geom_smooth(method = "lm", se=FALSE, color="black", aes(group=1)) 

Answer 2

FYI, ten błąd może również wystąpić (i stałe) za pomocą prostego qplot interfejs ggplot2

komunikat błąd nie objaśnia wystarczająco dla kilku osób przynajmniej :-). W tym przypadku kluczem jest to tylko zawartość sugerowanej estetycznej

library(ggplot2) 
qplot(factor(Sepal.Length), Sepal.Width, geom = c("smooth"), data= iris) 
# error, needs aes(group=1) 
qplot(factor(Sepal.Length), Sepal.Width, geom = c("smooth"), group = 1, data= iris)