hd1/20150417

library(ggplot2)
library(imguR)
library(WDI)
WDI(indicator='NY.GDP.MKTP.KD.ZG') -> gdp
gdp[(gdp$iso2c == 'DE' | gdp$iso2c == 'US'|gdp$country == 'China'),] -> gdp.study
tempfile(fileext='.png') -> outF
gdp.study.plot <- ggplot(gdp.study, aes(x=year, y=NY.GDP.MKTP.KD.ZG, fill=country)) + geom_bar(stat='identity') + ggtitle('Contribution to GDP growth, unweighted') + ylab('Growth rate') + xlab('Year')
ggsave(outF, gdp.study.plot)
upload_image(outF[[1]])
unlink(outF)