par(mar=c(5.1, 4.1, 4.1, 6.1), xpd=TRUE)#畫圖之前設置圖形的留白的距離,xpd為TRUE設置標簽繪制在圖形區(qū)域
plot(2,3)
legend('right',inset=c(-0.2,0),pch=19,legend='A')#設置inset為負即可調整圖例在圖外,具體的位置可以自己修改

image.png
par(mar=c(5.1, 4.1, 4.1, 6.1), xpd=TRUE)#畫圖之前設置圖形的留白的距離,xpd為TRUE設置標簽繪制在圖形區(qū)域
plot(2,3)
legend('right',inset=c(-0.2,0),pch=19,legend='A')#設置inset為負即可調整圖例在圖外,具體的位置可以自己修改