Точечный график с горизонтальными линиями, представляющими средние значения с R и ggplot

Question

Приведенный ниже код создает график рассеяния с линиями регрессии для каждой группы. Вместо наклонных линий регрессии возможно ли построить горизонтальные линии, которые представляют среднее значение y для каждой группы? Я попытался изменить параметр формулы на «y ~ 0 * x», но не могу придумать ничего более очевидного для использования.

Спасибо

ggplot(data = iris, aes(y = Sepal.Length, x = Sepal.Width, colour = Species)) + geom_point() + 
geom_smooth(method = 'lm', formula = y ~ x , se = F)

Answer 1

Можно указать формулу: y ~ 1.

library(ggplot2)

ggplot(data = iris, aes(y = Sepal.Length, x = Sepal.Width, colour = Species)) + 
  geom_point() +
  geom_smooth(method = "lm", formula = y ~ 1)