Récréation

Des ronds

plot(runif(200),cex=runif(200)*10,col=rainbow(10),axes=FALSE,xlab="",ylab="")rond_1
plot(runif(150),pch=16,cex=runif(150)*8,col=rainbow(10),axes=FALSE,xlab="",ylab="")
rond_2X <- runif(100)
plot(X,pch=16,cex=4,col=sample(rainbow(30)),axes=FALSE,xlab="",ylab="")
points(X,pch=16,cex=2,col=sample(rainbow(30)))

rond_3
plot(1-X,col=rgb(1-X,1-X,1),cex=5*(1-X),pch=16,axes=FALSE,xlab="",ylab="")

rond_4library(RColorBrewer)
pal = brewer.pal(9,"Spectral")
plot(X,sample(X),pch=16,cex=15*runif(10),col=sample(pal),axes=FALSE)
rond_5par(bg="black");pal1 = rainbow(50)
plot(X,sample(X),pch=10,cex=15*runif(10),col=sample(pal1),axes=FALSE)

rond_6

Des carrés

plot(runif(150),pch=15,cex=runif(150)*5,col=rainbow(10),axes=FALSE,xlab="",ylab="")

carre_1

Des traits

plot(0,axes=FALSE,xlim=c(0,1),ylim=c(0,1))
rug(runif(30),side=1,col=2,ticksize=0.5,lwd=2)
rug(runif(30),side=2,col=3,ticksize=0.5,lwd=2)
rug(runif(30),side=3,col=4,ticksize=0.5,lwd=2)
rug(runif(30),side=4,col=5,ticksize=0.5,lwd=2)

trait_1par(bg="tomato1") ; pal2 = brewer.pal(11,"Spectral")
plot(X,sample(X),pch=8,cex=4000*runif(10),col=sample(pal2),xlab="",ylab="",axes=FALSE)
trait_3

Des étoiles

par(bg="steelblue")
plot(X,sample(X),pch=8,cex=20*runif(10),col=sample(pal2),axes=FALSE, xlab="",ylab="")

etoile_1

 

Des images

V = c(0,1) ;mat = matrix(nc=10,nr=1024)
for (i in 1:10) mat[,i] =  rep(rep(V,each=1024/2^i),times=2^(i-1))

image(t(mat),col=c("white","black"),xlab="",ylab="",axes=FALSE)
image(t(mat[,sample(1:ncol(mat))]),col=c("white","black"),axes=FALSE)

image_1

image_2

image(matrix(1:650,nc=10,nr=65),col=colors())
 image_3

 

About the Author