r 多个面板上的颜色系列（使用par和相关参数）

Posted 2021-05-24

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