grid.rect(gp=gpar(col="gray")) for (i in 1:8) grid.circle(name=names[i], r=(9 - i)/20, gp=gpar(col=NA, fill=gray(i/10))) grid.edit("circle.odd", gp=gpar(fill="gray10"), global=TRUE) grid.edit("circle", gp=gpar(col="gray", fill="gray90"), grep=TRUE, global=TRUE)