Sep 6, 2014

All Data Journalism Graduates in a Map





This week I got my certificate of completion from the course "Doing Journalism with Data: First Steps, Skills and Tools"(if you like to know more about data journalism check out my post "3 Great Examples of Data Journalism Stories"). I enjoyed the course a lot, and I am proud of being one of the 1250 people who successfully completed the course. I was a bit surprised we were only 1250 graduates!

So, where did we come from and who we are? Above is a map I built using the R programming language, and in particular the GoogleVis package. GoogleVis is a great package that provides an interface to the Gogle Vis API, and make creating interactive plots quite easy. Interactive means that users can manipulate data and look for the info they need. Here a list of visualizations you can do with Google Charts.

The other great thing about this visualization, is that you can make it available over HTML, like I did above (you can edit the HTML if you like). No more static charts on your desktop then, but beautiful, interactive visualization shared on the web!

Below is the simple R code I used to prepare the data and plot the charts. To plot the data about graduates titles (the title people indicated when they enrolled to the course) I used Google Refine and some of its cluster methods to clean/group data (e.g.: "journalist" or journalists" or "periodista" falled into the general category of "Journalist"). Then I load it into R as a .csv file.


ddj<-  read.csv("ddjCleaned.csv")
summary(ddj)
studCountry<-  as.data.frame(table(ddj$country))
names(studCountry)<- c("country","graduates")

studTitle<- as.data.frame(table(ddj$title))
names(studTitle)<-c("title","graduates")

install.packages("googleVis")
library(googleVis)

C<- gvisGeoChart(studCountry, locationvar = "country", colorvar = "graduates", options = list(width = 500, height = 400))
plot(C)

T<- gvisPieChart(head(studTitle[order(studTitle$graduates, decreasing =TRUE),],10), labelvar = "title", numvar="graduates",options = list(width = 500, height = 300))
plot(T)

CT <- gvisMerge(D,T, horizontal=FALSE)
plot(CT)

# to get the HTML code of your visualization you can either print execute the following command:

print(CT)  #print the Object you have just created

# or you can click on the Chart ID link below your visualization.


16 comments:

  1. Among the several web design firms in the Singapore region, MediaOne has been the best in the business for a significant length of time. They would ensure to offer you the right quote suitable to your budget and a unique design to meet your standards.

    ReplyDelete
  2. I’m having a little issue I cant subscribe your feed, I’m using google reader fyi. https://royalcbd.com/product/cbd-gummies-25mg/

    ReplyDelete
  3. Hey there would you mind letting me know which web host you're utilizing? I've loaded your blog in 3 different internet browsers and I must say this blog loads a lot faster then most. Can you suggest a good hosting provider at a honest price? Many thanks, I appreciate it!diary singapore

    ReplyDelete
  4. Hey There. I found your weblog using msn. That is an extremely well written article. I will make sure to bookmark it and return to learn more of your helpful information. Thank you for the post. I will definitely return.Licensed Electrical Worker

    ReplyDelete
  5. My programmer is trying to convince me to move to .net from PHP. I have always disliked the idea because of the expenses. But he's tryiong none the less. I've been using WordPress on a number of websites for about a year and am nervous about switching to another platform. I have heard excellent things about blogengine.net. Is there a way I can import all my wordpress posts into it? Any help would be greatly appreciated!chinatown money lender

    ReplyDelete
  6. Their ability to lead from behind was very helpful for our staff throughout the project
    branding agency San Francisco

    ReplyDelete
  7. Thanks for sharing this beautiful post for the spring of watercolors. use in a different manners is really awesome.

    ReplyDelete
  8. Wow! This blog looks just like my old one! It's on a entirely different subject but it has pretty much the same page layout and design. Wonderful choice of colors! hifu price singapore

    ReplyDelete
  9. Thanks for sharing this.,
    Leanpitch provides crash course in Brain hacks using NLP everyone can use it wisely.
    NLP training

    Brain hacks with NLP

    ReplyDelete
  10. Just wish to say your article is as astounding. The clearness in your post is simply spectacular and i can assume you're an expert on this subject. Fine with your permission let me to grab your feed to keep updated with forthcoming post. Thanks a million and please carry on the gratifying work. buy energy shot

    ReplyDelete
  11. They provided high-quality design work in a timely fashion through a collaborative process. Their team is dedicated and professional, bringing the client’s ideas to life.
    UX design firms

    ReplyDelete
  12. I'm not sure why but this blog is loading very slow for me. Is anyone else having this issue or is it a problem on my end? I'll check back later and see if the problem still exists.commercial cleaning services

    ReplyDelete
  13. My brother suggested I might like this website. He was entirely right. This post truly made my day. You cann't imagine simply how much time I had spent for this information! Thanks! live baccarat online

    ReplyDelete
  14. Refine Packaging produces custom packaging for some of the world’s largest brands – including Adidas, T-Mobile, Pandora, MetLife, Old Spice, Marriott, and many other businesses nationwide.

    ReplyDelete
  15. Excellent website you have here, so much cool information!..
    best custom home builders near me

    ReplyDelete