r - 向ggplot箱图添加简单的lm趋势线

Question

当使用标准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)?

该线未出现在我的绘图上。

这两种情况下使用的模型都是相同的。如果有人能指出我要去哪里，那太好了。

编辑：以虹膜数据集为例。

Answer 1

该错误消息几乎是不言自明的：将aes(group=1)添加到geom_smooth：

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