Just plot this…
[This article was first published on 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.
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.