# Just plot this…

[This article was first published on

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

**Rcrastinate**, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

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 about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.