Color series on multiple panels (use of par and associated parameters)
par(mar=c(0,0,0,0), mfrow=c(10,10), oma = c(0,0,0,0), bg=1)
for (i in 1:100) {
plot(1, type="n", axes=F, xlab="", ylab="", xlim=c(-1,1), ylim=c(-1,1), asp=1)
col=rgb(i/100,runif(1),runif(1),1)
fond=rgb(i/100,runif(1),runif(1),1)
if (i==18) {
symbols(0,0, squares=c(1.8), inches=F, fg="firebrick2",bg="firebrick2", add=T)
} else {
symbols(0,0, circles=c(1), inches=F, fg=col,bg=col, add=T, lwd=.2)
}
}
par(mar=c(0,0,0,0), mfrow=c(10,10), oma = c(0,0,0,0))
for (i in 1:100) {
plot(1, type="n", axes=F, xlab="", ylab="", xlim=c(-1,1), ylim=c(-1,1), asp=1)
col=rgb(i/100,runif(1),runif(1),runif(1,.6,1))
fond=rgb(i/100,runif(1),runif(1),runif(1,.6,1))
if (i==63) {
symbols(0,0, squares=c(1.8), inches=F, fg=col,bg="black", add=T)
} else {
symbols(0,0, circles=c(1), inches=F, fg=col,bg=fond, add=T, lwd=2)
}
}