Omniacs Off the Clock: Making Art with R

in #art6 years ago (edited)

"Omniacs off the Clock" is a series where we'll share fun posts that deviate a bit from our typical cryptocurrency and analytics topics. Our intent is to publish entertaining content revolving around our more quirky interests.

Omniacs Off the Clock: Making Art with R

R_pear.gif

        Inspired by Antonio S. Chinchón's article on R generated artwork], we fiddled with the code used to create his "Summoning Cthulhu" visualization to make a derivative piece we call "Cthulhu's Golden Pear".


"Cthulhu's Golden Pear"

        If you'd like to recreate this image, fire up R and run the following code:

install.packages("tidyverse")
library(tidyverse)
seq(-4,3,by=.01) %>%
  expand.grid(x=.,y=.) %>%
  ggplot(aes(x=(x^5-sin(y^2)),y=(y^2-sin(x^2))))+
  geom_point(alpha=.07,shape=22,size=0,color="orange")+
  theme_void()+coord_fixed()+
  theme(panel.background = element_rect(fill="black"))+coord_polar()

        Feel free to play around with the parameters that define the color, mathematical function, and size. You might just create something cool! When you do, let us know and we'll tweet about it!

Liked this article? Follow us on Twitter @omnianalytics

Want to learn more? Visit crypto.omnianalytics.io

Sort:  

Congratulations! This post has been upvoted from the communal account, @minnowsupport, by steemroller from the Minnow Support Project. It's a witness project run by aggroed, ausbitbank, teamsteem, someguy123, neoxian, followbtcnews, and netuoso. The goal is to help Steemit grow by supporting Minnows. Please find us at the Peace, Abundance, and Liberty Network (PALnet) Discord Channel. It's a completely public and open space to all members of the Steemit community who voluntarily choose to be there.

If you would like to delegate to the Minnow Support Project you can do so by clicking on the following links: 50SP, 100SP, 250SP, 500SP, 1000SP, 5000SP.
Be sure to leave at least 50SP undelegated on your account.

Coin Marketplace

STEEM 0.21
TRX 0.19
JST 0.033
BTC 88143.70
ETH 3251.58
USDT 1.00
SBD 3.00