UK trade in goods and services balance with selected non-EU countries, 1999 to 2015, in £ millions

chartpeter2.png

data2.csv

line.csv

script.R

library(ggplot2)
library(reshape2)
library(scales)
library(grid)
library(timesTheme)
library(extrafont)
library(RColorBrewer)

# read CSV fileso
data <- read.table("data2.csv", header=TRUE, sep=",")
line <- read.table("line.csv", header=TRUE, sep=",")

# metls it by year, our future x axis
df <- melt(data, id.var="Year")
dfline <- melt(line, id.var="Year")

# colour palette
#              canada     us         china      india      japan
cpalette <- c("#96887a", "#254251", "#dacfc1", "#6c3c5e", "#3292a6")

# set up basic plot
ggplot() +
  # stacked bar chart
  geom_bar(data=df,
           aes(Year, value, fill=variable),
           stat="identity",
           position="identity") +
  # line + points on line
  geom_line(data=dfline,
            aes(Year, value),
            colour="#f37f2f",
            linetype=1) +
  geom_point(data=dfline,
             aes(Year, value), # adds points to line
            colour="#f37f2f") +
  # axis
  scale_x_continuous(breaks=seq(1999,2015,1)) +
  scale_y_continuous(breaks=seq(-40000,50000,10000), # breaks every 10,000
                     limits=c(-40000,50000),
                     labels = scales::comma) +
  # add theme
  times_theme() +
  theme(plot.title=element_text(family="Times Modern Bold")) +
  theme(axis.title.x=element_blank()) +         # no label on x axis
  theme(axis.title.y=element_blank()) +         # no label on y axis
  theme(panel.grid.major.x = element_blank()) + # no vertical grids
  scale_fill_manual(values=cpalette) +
  theme(legend.position="top",
        legend.key.size=unit(.02, "npc"),
        legend.title=element_blank()) +
  theme(plot.margin=unit(c(1,1,1.5,1), "cm"))           # widern margins for text at bottom
  grid.text("Source: Office for National Statistics",   # custom text at bottom
            x=unit(.1, "npc"), y=unit(.04, "npc"),
            just=c("left", "bottom"),
            gp=gpar(fontfamily="Gill Sans", fontsize=8))