Space Invaders
[This article was first published on Ripples, 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.
I burned through all of my extra lives in a matter of minutes, and my two least-favorite words appeared on the screen: GAME OVER (Ernest Cline, Ready Player One)
Inspired by the book I read this summer and by this previous post, I decided to draw these aliens:
Do not miss to check this indispensable document to choose your favorite colors:
require("ggplot2") require("reshape") mars1=matrix(c(0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,1,0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,1,0,0,0,0, 0,0,0,1,1,1,1,1,1,0,0,0, 0,0,1,1,0,1,1,0,1,1,0,0, 0,1,1,1,1,1,1,1,1,1,1,0, 0,1,1,1,1,1,1,1,1,1,1,0, 0,1,1,1,1,1,1,1,1,1,1,0, 0,1,1,1,1,1,1,1,1,1,1,0, 0,1,0,1,0,0,0,0,1,0,1,0, 0,1,0,0,1,0,0,1,0,0,1,0, 0,0,0,0,0,0,0,0,0,0,0,0), nrow=12, byrow = TRUE) mars2=matrix(c(0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,1,1,0,0,0,0,0, 0,0,0,0,1,1,1,1,0,0,0,0, 0,0,0,1,1,1,1,1,1,0,0,0, 0,0,1,1,0,1,1,0,1,1,0,0, 0,1,1,1,1,1,1,1,1,1,1,0, 0,1,1,1,1,1,1,1,1,1,1,0, 0,0,0,0,1,0,0,1,0,0,0,0, 0,0,0,1,0,1,1,0,1,0,0,0, 0,0,1,0,1,0,0,1,0,1,0,0, 0,1,0,1,0,0,0,0,1,0,1,0, 0,0,0,0,0,0,0,0,0,0,0,0), nrow=12, byrow = TRUE) mars3=matrix(c(0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,1,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0,1,0,0,0, 0,0,0,1,1,1,1,1,1,0,0,0, 0,0,1,1,0,1,1,0,1,1,0,0, 0,1,1,1,1,1,1,1,1,1,1,0, 0,1,1,1,1,1,1,1,1,1,1,0, 0,1,1,1,1,1,1,1,1,1,1,0, 0,1,0,1,0,0,0,0,1,0,1,0, 0,1,0,0,1,1,1,1,0,0,1,0, 0,0,0,0,1,0,0,1,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0), nrow=12, byrow = TRUE) mars4=matrix(c(0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,1,1,0,0,0,0,0, 0,0,0,0,1,1,1,1,0,0,0,0, 0,0,0,1,1,1,1,1,1,0,0,0, 0,0,1,1,0,1,1,0,1,1,0,0, 0,1,1,1,1,1,1,1,1,1,1,0, 0,1,1,1,1,1,1,1,1,1,1,0, 0,1,0,0,1,0,0,1,0,0,1,0, 0,0,0,1,0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0,1,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0), nrow=12, byrow = TRUE) opt=theme(legend.position="none", panel.background = element_blank(), panel.grid = element_blank(), axis.ticks = element_blank(), axis.title = element_blank(), axis.text = element_blank()) p1=ggplot(melt(mars1), aes(x=X2, y=X1))+geom_tile(aes(fill=jitter(value, amount=.1)), colour="gray65", lwd=.025)+ scale_fill_gradientn(colours = c("chartreuse", "navy"))+scale_y_reverse()+opt p2=ggplot(melt(mars2), aes(x=X2, y=X1))+geom_tile(aes(fill=jitter(value, amount=.1)), colour="gray65", lwd=.025)+ scale_fill_gradientn(colours = c("olivedrab1", "magenta4"))+scale_y_reverse()+opt p3=ggplot(melt(mars3), aes(x=X2, y=X1))+geom_tile(aes(fill=jitter(value, amount=.1)), colour="gray65", lwd=.025)+ scale_fill_gradientn(colours = c("violetred4", "yellow"))+scale_y_reverse()+opt p4=ggplot(melt(mars4), aes(x=X2, y=X1))+geom_tile(aes(fill=jitter(value, amount=.1)), colour="gray65", lwd=.025)+ scale_fill_gradientn(colours = c("tomato4", "lawngreen"))+scale_y_reverse()+opt
To leave a comment for the author, please follow the link and comment on their blog: Ripples.
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.