ggplot中删除legend

先用ggplot绘制一个点图

rm(list = ls())
options(stringsAsFactors = F)
a=data.frame(s1=1:10,s2=1:10)
library(ggplot2)
b=ggplot()+geom_point(data = a,aes(x=s1,y=s2,size=s2,color=s2))+
      scale_color_viridis_c()+theme_classic()
b

可以看到有size和color两个legend

删除所有legend

b+theme(legend.position = 'none')

删除所选legend

b+guides(size='none')