Sto cercando di mantenere la legenda di un livello (liscia) e rimuovere la legenda dell'altro (punto). Ho provato a chiudere le leggende con guides(colour = FALSE)
e geom_point(aes(color = vs), show.legend = FALSE)
.
Modifica : poiché questa domanda e le sue risposte sono popolari, un esempio riproducibile sembra nell'ordine:
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()