Я узнал ответ, может быть, он будет полезен для других когда-нибудь.Просто добавьте x.intersp
к легенде и поиграйте с вводом вектора, который нужно переместить.Увеличение числа сместит символ / строку / поле влево.
legend("topright", legend=c("[0,1st quant.]","(1st quant., 2nd quant.]", "(2nd quant., 3rd quant.]", "(3rd quant., maximum]", "Poi(137.205) density"), fill=c(cols[-1],NA), lty=c(NA,NA,NA,NA,3),cex=0.8, box.lty = 0, border=c(1,1,1,1,"white"), x.intersp = c(1,1,1,1,2.2))