# ========================================================================
# Matrix
# ========================================================================
# generate pairs of x-y values
nx <- 100
ny <- 80
x <- sample(x = 1:nx, size = 90, replace = TRUE)
y <- seq(-1, -ny, length = 90)
png("matrix.png", width = 700, height = 400)
# set graphical parameters
op <- par(bg = "black", mar = c(0, 0.2, 0, 0.2))
# plot
plot(1:nx, seq(-1, -nx), type = "n", xlim = c(1, nx), ylim = c(-ny+10, 1))
for (i in seq_along(x))
{
aux <- sample(1:ny, 1)
points(rep(x[i], aux), y[1:aux], pch = sample(letters, aux, replace = TRUE),
col = hsv(0.35, 1, 1, runif(aux, 0.3)), cex = runif(aux, 0.3))
}
# signature
legend("bottomright", legend = "© Gaston Sanchez", bty = "n",
text.col = "gray70")
# reset par
par(op)
dev.off()