凡例を削除する ggplot 2.2 質問する

1 つのレイヤー (スムーズ) の凡例を残し、もう 1 つのレイヤー (ポイント) の凡例を削除しようとしています。 および を使用して凡例をオフにしてみましguides(colour = FALSE)たgeom_point(aes(color = vs), show.legend = FALSE)。

編集: この質問とその回答は人気があるので、再現可能な例を用意するのが適切と思われます。

library(ggplot2)
ggplot(data = mtcars, aes(x = mpg, y = disp, group = gear)) +
geom_point(aes(color = vs)) +
geom_point(aes(shape = factor(cyl))) +
geom_line(aes(linetype = factor(gear))) +
geom_smooth(aes(fill = factor(gear), color = gear)) + 
theme_bw()