как сделать легенду поменьше?

Question

Я пытаюсь сделать легенду меньше. Почему «верхний левый» делает легенду такой большой? Вот мои коды. Спасибо!

dnsm <- density(ecls$MATH5[ecls$GENDER_fac == "male"])
plot(dnsf, 
     col = "red", 
     xlab = "Fifth Grade Math Score",
     main = "",
     las = TRUE,
     lwd = 2)
points(dnsm, col = "green", type = "l", lwd = 2)
legend(x = "topleft", 
       col = c("red", "green"),
       legend = c("female", "male"),
       lwd = 2)