ggplot中的相对图例位置

Question

这是我的小脚本，以便在ggplot中制作一些批量图：

by(database_per_grafici, database_per_grafici$variable, function(i){
    ggplot(subset(i, !is.na(value)))+
    stat_ecdf(aes(x=value, color=gruppo), size=2)+
    scale_y_continuous(labels = percent) +
    theme_bw() +
    theme(panel.grid.major = element_line(colour = "black", size= 0.3))+
    theme(legend.text = element_text(size = 60)) +
    theme(legend.justification=c(1,0), legend.position=c(1,0))+
    theme(legend.title=element_blank()) +
    theme(axis.text.x  = element_text(size=16)) +
    theme(axis.title.x = element_text(size=20))+
    xlab("mg/kg")+
    theme(axis.text.y  = element_text(size=16)) +
    theme(axis.title.y = element_blank()) +
    guides(colour = guide_legend(override.aes = list(size=10))) +
    ggsave(sprintf("%s.png", unique(i$variable), width = 30,
    height = 20, units = "cm"))
})

但是图例中存在问题，您可以在以下两张图片中看到：

和

问题在于，在某些图中，图例覆盖了图本身。

有没有办法根据数据框值设置图例位置？

由于