Agregar una línea de tendencia lm simple a un diagrama de caja ggplot
Cuando agrego una línea de tendencia de modelo lineal a un diagrama de caja usando gráficos R estándar, uso:
boxplot(iris[,2]~iris[,1],col="LightBlue",main="Quartile1 (Rare)")
modelQ1<-lm(iris[,2]~iris[,1])
abline(modelQ1,lwd=2)
Sin embargo, al usar esto en 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])
Obtuve el siguiente error:
geom_smooth: Only one unique x value each group.Maybe you want aes(group = 1)?
Y la línea no aparece en mi trama.
Los modelos utilizados en ambos escenarios son idénticos. Si alguien pudiera señalar dónde me voy mal, sería genial.
EDITAR: utiliza el conjunto de datos del iris como ejemplo.