Anpassungen und QualPhase verschoben

Ländervergleich/BL_Informatik_Einfuehrungsphase_Skript.R

@@ -65,9 +65,14 @@ inf_einf_art_gruppiert_gesamt_kurz <- inf_einf_art_gruppiert_gesamt %>%
     .groups = "drop"                      # Entferne Gruppierung im Ergebnis
   )
 
-# 5) Geodaten mit Einf-Phase-Daten verknüpfen
+# # 5) Geodaten mit Einf-Phase-Daten verknüpfen
+# germany_data <- germany_states %>%
+#   left_join(inf_einf, by = c("name" = "Bundesland"))
+
+# 5) Geodaten mit priorisierten Daten verknüpfen
 germany_data <- germany_states %>%
-  left_join(inf_einf, by = c("name" = "Bundesland"))
+  left_join(inf_einf_art_gruppiert_gesamt_kurz, by = c("name" = "Bundesland"))
+
 
 # postal-Kürzel korrigieren: Brandenburg → "BB"
 germany_data <- germany_data %>%