You can download session 9 files here (R-Ladies Tbilisi) and specify your working directory with setwd(“/Users/mydomain/myforlder/)
BAR CHART + LINE:
###Graph 1: Total services trade, by value
require(ggplot2) require(dplyr) mypath <- "/Users/StayPuftMarshmallowMan/Shandor Folder/" setwd(paste(mypath)) mydt <- read.csv("Georgia_Data_UN.csv", header=T) head(mydt)
## variable type year value ## 1 GDP: Gross domestic product (million current US$) economic 2014 16530.0 ## 2 GDP: Gross domestic product (million current US$) economic 2010 11638.0 ## 3 GDP: Gross domestic product (million current US$) economic 2005 6411.0 ## 4 GDP growth rate (annual %, const. 2005 prices) economic 2014 4.8 ## 5 GDP growth rate (annual %, const. 2005 prices) economic 2010 6.2 ## 6 GDP growth rate (annual %, const. 2005 prices) economic 2005 9.6 ## geo ## 1 ## 2 ## 3 ## 4 ## 5 ## 6
levels(mydt$variable)
## [1] "Agricultural production index (2004-2006=100)" ## [2] "Balance (million US$)" ## [3] "Balance of payments, current account (million US$)" ## [4] "CO2 emission estimates (tons per capita)" ## [5] "CPI: Consumer price index (2000=100)" ## [6] "Economy: Agriculture (% of GVA)" ## [7] "Economy: Industry (% of GVA)" ## [8] "Economy: Services and other activity (% of GVA)" ## [9] "Education: Government expenditure (% of GDP)" ## [10] "Education: Tertiary gross enrolment ratio (f-m per 100 pop.)" [...] ## [48] "Unemployment (% of labour force)" ## [49] "Urban population (%)" ## [50] "Urban population growth rate (average annual %)"
ser.dt <- mydt %>% filter(variable=="Total Services Trade") Balance <- ser.dt%>% group_by(year)%>% summarise(value=-diff(value)) Balance <- cbind(variable=c(rep("Total Services Trade", 13)), type= c(rep("Balance", 13)), Balance, geo=c(rep("NA", 13))) mydata <- rbind(ser.dt, Balance)
subset with the pipe operator %>%
base <- mydata %>% filter(type != "Balance") %>% mutate( value = ifelse(type == "Exports", value, -value) ) balance <- mydata %>% filter(type == "Balance") ggplot(balance, aes(x = year, y = value)) + geom_bar(data = base, aes(fill = type), stat = "identity") + geom_point(aes(colour = type)) + geom_line(aes(colour = type, group=1)) + scale_fill_manual(values = c(Exports = "#D55E00", Imports = "#E69F00"), name="") + scale_colour_manual(values = c(Balance = "#660000"), name="") + labs(x = "", y = "Total Services Trade")+ theme_bw()