(This article was first published on

**Rcrastinate**, and kindly contributed to R-bloggers)png(“goodbye.png”, height = 625, width = 500)

par(col = “purple”)

plot(1, 1, xlim = c(0,800), ylim = c(0,1600), type = “n”, bty = “n”, xaxt = “n”, yaxt = “n”, xlab = “”, ylab = “”)

symbols(x = 400, y = 1200, circles = 400, add = T, lwd = 40)

lines(x = c(400, 400), y = c(900, 100), lwd = 40, lend = 1)

lines(x = c(480, 320), y = c(500, 500), lwd = 40, lend = 1)

polygon(x = c(400, 480, 400, 320, 400), y = c(-20, 200, 100, 200, -20), col = “purple”, border = “purple”)

polygon(x = c(450, 500, 500, 450), y = c(500, 600, 400, 500), col = “purple”, border = “purple”)

polygon(x = c(350, 300, 300, 350), y = c(500, 600, 400, 500), col = “purple”, border = “purple”)

curve(expr = 100*log(x)+250, from = 100, to = 700, add = T, lwd = 40, lend = 1)

polygon(x = c(600, 750, 720, 750, 600), y = c(900, 1100, 900, 700, 900), col = “purple”, border = “purple”)

symbols(x = 100, y = 620, circles = 50, add = T, lwd = 40, inches = F, bg = “purple”)

dev.off()

To

**leave a comment**for the author, please follow the link and comment on their blog:**Rcrastinate**.R-bloggers.com offers

**daily e-mail updates**about R news and tutorials on topics such as: Data science, Big Data, R jobs, visualization (ggplot2, Boxplots, maps, animation), programming (RStudio, Sweave, LaTeX, SQL, Eclipse, git, hadoop, Web Scraping) statistics (regression, PCA, time series, trading) and more...