powered by
addLegend(x, y, ...)
legend
lines
text
rectangle
addArrows
addLabel
local(envir=.PBSmodEnv,expr={ oldpar = par(no.readonly=TRUE) resetGraph() n <- sample(1:length(colors()),15); clrs <- colors()[n] addLegend(.2,1,fill=clrs,leg=clrs,cex=1.5) par(oldpar) })
Run the code above in your browser using DataLab