Graphing My Feelings

March 15, 2018
By

(This article was first published on Little Miss Data, and kindly contributed to R-bloggers)

I am so pumped to show off a cool new tool which I learned about through Mara Averick’s Twitter feed.  This is a tool called coordinator, created by Aliza Aufrichtig and allows us to convert SVG graphics to data co-ordinates!!  Do you know what this means?  We can now use our data skills to create even more fun graphs!  I’m talking next level in the fun data category.  

LMD-think-Ginni.png

Graphing My Excitement for Think

While deciding what to plot, I had to consider topics on my mind these days.  What I’ve been thinking about lately is none other than the IBM Think 2018 Conference in Las Vegas next week!

In tribute to this event, I’m going to do a tutorial, showing how to use IBM Data Science Experience (DSX) on IBM Cloud to access a free online version of RStudio and easily create these awesome graphs!  I’ve been wanting to show off the DSX hosted RStudio option ever since I referred a friend a few weeks back.  She was looking for options on how to get RStudio on her iPad.  Well look no further, DSX to the rescue and we’ll explore this together.  

 

ibmThinkTile.png

But first, what is think?

Think is an massive business and technology event hosted by IBM.  It’s a really cool event because the scope is so wide.  As a person on the tech and analytics side, there is a lot to do.  

Dev Zone, Dev Zone, Dev Zone! – This is basically where I hung out all of last year (previously Interconnect).  This is the place to see, try and talk about the latest tech.  There are demos going on, ‘ask an expert’ sessions (planned and ad hoc) as well as drop in labs.  The drop in 20 minute labs are my favorite.  Just pop by and do a quick tutorial on any number of technical topics, such as: on creating a chat bot, making an IoT app, performing analysis with DSX and python and much more.    

Speakers and sessions– Boy there are a lot this year, over 2700 to be exact!  And if choosing your sessions seems like a daunting task, get Watson to help you.   If you couldn’t tell from the picture above, I have a bit of a girl crush on Ginni.  If you’ve never seen her speak, you should really tune in for the live keynote address.  As a woman, I love watching her knock it out of the park on these types of talks.  She manages to gracefully walk the hard line imposed on womens behavior in these scenarios.  She’s assertive and challenging but not agressive, funny but still intelligent and the list goes on.  It is the Chairmans address Tuesday March 20th at 8:30AM.  I urge you all to tune in!

Get Certified – With your conference pass comes one free exam and there are about 400 technical certifications and mastery exams that you can take at think.  Why not get recognized for your technical skills?  See the full list here.  

If you can’t come – Don’t fret.  You can still have an overflowing agenda just by watching the live (and free) online sessions and engaging in the conversation with #think2018.  Just look below at how many free, virtual sessions are offered in each time slot.  

Think_Live_Schedule.png

Tutorial Time!

Alright, now it’s time to get to the data!

A) Sign up for IBM Cloud Lite (the free account)  – Visit bluemix.net/registration/free

Follow the steps to activate and set up your account.

B) Deploy Watson Studio from the catalog.  Note this was previously called Data Science Experience

 

CreateLitePlan.png

Select the “Lite” plan and hit “Create”.  You will then be taken to new screen where you can click “Get started”.  This will redirect you to the Watson Studio UI.  

 

C) Open RStudio – In the top nav click “Tools” > “RStudio”

New R Script.png

D) Create a new file – You now are presented with RStudio online!  You need to create a new file by selecting “File” > “New File” > “R Script”

 

E) Start entering and running code – In this section you will start copying and pasting the below code into  RStudio.  You will then highlight sections of code and hit “Run”.

 

Code

You can continue on by copying and pasting code from this tutorial or downloading the full R Script here.  

F) Install and Load Libraries – Enter the following code, highlight it and click “Run”

########## Pre-Steps ########## 

# 1) Create a photo and convert to svg with any tool.  I used: http://pngtosvg.com/
# 2) Convert the svg to csv data coordinates: https://spotify.github.io/coordinator/
# 3) Save the csv on DSX or post online as I did  

########## Import Packages ########## 
install.packages("data.table")
install.packages("ggplot2")

########## Load Packages ########## 

library(data.table)
library(ggplot2)

G) Load the data file – Enter the following code, highlight it and click “Run”.  Note that we are loading the first file into a data frame.  However, when you are done, you could uncomment a few other lines to try drawing different pictures.  

 

RStudio-ss1.png

 

########## Import Data ########## 

df= fread('https://raw.githubusercontent.com/lgellis/MiscTutorial/master/files/think_image_coords_final.csv', stringsAsFactors = FALSE)

# alternative 1 
# df= fread('https://raw.githubusercontent.com/lgellis/MiscTutorial/master/files/lmd-loves-cloud.csv', stringsAsFactors = FALSE)

# alternative 2 
# df= fread('https://raw.githubusercontent.com/lgellis/MiscTutorial/master/files/ibm_think_tile.csv' , stringsAsFactors = FALSE)

#Ensure it loads and attach the column names
summary(df)
dim(df)
attach(df)

H) Create your plot – Enter the following code, highlight it and click “Run”.  In the bottom right “Plots” section, you will see your graph. 

########## Plot the Data ########## 

# Basic scatter plot
p <-ggplot(df, aes(x=x, y=y)) +
  geom_point(colour = '#006699', size = 0.05) 
p

Plot1.png

I) Fix Ginni! – Poor Ginni was upside down in the last chart.  Let’s reverse the y-axis to fix this.  While we’re at it, lets pretty up the graph a bit.  Remove axis labels, change background etc.  Enter the following code, highlight it and click “Run”.  In the bottom right “Plots” section, you will see your graph. 

#flip the scale
p <-p +  scale_y_reverse() 
p

#make it pretty
p +  
  theme(panel.background = element_rect(fill = 'white')) +
  theme(axis.line=element_blank(),
        axis.text.x=element_blank(),
        axis.text.y=element_blank(),
        axis.ticks=element_blank(),
        axis.title.x=element_blank(),
        axis.title.y=element_blank(),
        legend.position="none",
        panel.background=element_blank(),
        panel.border=element_blank(),
        panel.grid.major=element_blank(),
        panel.grid.minor=element_blank(),
        plot.background=element_blank())

Ginni Party Hat.png

J) Celebrate! You’ve made a super awesome graph to promote Think!  

Meet Me At Think

Thank you for reading this posting.  I’m very excited for both the new tool and for Think next week.  Please contact me via any of the channels below if you will be at Think next week.  I would love to meet up and discuss data!

To leave a comment for the author, please follow the link and comment on their blog: Little Miss Data.

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...



If you got this far, why not subscribe for updates from the site? Choose your flavor: e-mail, twitter, RSS, or facebook...

Comments are closed.

Search R-bloggers

Sponsors

Never miss an update!
Subscribe to R-bloggers to receive
e-mails with the latest R posts.
(You will not see this message again.)

Click here to close (This popup will not appear again)