data(Ovocytes)
attach(Ovocytes)
xl <- "Time"
yl <- "Fraction of Cell Volume"
mm <- "Fraction of Cell Volume for Mature and Immature Goat Ovocytes"
rx <- range(time)
ry <- range(fraction)
plot(time[type=='Mature'],fraction[type=='Mature'],xlim=rx,ylim=ry,
type="p",cex=0.5,lwd=1,ylab="",xlab="")
par(new=TRUE)
plot(time[type=='Immature'],fraction[type=='Immature'],xlim=rx,
ylim=ry,type="p",cex=0.5,lwd=2,ylab=yl,xlab=xl,main=mm)
legend(rx[1],ry[2],pt.lwd=c(1,2),bty="n",legend=c("Mature","Immature"),
pt.cex=0.5,pch=1)
Run the code above in your browser using DataLab