Как сделать непрерывную сглаженную медиану с функцией ggplot?

Question

Вот мой код:

ggplot(mtcars, aes(x = wt, y = mpg, colour = factor(cyl)))+ 
geom_point(stat = "identity")+ 
theme_bw()+ 
geom_smooth() 

Вместо того, чтобы получить непрерывную сглаженную медиану, я получаю то, что выглядит как сломанные и неточные медианы данных в целом. Я думаю, что это связано с функцией «factor (cyl)».

Вот ссылка на то, что дает мой код:

Answer 1

Если добавить ИСЗ (группа = 1) в geom_smooth() вы исправить вашу проблему:

ggplot(mtcars, aes(x = wt, y = mpg, colour = factor(cyl)))+ 
geom_point(stat = "identity")+ 
theme_bw()+ 
geom_smooth(aes(group=1))