adding pack small multiples plot lost during merge conflicts

DRD_in_Scotland_Visualisations.Rmd

@@ -1,7 +1,7 @@
 ---
 output:
-  html_document: default
   pdf_document: default
+  html_document: default
 ---
 
 ```{r setup, include=FALSE}
@@ -450,6 +450,35 @@ ggplot(change.dat, aes(x=Region, y=Change, fill="#D55E00")) +
 
 ## Regional Comparisons 
 
+```{r tC1a, fig.height = 6}
+
+## experiment with small multiples
+# read data
+table.dat = read_excel(xlfile, sheet = "C1 - summary", col_names=FALSE)
+
+# extract core data and convert to numbers
+dat = table.dat[10:41,1:12]
+colnames(dat) = c('Council',seq(2008,2018,1))
+dat$Council = c("Aberdeen", "Aberdeenshire", "Angus", "Argyll & Bute", "Edinburgh", "Clack'shire", "Dumfries & Ga.", "Dundee", "E. Ayrshire", "E. Dunb'shire", "E. Lothian", "E. Renf'shire", "Falkirk", "Fife", "Glasgow", "Highland", "Inverclyde", "Midlothian", "Moray", "Na h-Eil. Siar", "N. Ayrshire", "N. Lanarkshire", "Orkney Islands", "Perth & Kinross", "Renfrewshire", "Scot. Borders", "Shetland Islds", "South Ayrshire", "S. Lanarkshire", "Stirling", "W. Dunb'shire", "West Lothian")
+dat.m = melt(dat)
+
+ggplot(dat.m, aes(x=variable, y=value, group=Council, colour=ifelse(dat.m$Council == "Dundee", "A","B"))) +
+  ggtitle("Drug-Related Deaths by Council") +
+  xlab('Year') +
+  ylab('No. Deaths') +
+  geom_line(size=1.1) +
+  scale_x_discrete(breaks=c(2008, 2018), labels=c("'08","'18")) +
+  scale_colour_manual(values=c('orange','grey')) +
+  facet_wrap(~Council) +
+  theme_minimal() +
+  theme(legend.position = "none",
+        panel.grid.major.y = element_line(colour = 'lightgrey'),
+        panel.grid.major.x = element_blank(),
+        panel.grid.minor = element_blank())
+```
+
+
+
 ```{r tC1, fig.width=7}
 # read data
 table.dat = read_excel(xlfile, sheet = "C1 - summary", col_names=FALSE)