Weekly Viz 2018-08-13

Anthony Bourdain’s Travels

About Makeover Monday

MakeoverMonday is a social data project: “Each week we post a link to a chart, and its data, and then you rework the chart. Maybe you retell the story more effectively, or find a new story in the data. We’re curious to see the different approaches you all take. Whether it’s a simple bar chart or an elaborate infographic, we encourage everyone of all skills to partake. Together we can have broader conversations about and with data.”

Starting from Jan 08, 2018, I decided to put aside one hour on Monday weekly to create some visualization and find some insights from the data.

The datasets are published each week at: MakeoverMonday Datasets.

Makeover Monday 0813

This week’s topic is Anthony Bourdain’s Travels. From Wikipedia, ‘Anthony Michael Bourdain was an American celebrity chef, author, travel documentarian, and television personality who starred in programs focusing on the exploration of international culture, cuisine, and the human condition.’
This dataset include records of all his travels, the destinations, and a description.

My Visualization

Despite from createing a map, as we have description column in the data, I tried for the first time to create word cloud in Tableau. But of course, this require some pre-processing of the column to transform the paragraphs to list of words. I used R to do this, and you can find the code at the end of this article. And you can find a breif introduction to how to make a word cloud in Tableau here.

–
Please notice that all the visualizations are designed for desktop view, so it is recommended to view them on a desktop device.

–

Insights

• Anthony Bourdain’s travels has been all over the world - even the antarctica.
• As for the most frequent words, of course his name are among the most frequent ones :) – of course I have removed most of the stop words like ‘a’, ‘an’, ‘the’, …

–

Appendix: R Code

library(lubridate)
library(stringr)

travels = read.csv("Anthony Bourdain Travels.csv")
travels$Air.Date = mdy(travels$Air.Date)


content = data.frame(word = c(), date = c(), city = c(), country = c())

for (i in 1:nrow(travels)) {
    description = str_extract_all(travels$Description[i], '[a-zA-Z]+')
    date = travels$Air.Date[i]
    city = travels$City[i]
    country = travels$Country[i]
    df = data.frame(word = description, date = date, city = city, country = country)
    colnames(df) = c('word', 'date', 'city', 'country')
    content = rbind(content, df)
}

content$word = tolower(content$word)

write.csv(content, 'travel description.csv')

Follow this link to find more weekly vizzes :)