Japan US gdp change comparison graph

japan_US_gdp_comparision.R

##############################
# Create a Google Line Graph to Compare the Difference between Japanese & US GDP Growth using Data
# from the World Bank
# Christopher Gandrud
# Updated 29 December 2011 
##############################

library(WDI)
library(gregmisc)
library(googleVis)

## Get data from World Bank
# Japan
gdp <- WDI(country = c("jp"), indicator = c("NY.GDP.MKTP.KD.ZG"), start = 1980, end = 2010)

gdp <- rename.vars(gdp, from = "NY.GDP.MKTP.KD.ZG", to = "japan.annual", info = FALSE)

japan.percapita <- WDI(country = c("jp"), indicator = c("NY.GDP.PCAP.KD.ZG"), start = 1980, end = 2010)

gdp <- gdp[,3:4]
japan.percapita <- japan.percapita[,4]

# US
us.annual <- WDI(country = c("us"), indicator = c("NY.GDP.MKTP.KD.ZG"), start = 1980, end = 2010)

us.percapita <- WDI(country = c("us"), indicator = c("NY.GDP.PCAP.KD.ZG"), start = 1980, end = 2010)

us.annual <- us.annual[,4]
us.percapita <- us.percapita[,4]

## Combine data
gdp <- cbind(gdp, japan.percapita, us.annual, us.percapita)

## Create difference in annual GDP % Change (Japan - US)
gdp$Overall <- gdp$japan.annual - gdp$us.annual

## Create difference in annual per capita GDP % Change (Japan - US)
gdp$PerCapita <- gdp$japan.percapita - gdp$us.percapita

## Make googleVis plots
gdp.comparison <- gvisLineChart(gdp, xvar = "year", yvar = c("Overall", "PerCapita"), options = list(
  title ="Japanese GDP Growth Compared to the US",
  vAxis = "{title:'Difference of Japanese & US GDP % Change', baselineColor:'orange'}"
  ))

plot(gdp.comparison)