Добавление простой линии тренда lm в ggplot boxplot

при добавлении линии тренда линейной модели в boxplot с использованием стандартной графики R я использую:

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

однако при использовании этого в 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])

Я получаю следующую ошибку:

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

и линия не появляется на моем участке.

модели, используемые в обоих этих случаях одинаковы. Если бы кто-нибудь мог указать, где я ошибаюсь, это было бы здорово.

EDIT: в качестве примера используется набор данных iris.

16
boxplot ggplot2 r trendline

2 ответов

сообщение об ошибке в значительной степени понятно: добавить aes(group=1) to geom_smooth:

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

enter image description here

23

FYI, эта ошибка также может быть обнаружена (и исправлена) с помощью простого qplot интерфейс ggplot2

сообщение об ошибке недостаточно объяснительно для нескольких человек, по крайней мере :-). В этом случае ключ должен включать только содержание предлагаемого эстетического 

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)
1