求助：如何在R中把三组观测数据的离散点在一张图上显示

想把三组观测数据在同一张图上显示。是三组散点图，而不是散点加直线。如一组散点用圈显示，一组用三角表示，另一组用十字架表示。如何实现呢？最好帮忙写个脚本案例，初学R软件小白请高手指教。

点的样式可以通过pch参数来设

data_1 <- c(1,6,5)
data_2 <- c(3,4,4.5)
data_3 <- c(2,3,1)
plot(data_1, pch = 1, col = "red")
points(data_2, pch = 3, col = "green")
points(data_3, pch = 6, col = "blue")

y<-c(20,30,40,50,60)
x1<-c(16,20,27,40,60)
x2<-c(15,18,25,31,40)
x3<-c(56,25,85,45,65)
opar<-par(no.readonly=TRUE)
par(lwd=2,cex=1.5,font.lab=2)#增加线条，文本，符号，标签的宽度及大小
plot(y,x1,type="b", pch=15,lty=1,col="red",ylim=c(0,60), main="x1 VS x2",xlab="y dosage",ylab="y response")
lines(y,x1,type="b",pch=17,lty=2,col="blue")
abline(h=c(30),lwd=1.5,lty=2,col="gray")#增加次要刻度线
library（Hmisc）
minor.tick(nx=3,ny=3,tick.ratio=0.5)
legend=（"topleft",inset=.05,title="y type",c("A","B"),lty=c(1,2) , pch=c(15,17),col=c("red","blue"))
par(opar)