move diagram back to original pos

SeanFobbe · Jul 24, 2024 · 75f8fa4 · 75f8fa4
1 parent 6d9b53f
commit 75f8fa4
Showing 1 changed file with 39 additions and 35 deletions.
diff --git a/reports/Codebook.Rmd b/reports/Codebook.Rmd
@@ -558,41 +558,6 @@ Falls eine BVerfGE-Entscheidung ebenfalls eine BVerfGE-Entscheidung zitiert, hat
 
 
 
-```{r, CE-BVerfG_Zitationsnetzwerk_Sugiyama_schwarz, fig.width = 40, fig.height = 50, fig.dpi = 50, fig.pos = "p", fig.cap = "Das Zitationsnetzwerk von BVerfGE-Entscheidungen ab 1998", dev = "png"}
-
-g <- igraph_citations
-g <- igraph::subgraph(g, which(igraph::V(g)$bverfge == TRUE)) # nur BVerfGE
-
-# Keine isolated nodes
-isolated  <-  which(igraph::degree(g) == 0)
-g  <- igraph::delete_vertices(g, isolated)
-
-
-ggraph(g, "sugiyama") + 
-    geom_edge_diagonal(colour = "black", edge_width = 0.05)+
-    geom_node_point(size = 0.5,
-                    color = "black")+
-    theme_void()+
-    labs(
-        title = paste(prefix.figuretitle,
-                      "| Zitationsnetzwerk BVerfGE-zu-BVerfGE in Entscheidungstexten ab 1998"),
-        caption = caption
-    )+
-    theme(
-        plot.title = element_text(size = 30,
-                                  face = "bold",
-                                  color = "black"),                        
-        plot.background = element_rect(fill = "white"),
-        plot.caption = element_text(color = "black"),
-        plot.margin = margin(10, 20, 10, 10)
-    )
-#ggsave("test.png", dev ="png", width = 40, height = 50, dpi = 50, limitsize = FALSE)
-
-
-
-```
-
-
 
 
 ```{r, CE-BVerfG_Zitationsnetzwerk_Knotengrad, fig.width = 9, fig.height = 6}
@@ -674,6 +639,45 @@ ggplot(data = degree.in) +
 
 
 
+
+```{r, CE-BVerfG_Zitationsnetzwerk_Sugiyama_schwarz, fig.width = 40, fig.height = 50, fig.dpi = 50, fig.pos = "p", fig.cap = "Das Zitationsnetzwerk von BVerfGE-Entscheidungen ab 1998", dev = "png"}
+
+g <- igraph_citations
+g <- igraph::subgraph(g, which(igraph::V(g)$bverfge == TRUE)) # nur BVerfGE
+
+# Keine isolated nodes
+isolated  <-  which(igraph::degree(g) == 0)
+g  <- igraph::delete_vertices(g, isolated)
+
+
+ggraph(g, "sugiyama") + 
+    geom_edge_diagonal(colour = "black", edge_width = 0.05)+
+    geom_node_point(size = 0.5,
+                    color = "black")+
+    theme_void()+
+    labs(
+        title = paste(prefix.figuretitle,
+                      "| Zitationsnetzwerk BVerfGE-zu-BVerfGE in Entscheidungstexten ab 1998"),
+        caption = caption
+    )+
+    theme(
+        plot.title = element_text(size = 30,
+                                  face = "bold",
+                                  color = "black"),                        
+        plot.background = element_rect(fill = "white"),
+        plot.caption = element_text(color = "black"),
+        plot.margin = margin(10, 20, 10, 10)
+    )
+#ggsave("test.png", dev ="png", width = 40, height = 50, dpi = 50, limitsize = FALSE)
+
+
+
+```
+
+
+
+
+
 \newpage