[R] 如何將圖的說明放在圖框外

如果用R畫一張圖 通常要自己加上圖的說明 也就是legend
例如以下語法可以畫出一張很簡單的圖 但是沒有說明 沒有人知道圈圈是什麼

plotest <- seq(1,10)
plot(plotest)

所以加了legend以後就有說明，如下

plotest <- seq(1,10)
plot(plotest)
legend("topleft","x",col="black", pch=1)

如圖，我把說明加在左上角

但我現在想把legend放在圖外面 因為放在圖形裡面有時候會擋到圖 步驟如下

//利用par的功能設定多圖形視窗，一定要將xpd=NA，意思是圖形的座標是從R裡面圖形視窗的邊框開始算
par(mfrow = c(1,1),xpd=NA,oma=c(3,0,0,0))

//par("user")是一個很有用的變數可以取出四個邊的座標，依序是左右下上，所以[1],[4]是將圖說明放在左上搭配xjust與yjust就可以再微調座標
legend(par("usr")[1],par("usr")[4],"x",col="black", pch=1,xjust=0, yjust=-0.2)

產生的圖形如下 圖說明已經跟圖分開 放上左上角了