В ggplot2 следующая командаp <- qplot(wt, mpg, data=mtcars, colour=factor(cyl)) взято изВот строит график рассеяния с каждой точкой, окрашенной в соответствии с коэффициентом

Я хотел бы подогнать все данные с помощью geom_smooth независимо от фактора, но сохранить цвет отдельных точек в соответствии с фактором.p + geom_smooth(method="lm") делает линейное соответствие на каждый фактор. Как мне это сделать?