### Code for: Generating Figure 2 ### Title: Cigarette Prices in United Kingdom, France and Spain 2000-2014 ### Section 2 ### Clear workspace rm(list=ls()) ### Data frame Prices ## Require ggplot2 library(ggplot2) p2<-ggplot(data=Prices,aes(x=Year, y=values, colour=country)) + geom_line(size =.8) + geom_point()+ scale_x_continuous(limits = c(2000,2014),breaks =seq(2000,2014,1))+ scale_y_continuous(limits = c(0,10),breaks =c(2,4,6,8,10))+ labs(x="", y="Price per packet in €")+ theme_bw()+ theme(legend.title=element_blank())+ theme(axis.text.x = axis_text,axis.text.y = axis_text)+ theme(legend.position = c(0.8,0.2), legend.background = element_rect(fill = "transparent"))+ theme(legend.text=element_text(size=12)) print(p2)