如何将两个不等长的图例组合成一个图例？

Question

我有两个不等长的颜色和形状图例，我怎样才能将它们合并为一个图例？

x<-rep(1:5,6)
y<-c(1:30)
group1<-rep(c("C1","C2","C3"),10)
group2<-rep(c("a","b"),each=15)
df<-data.frame(x,y,group1,group2)
ggplot(df,aes(x,y))+geom_point(aes(colour=group1,shape=group2),size=3)

这是我的情节：

我只想在图中显示一个图例，我该怎么做？