complete

Author: hjuinj

3.IC Chem/Figs/unnamed-chunk-2-1.png

@@ -5,7 +5,7 @@ date: "2016-08-11"
 output: html_document
 ---
 ```{r global_options, include=FALSE}
-knitr::opts_chunk$set(fig.width=12, fig.height=8, fig.path='Figs/',
+knitr::opts_chunk$set(fig.width=12, fig.height=8, 
                       warning=FALSE, message=FALSE)
 ```
 
@@ -195,7 +195,7 @@ for(i in collaborations){
 colnames(matrix) <- rownames(matrix) <- 1:length(staffs)
 p <- heatmap(matrix, text_size = 3)
 p
-kable(data.frame(Index = (1:length(staffs)), Name = staffs), row.names = F)
+kable(data.frame(Name = staffs, Index = (1:length(staffs))), row.names = F)
 ```
 
 One can see Prof Heaney and Prof McCulloch has collaborated the most. Most of the collaborations were duos. In the most extreme case, 6 staffs collaborated on 5 different piece of work: