# ========================================================================
# Rainbow Waves
# ========================================================================
# generate pairs of x-y values
n <- 100
x <- seq(0, 6*pi, length = n)
y <- sin(x)
# function to generate colors like ggplot2
gg_color_hue <- function(n) {
hues <- seq(15, 375, length = n + 1)
hcl(h = hues, l = 65, c = 100)[1:n]
}
# vector of colors
cols <- gg_color_hue(n)
png("rainbow_waves.png", width = 700, height = 400)
# set graphical parameters
op <- par(bg = "gray20", mar = rep(0, 4))
# plot
plot(x, y, type = "n", ylim = c(-11, 11), axes = FALSE)
lines(x, y, col = hsv(0.85, 1, 1, 0.7))
aux <- 1
for (i in seq(-10, 10, length = n))
{
lines(x, y + i, col = cols[aux],
lwd = 2*runif(1, 0.3, 2))
aux <- aux + 1
}
# signature
legend(x = 11.5, -10, legend = "© Gaston Sanchez", bty = "n",
text.col = "gray70")
# reset par
par(op)
dev.off()
