1、
p<-ggplot(mtcars,aes(mpg,hp,colour=factor(cyl)))+geom_point() p
2、去除图例
p + theme(legend.position = 'none')