ggplot图例上的边距不均匀

Question

我有一个类似于此的情节：

df <- data.frame(x=rep(1:10,each=2),y=runif(20),col=as.factor(rep(1:2,10)))
p <- ggplot(data=df,aes(x=x,y=y,color=col)) +
    geom_line()+
    scale_y_continuous(breaks=seq(-1,1,0.5),limits=c(-1,1))+
    scale_color_manual(NULL,labels=c("AAAA","BBBB"),values=c("red","blue"))+
    theme(legend.position=c(0.2,0.2))
p

我遇到的问题是图例的上边距和下边距不均匀。 ＆＃34; AAAA＆＃34;以上的空间更多。而不是在＆＃34; BBBB＆＃34;下面。有办法解决这个问题吗？

我已经尝试theme(legend.title=element.blank())并且它没有帮助。我也尝试过调整theme(legend.margin=...)而没有运气。任何帮助都表示赞赏，不平衡的利润在这个文件中看起来并不好看。