=0)\rtw<-1.5*strwidth("females")\rrect(-tw,-1-h,0,-1+h,col="darkgray")\rrect(0,-1-h,tw,-1+h,col=/.lightgray")\rtext(0,-1,“males",pos=2)\rtext(0,-1,“females",pos=4)\r1/ ` 1 \\rboxvinner,col=gray)EvaluationWarning:ThedocumentwascreatedwithSpire.PDFfor.NET.\r3.28\rplot,newelass<-\rfunction(x,y=NULL,\rmain=,sub=,\rxlim=NULL,ylim=NULL,\raxes=TRUE,ann=par("ann"),\rcol=par("col"),\r...){\rxy<-xy.coords(x,y)\rif(is.null(xlim))\rxlim<-range(xy$x[is.finite(xy$x)])\rif(is.null(ylim))\rylim<-range(xy$y[is.finite(xy$y)])\ropar<-par(no.readonly=TRUE)\ron.exit(par(opar))\rplot.new()\rplot,window(xlim,ylim,...)\rpoints(xy$x,xy$y,col=col,...)\rif(axes){\raxis(1)EvaluationWarning:ThedocumentwascreatedwithSpire.PDFfor.NET.\raxis(2)\rbox()\r}\rif(ann)\rtitle(main-main,sub=sub,\rxlab=xy$xlab,ylab=xy$ylab,...)