在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：通过该参数可以往图形中添加背景色或网格线

债见！