例えば
d1 <- data.frame(x=runif(20),y=runif(20))
d2 <- data.frame(x=rnorm(10),y=rnorm(10))
d3 <- data.frame(x=rpois(5,5),y=rpois(5,5))
allD <- rbind(d1,d2,d3)
plot(y~x,data=d1,xlim=range(allD$x),ylim=range(allD$y))
with(d2,points(x,y,col=2))
with(d3,points(x,y,col=4))
また:
plot(y~x,data=d1,xlim=range(allD$x),ylim=range(allD$y),type="n")
mapply(function(x,c) with(x,points(x,y,col=c)),
list(d1,d2,d3),c(1,2,4))
また:
allD$group <- rep(1:3,c(20,10,5))
plot(y~x,data=allD,col=allD$group)
また:
library(lattice)
xyplot(y~x,groups=group,data=allD)
また:
library(ggplot2)
ggplot(allD,aes(x,y,colour=factor(group)))+geom_point()