drosofff
1/2/2017 - 9:59 PM

Color series on multiple panels (use of par and associated parameters)

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)
        }
    }