edge density

R/license_network_plots.qmd

@@ -28,7 +28,8 @@ annual_graphs <- read_rds(here("Data", "network_graphs.rds"))
 
 ```
 
-## Annual network plots 
+## Annual network plots
+
 These plots include *all* data points, including years in which certain licenses may not have been issued
 
 ```{r}
@@ -39,32 +40,35 @@ These plots include *all* data points, including years in which certain licenses
 #| column:  page
 #| fig-width:  6
 #| fig-height: 6
+#| fig-align: center
 
 
 gridExtra::marrangeGrob(annual_graphs$ggraph_circular, layout_matrix = matrix(1:1, ncol = 1, nrow = 1, byrow= TRUE), top = NULL)
 
 ```
 
-## Edge density 
-Below is the time series of network edge density. 
+## Edge density
+
+Below is the time series of network edge density. The density of a graph is the ratio of the actual number of edges and the largest possible number of edges in the graph, assuming that no multi-edges are present. A network with higher density suggests more connections within the network. In the case of license networks, a more dense network would suggest more accesibility across fisheries and a less dense network would have less accessibility across fisheries. 
+
 ```{r}
 #| label: edge density
 #| echo: false
 #| message: false
 #| warning: false
 #| column:  page
-#| fig-width:  7
-#| fig-height: 5
+#| fig-width:  9
+#| fig-height: 7
+#| fig-align: center
 
 annual_graphs %>%
   select(license_year, density) %>% 
   mutate(density = as.numeric(density)) %>%
   ggplot() +
   geom_line(aes(x = license_year, y = density)) +
   ggtitle("Edge density") +
-  theme_gmri(plot.title = element_text(size = 8),
-             axis.text  = element_text(size = 6),
+  theme_gmri(plot.title = element_text(size = 10),
+             axis.text  = element_text(size = 8),
              axis.title = element_blank())
               
 ```
-