如图中所示，在图像右侧出来两个图例，p <- ggplot(data=jsh,aes(x=site,y=cpue,group=sea))+
  geom_point(size=3,aes(col=sea))+
  geom_line(size=0.8,aes(col=sea,linetype=sea))+
  xlab("样点")+ylab("物种数量")+
  scale_y_continuous(breaks=seq(0,3000,500))+mytheme2+
  theme(legend.title = element_text(colour="white"))+
  scale_colour_manual("季节",breaks=c("春季","夏季","秋季","冬季"),
                      values=c("red","black","green","blue"),
                      labels=c("春季","夏季","秋季","冬季"))+
  mytheme1
这是我的代码，想问一下，能不能只显示上面的图例让他局中间，下面的图例不让他显示呢