在plotrix包中有twoord.plot()很好用，可以在同一張圖上畫兩組不同的資料的圖。
比分屏對我來說好用多了。。。。。
在載入了plotrix包後就可以畫圖啦
不加選項是這樣子，是個折線圖：

library(plotrix)
T1<-data.frame(matrix(c(-2:1),ncol = 2))
twoord.plot(T1$X1,T1$X2,-T1$X1,-T1$X2)

新增程式碼使其變成點圖：

library(plotrix)
T1<-data.frame(matrix(c(-2:1),ncol = 2))
twoord.plot(T1$X1
 
,T1$X2,-T1$X1,-T1$X2,type=c("p","p"))

其他用法如下：

twoord.plot(lx,ly,rx,ry,data=NULL,main="",
            xlim=NULL,lylim=NULL,rylim=NULL,
            mar=c(5,4,4,4),lcol=1,rcol=2,
            xlab="",lytickpos=NA,ylab="",
            ylab.at=NA,rytickpos=NA,rylab="",
            rylab.at=NA,lpch=1
 
,rpch=2,
            type="b",xtickpos=NULL,
            xticklab=NULL,halfwidth=0.4,
            axislab.cex=1,do.first=NULL,...)

lx,ly,rx,ry：分別指定左座標軸和右座標軸的值，必須是連續的值
data：需要繪製雙軸圖形的資料框
main：為圖形指定標題
xlim：限制橫座標值的範圍
lylim,rylim：限制左右縱座標值的範圍
mar：設定圖形邊界距，預設值為(5,4,4,4)
lcol,rcol：設定左右座標軸的顏色，這樣可以起到圖例的作用
xlab
 
：設定橫座標軸標籤
lytickpos：設定左座標軸刻度標籤的位置
ylab：設定左座標軸標籤
ylab.at：設定左座標軸標籤位置
rytickpos：設定右座標軸刻度標籤的位置
rylab：設定又座標軸標籤
rylab.at：設定右座標軸標籤位置
lpch,rpch：設定左右座標軸圖形的外觀
type：指定圖形型別
xtickpos：設定橫座標軸刻度標籤位置
xticklab：設定橫座標軸刻度標籤
halfwidth：設定使用者給定條形圖寬度的一半
axislab.cex：設定座標軸標籤和刻度標籤的大小
do.first：通過該引數可以往圖形中新增背景色或網格線

債見！