op=par(xpd=T)
plot(0,0)
legend("bottom",inset=c(0,-0.2),expression("RLCUSUM","SRLCUSUM","DRLCUSUM","MRLCUSUM-2",
                                        "MRLCUSUM-3"),lty=1:5,cex=.5,horiz=T,box.col="white")

par(op)   


这个是 放在plot的 正下方，要设置下par，楼下的box.lty=0为正解，box.col掩耳盗铃 lol

看帮助呀
   legend(..,box.lty=0)    目测这个就可以