增加图例键之间的空间并在ggplot中对齐

Question

自定义图例位置后，我想使其对齐，并希望位于图的底部。另外，我想增加它们之间的空间。这是我的演出代码：

p<-ggplot(aggregate(cbind(Tax_Burden,debt_GDP) ~ cou, data=df, mean, na.rm=TRUE), aes(x=log(debt_GDP), y=log(Tax_Burden))) +
  geom_point(aes(color = Tax_Burden, size=debt_GDP))+  
  labs(color = "Tax Burden\n[% Total\nRevenues]", size = "Public Debt [% GDP]")+
  geom_smooth(method=lm, se=FALSE, linetype="dashed")+
  geom_text_repel(aes(label = cou), size = 2)+
  ylab("Log of Tax Burden") +
  xlab("Log of Public Debt [% GDP]") +
  theme_minimal() +
  theme(text =element_text(family="Times New Roman"),
        legend.background = element_blank(),
        legend.key   = element_blank(),
        legend.text  = element_text(size = 4),
        legend.title = element_text(size=6),
        legend.position=c(0.75, 0.15),
        legend.box = "horizontal", 
        legend.spacing.x = unit(-0.05, 'cm'),
        legend.margin = margin(-0.5,0,0,0, unit="cm"),
        panel.border = element_blank(),
        panel.background = element_blank(),
        axis.title.x = element_text(size = 8), 
        axis.title.y = element_text(size = 8))+
        guides(colour=guide_legend(nrow=2))+
        guides(size=guide_legend(nrow=2))
print(p)

这是图片：

如您在图片中所看到的，图例彼此接近，而彼此之间却没有很好地对齐。

如何在ggplot中改善这一点？