1 files changed, 10 insertions, 6 deletions
diff --git a/R Scripts/plot-data-prep.R b/R Scripts/plot-data-prep.R
index 27c2416..b91d8de 100644
--- a/R Scripts/plot-data-prep.R
+++ b/R Scripts/plot-data-prep.R
@@ -28,7 +28,8 @@ plot.new()
 vps <- baseViewports()
 pushViewport(vps$figure)
 vp1 <-plotViewport()
-grid.table(data)
+theme = ttheme_default(core=list(bg_params = list(fill = c("grey95"))))
+grid.table(data,theme = theme)
 
 # (B) bipartite person-event graph
 layout = matrix(c(rep(seq(4,0,-1),2),rep(0,5),rep(1,5)),ncol=2)
@@ -36,7 +37,8 @@ labels = c( 1:5, toupper(letters[1:5]) )
 cols = c( rep('#1a9850',5), rep('#1f78b4',5) )
 plot(g, layout=layout[,2:1], vertex.color=cols,edge.color='black',
      vertex.frame.color=NA,vertex.size=30,vertex.label=labels,
-     vertex.label.color='white',vertex.label.family='sans')
+     vertex.label.color='white',vertex.label.family='sans',
+     vertex.label.font=2,vertex.label.cex=1.25)
 
 # (C) unipartite person-person graph
 par(mar=rep(1,4))
@@ -44,13 +46,13 @@ g2 = bipartite.projection(g)$proj1
 layout.g2 = matrix(c(0,.33,-.75,-.33,0,-1,.75,-.33,0,1),ncol=2,byrow=T)
 plot(g2, vertex.color='#1f78b4', edge.color='black',layout=layout.g2,rescale=F,
      vertex.frame.color=NA,vertex.size=30,vertex.label=toupper(letters[1:5]),
-     vertex.label.color='white',vertex.label.family='sans')
+     vertex.label.color='white',vertex.label.family='sans',
+     vertex.label.font=2,vertex.label.cex=1.25)
 
 ##############################################################################
 ##############################################################################
 #### Hawkes Process Diagram
 layout(matrix(c(1,2,3,3,3,3), ncol=2, byrow = TRUE))
-par(mar=c(1,1,1,1))
 
 vics = data.frame(IC = toupper(letters[1:5]), 
                   Victim = c('TRUE','FALSE','FALSE','TRUE','FALSE'),
@@ -62,15 +64,17 @@ plot.new()
 vps <- baseViewports()
 pushViewport(vps$figure)
 vp1 <-plotViewport()
-grid.table(vics)
+grid.table(vics,theme=theme)
 
 cols = rep('#1f78b4',vcount(g2))
 cols[vics$Victim==T] = '#e41a1c'
 
 # B
+# par(mar=c(1,1,1,1))
 plot(g2, vertex.color=cols, edge.color='black',layout=layout.g2,rescale=F,
      vertex.frame.color=NA,vertex.size=30,vertex.label=toupper(letters[1:5]),
-     vertex.label.color='white',vertex.label.family='sans',axes=F)
+     vertex.label.color='white',vertex.label.family='sans',axes=F,
+     vertex.label.font=2,vertex.label.cex=1.25)
 
 
 # C