Des ronds
plot(runif(200),cex=runif(200)*10,col=rainbow(10),axes=FALSE,xlab="",ylab="")
plot(runif(150),pch=16,cex=runif(150)*8,col=rainbow(10),axes=FALSE,xlab="",ylab="")
X <- 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)))
plot(1-X,col=rgb(1-X,1-X,1),cex=5*(1-X),pch=16,axes=FALSE,xlab="",ylab="")
library(RColorBrewer)
pal = brewer.pal(9,"Spectral")
plot(X,sample(X),pch=16,cex=15*runif(10),col=sample(pal),axes=FALSE)
par(bg="black");pal1 = rainbow(50)
plot(X,sample(X),pch=10,cex=15*runif(10),col=sample(pal1),axes=FALSE)
Des carrés
plot(runif(150),pch=15,cex=runif(150)*5,col=rainbow(10),axes=FALSE,xlab="",ylab="")
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)
par(bg="tomato1") ; pal2 = brewer.pal(11,"Spectral")
plot(X,sample(X),pch=8,cex=4000*runif(10),col=sample(pal2),xlab="",ylab="",axes=FALSE)
Des étoiles
par(bg="steelblue")
plot(X,sample(X),pch=8,cex=20*runif(10),col=sample(pal2),axes=FALSE, xlab="",ylab="")
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(matrix(1:650,nc=10,nr=65),col=colors())
