1、
p<-ggplot(mtcars,aes(mpg,hp,colour=factor(cyl)))+geom_point() p
2、隐去x轴
p + xlab(NULL)
3、
隐去y轴
p + ylab(NULL)