diff --git "a/R_bwi/bwi_ver\303\266ffentlichung/BWI2022_PK20241014.qmd" "b/R_bwi/bwi_ver\303\266ffentlichung/BWI2022_PK20241014.qmd"
index afab0e242d0f26accf66258a96d8cd0f84f6f000..4a835b9e9e2fbae7df2e52e07724a4e7a2a74d32 100644
--- "a/R_bwi/bwi_ver\303\266ffentlichung/BWI2022_PK20241014.qmd"
+++ "b/R_bwi/bwi_ver\303\266ffentlichung/BWI2022_PK20241014.qmd"
@@ -271,7 +271,7 @@ ggplot(
:::
:::::
-
+### Baumartenzusammensetzung detalliert
```{r barplot-waldfl22_ba_long_sorted, echo=FALSE}
# Schritt 1: Sortiere den Datensatz nach Anteil und Baumartengruppe
waldfl22_ba_long_sorted <- waldfl22_ba_long %>%
@@ -308,7 +308,7 @@ ggplot(waldfl22_ba_long_sorted, aes(x = Ba_Wa, y = Prozent, fill = Ba_Wa)) +
#ggsave("images/barplot-waldfl22_ba_long_sorted.png", width = 15, height = 10, units = "cm")
```
-
+## Standflächen im Landeswald
```{r bb_waldfl_ba_eg_standfl_22_landeswald_treemap, echo=FALSE}
ggplot(
bb_waldfl_ba_eg_standfl_22 %>%
@@ -341,6 +341,7 @@ bb_waldfl_ba_eg_standfl_22 %>%
```
+
### Baumartenzusammensetzungsänderung
::::: columns
@@ -1120,15 +1121,18 @@ ggplot(
select(Bestockungsaufbau, Fläche = Fläche.x, Veränderung = Fläche.y) %>%
mutate(Ursprungswert = Fläche - Veränderung,
ProzentualeVeränderung = (Veränderung / Ursprungswert) * 100) %>%
- pivot_longer(cols = c(Fläche, Veränderung), names_to = "Typ", values_to = "Wert")
- , aes(x = reorder(Bestockungsaufbau, -Wert), y = Wert, fill = Bestockungsaufbau)) + # Färben nach Bestockungsaufbau
+ pivot_longer(cols = c(Fläche, Veränderung), names_to = "Typ", values_to = "Wert") %>%
+ mutate(Bestockungsaufbau = factor(Bestockungsaufbau,
+ levels = c("zweischichtig", "mehrschichtig oder plenterartig", "einschichtig")))
+ , aes(x = Bestockungsaufbau #reorder(Bestockungsaufbau, -Wert)
+ , y = Wert, fill = Bestockungsaufbau)) + # Färben nach Bestockungsaufbau
geom_col(aes(group = Typ), position = position_dodge(width = 0.8), width = 0.7) + # Typ als Gruppe verwenden, um nebeneinander zu bleiben
geom_text(data = . %>% filter(Typ == "Veränderung"), # Nur die Veränderungen beschriften
aes(label = paste0(#scales::comma(Wert, big.mark = ".", decimal.mark = ","),
#"\n(",
round(ProzentualeVeränderung, 1), "%"
)),
- position = position_dodge(width = 0.8), vjust = -0.5, hjust = -0.2, size = 3) +
+ position = position_dodge(width = 0.8), vjust = -0.5, hjust = -0.2, size = 4) +
labs(x = ""# "Bestockungsaufbau"
, y = ""# "Holzbodenfläche [ha]"
,
@@ -1139,7 +1143,8 @@ ggplot(
legend.position = "none") + # Legende ausblenden +
scale_y_continuous(labels = label_comma(big.mark = ".", decimal.mark = ",", accuracy = 1), # Tausenderformat
breaks = seq(0, max(land_bestaufbau$Fläche, na.rm = TRUE), by = 100000)) # Schrittweite von 100.000 ha
-ggsave("images/groupbar-bestaufbauflant.png", width = 15, height = 10, units = "cm")
+#ggsave("images/groupbar-bestaufbauflant.png", width = 15, height = 10, units = "cm")
+ggsave("images/groupbar-bestaufbauflant_schichtorder.png", width = 15, height = 10, units = "cm", dpi = 300)
```
:::
:::::
@@ -1183,31 +1188,168 @@ land_bestaufbau %>%
### Schichtigkeit und Laub- Nadelwald
+```{r stackbar-bestyp_eig_bb_ha_anteile, echo=FALSE}
+# Berechnung der Anteile und Hinzufügen der Spalte Anteil
+bestyp_eig_bb_ha_anteile <- bestyp_eig_bb_ha %>%
+ filter(!Eigentumsart %in% c('Öffentlicher Wald',
+ #"Staatswald (Land)",
+ "Privatwald",
+ "alle Eigentumsarten"),
+ !Bestockungstyp %in% c("Laubwald-Typ", "Nadelwald-Typ")) %>%
+ group_by(Eigentumsart) %>%
+ mutate(Gesamtfläche = Waldfläche[Bestockungstyp == "alle Laub-/Nadelwaldtypen"],
+ Anteil = (Waldfläche / Gesamtfläche) * 100) %>%
+ filter(!Bestockungstyp %in% c("alle Laub-/Nadelwaldtypen")) %>%
+ ungroup() %>%
+ mutate(Bestockungstyp = factor(Bestockungstyp, levels = c(
+ "reiner Laubwald",
+ "Laubwald mit Nadelbeimischung",
+ "Laub-/Nadel-Mischwald mit gleichen Anteilen",
+ "Nadelwald mit Laubbeimischung",
+ "reiner Nadelwald"))) %>%
+ mutate(Eigentumsart = factor(Eigentumsart,
+ levels = c(
+ "Staatswald (Bund)",
+ "Staatswald (Land)",
+ "Körperschaftswald",
+ "Privatwald, bis 20 ha",
+ "Privatwald, über 20 bis 1000 ha",
+ "Privatwald, über 1000 ha"
+ )
+ #c('Öffentlicher Wald', "Staatswald (Land)", "Privatwald", "alle Eigentumsarten")
+ ))
+
+# Erstelle das gestapelte Balkendiagramm mit Anteilen als Beschriftung
+ggplot(bestyp_eig_bb_ha_anteile, aes(x = Eigentumsart, y = Anteil, fill = Bestockungstyp)) +
+ geom_bar(stat = "identity", position = "stack", width = 0.7) +
+ geom_text(aes(label = paste0(round(Anteil, 1), "%")),
+ position = position_stack(vjust = 0.5), size = 3, color = "black") +
+ labs(x = "", y = "Bestockungstypanteile [%]",
+ title = #"Waldflächenanteile\n nach Bestockungstyp und Eigentumsart"
+ ) +
+ scale_fill_manual(values = c("#66c2a5", "#fc8d62", "#8da0cb", "#e78ac3", "#a6d854", "#ffd92f", "#e5c494")) + # Manuell definierte Farben für Bestockungstypen
+ theme_minimal() +
+ theme(axis.text.x = element_text(angle = 45, hjust = 1, color = "black", size = 11),
+ plot.margin = margin(1, 1, 1.5, 1.5, "cm") # Mehr Platz um den Plot herum
+ )
+#ggsave("images/stackbar-bestyp_eig_bb_ha_anteile.png", width = 15, height = 10, units = "cm")
+#ggsave("images/stackbar-bestyp_eig_bb_ha_anteile_label.png", width = 15, height = 10, units = "cm")
+ggsave("images/stackbar-bestyp_alleig_bb_ha_anteile_label.png", width = 20, height = 15, units = "cm", dpi = 300)
+```
+
+```{r}
+bestyp_eig_bb_ha_anteile %>%
+ filter(Eigentumsart == "alle Eigentumsarten") %>%
+ select(Bestockungstyp, Waldfläche, Anteil) %>%
+ flextable() %>%
+ colformat_double(big.mark = ".", decimal.mark = ",",digits = 1) %>%
+ autofit()
+
+```
+
+
+```{r barplot-ver_bestyp_eig_bb_ha_filtered, echo=FALSE}
+# Daten filtern und Bestockungstyp als Faktor setzen
+ver_bestyp_eig_bb_ha_filtered <- ver_bestyp_eig_bb_ha %>%
+ filter(Eigentumsart == "alle Eigentumsarten" &
+ !Bestockungstyp %in% c("alle Laub-/Nadelwaldtypen","Laubwald-Typ", "Nadelwald-Typ")) %>%
+ mutate(Bestockungstyp = factor(Bestockungstyp, levels = c(
+ "reiner Laubwald",
+ "Laubwald mit Nadelbeimischung",
+ "Laub-/Nadel-Mischwald mit gleichen Anteilen",
+ "Nadelwald mit Laubbeimischung",
+ "reiner Nadelwald")))
+
+# Erstelle das Balkendiagramm für die Veränderungen der Bestockungstypen
+ggplot(ver_bestyp_eig_bb_ha_filtered, aes(x = Bestockungstyp, y = Waldflächenänderung, fill = Bestockungstyp)) +
+ geom_bar(stat = "identity", width = 0.7) +
+ labs(x = "", y = "Waldflächenänderung [ha]",
+ title = "Veränderungen der Waldflächen nach Bestockungstypen\n(alle Eigentumsarten)") +
+ scale_fill_manual(values = c("#66c2a5", "#fc8d62", "#8da0cb", "#e78ac3", "#a6d854", "#ffd92f", "#e5c494")) + # Manuell definierte Farben
+ theme_minimal() +
+ theme(axis.text.x = element_text(angle = 45, hjust = 1),
+ # legend.position = "none"
+ ) # Entfernt die Legende
+ggsave("images/barplot-ver_bestyp_eig_bb_ha_filtered-legende.png", width = 15, height = 10, units = "cm")
+```
+
+```{r}
+ver_bestyp_eig_bb_ha_filtered %>%
+ flextable() %>%
+ colformat_double(big.mark = ".", decimal.mark = ",",digits = 0)
+```
+
+```{r}
+# bestyp_eig_bb_ha_filtered %>%
+# filter(Eigentumsart == "alle Eigentumsarten") %>%
+# flextable() %>%
+# colformat_double(big.mark = ".", decimal.mark = ",",digits = 0)
+```
+```{r}
+ver_bestyp_eig_bb_ha %>%
+ filter(Eigentumsart %in% c(
+ # 'Öffentlicher Wald',
+ # "Staatswald (Land)",
+ # "Privatwald",
+ "alle Eigentumsarten"),
+ !Bestockungstyp %in% c("alle Laub-/Nadelwaldtypen"))
+```
### Totholz
#### Totholzvorrat nach Eigentumsart
```{r stackbar_tot_bb_eig_bag22, echo=FALSE}
ggplot(tot_bb_eig_bag22 %>%
- filter(Eigentumsart %in% c("Öffentlicher Wald",
+ filter(Eigentumsart %in% c(#"Öffentlicher Wald",
+ "Staatswald (Bund)",
"Staatswald (Land)",
+ "Körperschaftswald",
"Privatwald, bis 20 ha",
"Privatwald, über 20 bis 1000 ha",
- "Privatwald, über 1000 ha",
- "alle Eigentumsarten") &
+ "Privatwald, über 1000 ha"
+ ) &
#== "alle Eigentumsarten" &
- !Baumartengruppe == "alle Baumartengruppen von Totholz"),
+ !Baumartengruppe == "alle Baumartengruppen von Totholz") %>%
+ mutate(Eigentumsart = factor(Eigentumsart, levels = c(c(#"Öffentlicher Wald",
+ "Staatswald (Bund)",
+ "Staatswald (Land)",
+ "Körperschaftswald",
+ "Privatwald, bis 20 ha",
+ "Privatwald, über 20 bis 1000 ha",
+ "Privatwald, über 1000 ha"
+ )))),
aes(x = Eigentumsart, y = Totholzvorrat, fill = Baumartengruppe)) +
geom_bar(stat = "identity", position = "stack") +
scale_fill_manual(values = tot_bb_eig_bag22$farben) +
+
+ # Füge die gestrichelte Linie für den Gesamtvorrat hinzu
+ geom_hline(yintercept = tot_bb_eig_bag22 %>%
+ filter(Eigentumsart == "alle Eigentumsarten" &
+ Baumartengruppe == "alle Baumartengruppen von Totholz") %>%
+ pull(Totholzvorrat), color = "red", linetype = "dashed", size = 1) +
+
+ # Füge das Label für den Gesamtvorrat hinzu
+ annotate("text", x = 3, y = tot_bb_eig_bag22 %>%
+ filter(Eigentumsart == "alle Eigentumsarten" &
+ Baumartengruppe == "alle Baumartengruppen von Totholz") %>%
+ pull(Totholzvorrat) + 4, label = paste("Durchschnittsvorrat:", round(tot_bb_eig_bag22 %>%
+ filter(Eigentumsart == "alle Eigentumsarten" &
+ Baumartengruppe == "alle Baumartengruppen von Totholz") %>%
+ pull(Totholzvorrat), 1), "m³/ha"),
+ color = "red", size = 4, hjust = 0.5) +
+
labs(x = "Eigentumsart", y = "Totholzvorrat [m³/ha]", fill = "Baumartengruppe",
title = "Totholzvorrat nach Eigentumsart und Baumartengruppe in Brandenburg") +
theme_minimal() +
- theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
+ theme(axis.text.x = element_text(angle = 45, hjust = 1, colour = "black",size = 11),
+ plot.title = element_text(margin = margin(b = 15)), # Erhöht den Abstand unter dem Titel
+ plot.margin = margin(1, 1, 1.5, 1.5, "cm") # Mehr Platz um den Plot herum
+ ) +
scale_y_continuous(labels = scales::comma_format(big.mark = ".", decimal.mark = ",", accuracy = 1), # Tausenderformat
- breaks = seq(0, max(tot_bb_eig_bag22$Totholzvorrat, na.rm = TRUE), by = 10)) # Schrittweite von 10.000 m³/ha
+ breaks = seq(0, max(tot_bb_eig_bag22$Totholzvorrat + 10, na.rm = TRUE), by = 10)) # Schrittweite von 10.000 m³/ha
#ggsave("images/stackbar_tot_bb_eig_bag22.png", width = 15, height = 10, units = "cm")
+ggsave("images/stackbar_tot_bb_eigall_bag22.png", width = 20, height = 12, units = "cm",dpi = 300)
```
```{r tbl_tot_bb_eig_bag22}
@@ -1225,25 +1367,40 @@ tot_bb_eig_bag22 %>%
#### Totholzvorratsänderung nach Eigentumsart
```{r stackbar_ver_tot_bb_eig_bag22, echo=FALSE}
ggplot(ver_tot_bb_eig_bag22 %>%
- filter(Eigentumsart %in% c("Öffentlicher Wald",
+ filter(Eigentumsart %in% c(#"Öffentlicher Wald",
+ "Staatswald (Bund)",
"Staatswald (Land)",
+ "Körperschaftswald",
"Privatwald, bis 20 ha",
"Privatwald, über 20 bis 1000 ha",
- "Privatwald, über 1000 ha",
- "alle Eigentumsarten") &
+ "Privatwald, über 1000 ha"
+ ) &
#== "alle Eigentumsarten" &
- !Baumartengruppe == "alle Baumartengruppen von Totholz"),
+ !Baumartengruppe == "alle Baumartengruppen von Totholz") %>%
+ mutate(Eigentumsart = factor(Eigentumsart, levels = c(c(#"Öffentlicher Wald",
+ "Staatswald (Bund)",
+ "Staatswald (Land)",
+ "Körperschaftswald",
+ "Privatwald, bis 20 ha",
+ "Privatwald, über 20 bis 1000 ha",
+ "Privatwald, über 1000 ha"
+ )))),
aes(x = Eigentumsart, y = Totholzvorrat, fill = Baumartengruppe)) +
geom_bar(stat = "identity", position = "stack") +
scale_fill_manual(values = ver_tot_bb_eig_bag22$farben) +
labs(x = "Eigentumsart", y = "Totholzvorrat [m³/ha]", fill = "Baumartengruppe",
- title = "Änderung des Totholzvorrates BWI 2012 -- 2022\n
- nach Eigentumsart und Baumartengruppe in Brandenburg") +
+ title = "Änderung des Totholzvorrates BWI 2012 -- 2022",
+ subtitle = "nach Eigentumsart und Baumartengruppe in Brandenburg") +
theme_minimal() +
- theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
+ theme(axis.text.x = element_text(angle = 45, hjust = 1, colour = "black",size = 11),
+ plot.title = element_text(margin = margin(b = 14)), # Erhöht den Abstand unter dem Titel
+ plot.subtitle = element_text(size = 12, margin = margin(t = 0, b = 10)), # Weniger Abstand oben, mehr unten
+ plot.margin = margin(1, 1, 1.5, 1.5, "cm") # Mehr Platz um den Plot herum
+ ) +
scale_y_continuous(labels = scales::comma_format(big.mark = ".", decimal.mark = ",", accuracy = 1), # Tausenderformat
breaks = seq(0, max(ver_tot_bb_eig_bag22$Totholzvorrat, na.rm = TRUE), by = 5)) # Schrittweite von 10.000 m³/ha
#ggsave("images/stackbar_ver_tot_bb_eig_bag22.png", width = 15, height = 10, units = "cm")
+#ggsave("images/stackbar_ver_tot_bb_eigall_bag22.png", width = 20, height = 15, units = "cm")
```
```{r tbl_ver_tot_bb_eig_bag22}
@@ -1257,6 +1414,24 @@ ver_tot_bb_eig_bag22 %>%
highlight(i = ~ Totholzvorrat > 7.3, color = "wheat", j = "Totholzvorrat") %>%
autofit()
```
+```{r}
+ft_tot_eig_ver <- tot_bb_eig_bag22 %>%
+ filter(Eigentumsart == "alle Eigentumsarten") %>%
+ inner_join(ver_tot_bb_eig_bag22 %>%
+ filter(Eigentumsart == "alle Eigentumsarten"),
+ by = "Baumartengruppe", # Join basierend auf beiden Spalten
+ suffix = c("", ".Veränderung")) %>%
+ select(Baumartengruppe, Totholzvorrat, Totholzvorrat.Veränderung) %>%
+ flextable() %>%
+ colformat_double(big.mark = ".", decimal.mark = ",",digits = 1) %>%
+ set_header_labels(Totholzvorrat = "Totholzvorrat [m³/ha]", Totholzvorrat.Veränderung = "Veränderung [m³/ha]") %>%
+ bg(i = ~ Baumartengruppe == "alle Baumartengruppen von Totholz", bg = "#D3D3D3") %>%
+ autofit()
+ft_tot_eig_ver
+doc_ft_tot_eig_ver <- read_docx() %>%
+ body_add_flextable(ft_tot_eig_ver) %>%
+ print(target = "images/ft_tot_eig_ver.docx")
+```
#### Totholzvorrat im Vergleich der Länder
@@ -1500,6 +1675,7 @@ ggplot(nproz_verb_ba_bb %>%
#ggsave("images/groupbar-jung_verbproz_laub_nadel.png", width = 15, height = 10, units = "cm")
```
+
```{r groupbar-jung_bb_eig_proz, echo=FALSE}
# Reihenfolge der Eigentumsarten festlegen
jung_bb_eig_proz <- jung_bb_eig_proz %>%
@@ -1524,103 +1700,57 @@ ggplot(jung_bb_eig_proz %>%
#ggsave("images/groupbar-jung_bb_eig_proz.png", width = 15, height = 10, units = "cm")
```
-```{r stackbar-bestyp_eig_bb_ha_anteile, echo=FALSE}
-# Berechnung der Anteile und Hinzufügen der Spalte Anteil
-bestyp_eig_bb_ha_anteile <- bestyp_eig_bb_ha %>%
- filter(Eigentumsart %in% c('Öffentlicher Wald',
- "Staatswald (Land)",
- "Privatwald",
- "alle Eigentumsarten"),
- !Bestockungstyp %in% c("Laubwald-Typ", "Nadelwald-Typ")) %>%
- group_by(Eigentumsart) %>%
- mutate(Gesamtfläche = Waldfläche[Bestockungstyp == "alle Laub-/Nadelwaldtypen"],
- Anteil = (Waldfläche / Gesamtfläche) * 100) %>%
- filter(!Bestockungstyp %in% c("alle Laub-/Nadelwaldtypen")) %>%
- ungroup() %>%
- mutate(Bestockungstyp = factor(Bestockungstyp, levels = c(
- "reiner Laubwald",
- "Laubwald mit Nadelbeimischung",
- "Laub-/Nadel-Mischwald mit gleichen Anteilen",
- "Nadelwald mit Laubbeimischung",
- "reiner Nadelwald"))) %>%
- mutate(Eigentumsart = factor(Eigentumsart,
- levels = c('Öffentlicher Wald',
- "Staatswald (Land)",
- "Privatwald",
- "alle Eigentumsarten")))
-
-# Erstelle das gestapelte Balkendiagramm mit Anteilen als Beschriftung
-ggplot(bestyp_eig_bb_ha_anteile, aes(x = Eigentumsart, y = Anteil, fill = Bestockungstyp)) +
- geom_bar(stat = "identity", position = "stack", width = 0.7) +
- # geom_text(aes(label = paste0(round(Anteil, 1), "%")),
- # position = position_stack(vjust = 0.5), size = 3, color = "black") +
- labs(x = "", y = "Bestockungstypanteile [%]",
- title = "Waldflächenanteile\n nach Bestockungstyp und Eigentumsart") +
- scale_fill_manual(values = c("#66c2a5", "#fc8d62", "#8da0cb", "#e78ac3", "#a6d854", "#ffd92f", "#e5c494")) + # Manuell definierte Farben für Bestockungstypen
- theme_minimal() +
- theme(axis.text.x = element_text(angle = 45, hjust = 1))
-#ggsave("images/stackbar-bestyp_eig_bb_ha_anteile.png", width = 15, height = 10, units = "cm")
-#ggsave("images/stackbar-bestyp_eig_bb_ha_anteile_label.png", width = 15, height = 10, units = "cm")
-```
-
```{r}
-bestyp_eig_bb_ha_anteile %>%
- filter(Eigentumsart == "alle Eigentumsarten") %>%
- select(Bestockungstyp, Waldfläche, Anteil) %>%
- flextable() %>%
- colformat_double(big.mark = ".", decimal.mark = ",",digits = 1) %>%
- autofit()
-
-```
-
+
+jung_bb_eig_proz <- jung_bb_eig_proz %>%
+ filter(!Eigentumsart %in% c('Öffentlicher Wald', "Privatwald", "alle Eigentumsarten"),
+ `Verbissart` %in% c("Verbiss", "kein Verbiss")) %>%
+ mutate(Eigentumsart = factor(Eigentumsart, levels = c(
+ "Staatswald (Bund)",
+ "Staatswald (Land)",
+ "Körperschaftswald",
+ "Privatwald, bis 20 ha",
+ "Privatwald, über 20 bis 1000 ha",
+ "Privatwald, über 1000 ha"
+ )))
-```{r barplot-ver_bestyp_eig_bb_ha_filtered, echo=FALSE}
-# Daten filtern und Bestockungstyp als Faktor setzen
-ver_bestyp_eig_bb_ha_filtered <- ver_bestyp_eig_bb_ha %>%
- filter(Eigentumsart == "alle Eigentumsarten" &
- !Bestockungstyp %in% c("alle Laub-/Nadelwaldtypen","Laubwald-Typ", "Nadelwald-Typ")) %>%
- mutate(Bestockungstyp = factor(Bestockungstyp, levels = c(
- "reiner Laubwald",
- "Laubwald mit Nadelbeimischung",
- "Laub-/Nadel-Mischwald mit gleichen Anteilen",
- "Nadelwald mit Laubbeimischung",
- "reiner Nadelwald")))
-
-# Erstelle das Balkendiagramm für die Veränderungen der Bestockungstypen
-ggplot(ver_bestyp_eig_bb_ha_filtered, aes(x = Bestockungstyp, y = Waldflächenänderung, fill = Bestockungstyp)) +
- geom_bar(stat = "identity", width = 0.7) +
- labs(x = "", y = "Waldflächenänderung [ha]",
- title = "Veränderungen der Waldflächen nach Bestockungstypen\n(alle Eigentumsarten)") +
- scale_fill_manual(values = c("#66c2a5", "#fc8d62", "#8da0cb", "#e78ac3", "#a6d854", "#ffd92f", "#e5c494")) + # Manuell definierte Farben
+ggplot(jung_bb_eig_proz
+ , aes(x = Eigentumsart, y = Verbissprozent, fill = `Verbissart`)) +
+ geom_bar(stat = "identity", position = position_dodge(width = 0.8), width = 0.7) +
+ labs(x = "", y = "",
+ title = "Verbissprozent für 'Verbiss' und 'kein Verbiss' nach Eigentumsarten") +
+ scale_fill_manual(values = c("Verbiss" = "#fc8d62", "kein Verbiss" = "#66c2a5")) + # Farben manuell festlegen
theme_minimal() +
- theme(axis.text.x = element_text(angle = 45, hjust = 1),
- # legend.position = "none"
- ) # Entfernt die Legende
-ggsave("images/barplot-ver_bestyp_eig_bb_ha_filtered-legende.png", width = 15, height = 10, units = "cm")
+ theme(axis.text.x = element_text(angle = 45, hjust = 1, color = "black",size = 11))
+ggsave("images/groupbar-jung_bb_eigalle_proz.png", width = 20, height = 10, units = "cm")
```
+### Verbisprozent und Baumartenanzahl
```{r}
-ver_bestyp_eig_bb_ha_filtered %>%
+ft_verbproz1 <- nproz_verb_ba_bb %>%
+ # inner_join(jung_nha_verb_ba_bb, by = c("Baumartengruppe", "Verbissart")) %>%
+ filter(Baumartengruppe %in% c("Eiche (Quercus)", "Buche (Fagus)", "alle Laubbäume", "Kiefer (Pinus)", "alle Nadelbäume", "alle Baumarten"),
+ Verbissart == "Verbiss") %>%
+ select(Baumartengruppe, Verbissart, Verbissprozent) %>%
+ inner_join(jung_nha_verb_ba_bb, by = c("Baumartengruppe")) %>%
+ filter(Verbissart.y == "kein Verbiss") %>%
+ select(Baumartengruppe, Verbissprozent, 'mit oder ohne Verbiss', nBA) %>%
flextable() %>%
- colformat_double(big.mark = ".", decimal.mark = ",",digits = 0)
+ colformat_double(big.mark = ".", decimal.mark = ",",digits = 0) %>%
+ colformat_double(j = "Verbissprozent", big.mark = ".", decimal.mark = ",", digits = 1) %>% # Format mit einer Nachkommastelle für Verbissprozent
+ set_header_labels(Baumartengruppe = "Baumarten-\ngruppe",
+ Verbissprozent = "Verbiss-\nprozent [%]",
+ 'mit oder ohne Verbiss' = "Jungpflanzen-\ndichte gesamt / ha",
+ nBA = "unverbissene Pflanzen / ha") %>%
+ autofit()
+ft_verbproz1
+# doc_verbproz1 <- read_docx() %>%
+# body_add_flextable(ft_verbproz1) %>%
+# print(target = "images/ft_verbproz1.docx")
```
-```{r}
-# bestyp_eig_bb_ha_filtered %>%
-# filter(Eigentumsart == "alle Eigentumsarten") %>%
-# flextable() %>%
-# colformat_double(big.mark = ".", decimal.mark = ",",digits = 0)
-```
-```{r}
-ver_bestyp_eig_bb_ha %>%
- filter(Eigentumsart %in% c(
- # 'Öffentlicher Wald',
- # "Staatswald (Land)",
- # "Privatwald",
- "alle Eigentumsarten"),
- !Bestockungstyp %in% c("alle Laub-/Nadelwaldtypen"))
-```
+
### zuwachs
```{r}
diff --git "a/R_bwi/bwi_ver\303\266ffentlichung/images/groupbar-bestaufbauflant_schichtorder.png" "b/R_bwi/bwi_ver\303\266ffentlichung/images/groupbar-bestaufbauflant_schichtorder.png"
new file mode 100644
index 0000000000000000000000000000000000000000..21b4b54884b34b7314e51e08c7d6485203c6e21d
Binary files /dev/null and "b/R_bwi/bwi_ver\303\266ffentlichung/images/groupbar-bestaufbauflant_schichtorder.png" differ
diff --git "a/R_bwi/bwi_ver\303\266ffentlichung/images/groupbar-jung_bb_eigalle_proz.png" "b/R_bwi/bwi_ver\303\266ffentlichung/images/groupbar-jung_bb_eigalle_proz.png"
new file mode 100644
index 0000000000000000000000000000000000000000..c2a39efd74ac7405f85b1d39a4a7f52114988500
Binary files /dev/null and "b/R_bwi/bwi_ver\303\266ffentlichung/images/groupbar-jung_bb_eigalle_proz.png" differ
diff --git "a/R_bwi/bwi_ver\303\266ffentlichung/images/stackbar-bestyp_alleig_bb_ha_anteile_label.png" "b/R_bwi/bwi_ver\303\266ffentlichung/images/stackbar-bestyp_alleig_bb_ha_anteile_label.png"
new file mode 100644
index 0000000000000000000000000000000000000000..917a01226b3bb2b0f8f30a76d2ca2397e300e8f1
Binary files /dev/null and "b/R_bwi/bwi_ver\303\266ffentlichung/images/stackbar-bestyp_alleig_bb_ha_anteile_label.png" differ
diff --git "a/R_bwi/bwi_ver\303\266ffentlichung/images/stackbar_tot_bb_eigall_bag22.png" "b/R_bwi/bwi_ver\303\266ffentlichung/images/stackbar_tot_bb_eigall_bag22.png"
new file mode 100644
index 0000000000000000000000000000000000000000..add43d4f0d02881ad329cf0d2297c8bf6b5505cf
Binary files /dev/null and "b/R_bwi/bwi_ver\303\266ffentlichung/images/stackbar_tot_bb_eigall_bag22.png" differ
diff --git "a/R_bwi/bwi_ver\303\266ffentlichung/images/stackbar_ver_tot_bb_eigall_bag22.png" "b/R_bwi/bwi_ver\303\266ffentlichung/images/stackbar_ver_tot_bb_eigall_bag22.png"
new file mode 100644
index 0000000000000000000000000000000000000000..f21bfe2cd7836abba096c22d08ccd0f9f548b408
Binary files /dev/null and "b/R_bwi/bwi_ver\303\266ffentlichung/images/stackbar_ver_tot_bb_eigall_bag22.png" differ
diff --git "a/R_bwi/bwi_ver\303\266ffentlichung/librarys-datimport.qmd" "b/R_bwi/bwi_ver\303\266ffentlichung/librarys-datimport.qmd"
index cc79760800c7f4e20a2a2022692936696776a1d8..2dbdd46e27a0841b2f3d895d73933261820c9024 100644
--- "a/R_bwi/bwi_ver\303\266ffentlichung/librarys-datimport.qmd"
+++ "b/R_bwi/bwi_ver\303\266ffentlichung/librarys-datimport.qmd"
@@ -19,6 +19,7 @@ library(RColorBrewer) # Für eine breite Palette von Farben
library(patchwork) # um Diagramme nebeneinander darzustellen
library(knitr)
library(flextable)
+library(officer)
library(kableExtra)
library(xtable) # für LaTeX-Tabellen
library(quarto)
@@ -1286,7 +1287,7 @@ jung_ba_22 <- struktjung$jung_ba_22 %>%
values_to = "Anzahl")
```
-#### Verjüngungskreis - Verbissprozent Baumarten
+#### Verjüngungskreis - Verbissprozent Baumarten - jung_nproz_verb_ba_bb
```{r}
nproz_verb_ba_bb <- struktjung$jung_nproz_verb_ba_bb %>%
diff --git "a/R_bwi/bwi_ver\303\266ffentlichung/weham.tex" "b/R_bwi/bwi_ver\303\266ffentlichung/weham.tex"
deleted file mode 100644
index 4ada1fa34dc567aade5ba79b8687e18e39155dd3..0000000000000000000000000000000000000000
--- "a/R_bwi/bwi_ver\303\266ffentlichung/weham.tex"
+++ /dev/null
@@ -1,535 +0,0 @@
-% Options for packages loaded elsewhere
-\PassOptionsToPackage{unicode}{hyperref}
-\PassOptionsToPackage{hyphens}{url}
-\PassOptionsToPackage{dvipsnames,svgnames,x11names}{xcolor}
-%
-\documentclass[
- letterpaper,
- DIV=11]{scrreprt}
-
-\usepackage{amsmath,amssymb}
-\usepackage{iftex}
-\ifPDFTeX
- \usepackage[T1]{fontenc}
- \usepackage[utf8]{inputenc}
- \usepackage{textcomp} % provide euro and other symbols
-\else % if luatex or xetex
- \usepackage{unicode-math}
- \defaultfontfeatures{Scale=MatchLowercase}
- \defaultfontfeatures[\rmfamily]{Ligatures=TeX,Scale=1}
-\fi
-\usepackage{lmodern}
-\ifPDFTeX\else
- % xetex/luatex font selection
-\fi
-% Use upquote if available, for straight quotes in verbatim environments
-\IfFileExists{upquote.sty}{\usepackage{upquote}}{}
-\IfFileExists{microtype.sty}{% use microtype if available
- \usepackage[]{microtype}
- \UseMicrotypeSet[protrusion]{basicmath} % disable protrusion for tt fonts
-}{}
-\makeatletter
-\@ifundefined{KOMAClassName}{% if non-KOMA class
- \IfFileExists{parskip.sty}{%
- \usepackage{parskip}
- }{% else
- \setlength{\parindent}{0pt}
- \setlength{\parskip}{6pt plus 2pt minus 1pt}}
-}{% if KOMA class
- \KOMAoptions{parskip=half}}
-\makeatother
-\usepackage{xcolor}
-\setlength{\emergencystretch}{3em} % prevent overfull lines
-\setcounter{secnumdepth}{-\maxdimen} % remove section numbering
-% Make \paragraph and \subparagraph free-standing
-\makeatletter
-\ifx\paragraph\undefined\else
- \let\oldparagraph\paragraph
- \renewcommand{\paragraph}{
- \@ifstar
- \xxxParagraphStar
- \xxxParagraphNoStar
- }
- \newcommand{\xxxParagraphStar}[1]{\oldparagraph*{#1}\mbox{}}
- \newcommand{\xxxParagraphNoStar}[1]{\oldparagraph{#1}\mbox{}}
-\fi
-\ifx\subparagraph\undefined\else
- \let\oldsubparagraph\subparagraph
- \renewcommand{\subparagraph}{
- \@ifstar
- \xxxSubParagraphStar
- \xxxSubParagraphNoStar
- }
- \newcommand{\xxxSubParagraphStar}[1]{\oldsubparagraph*{#1}\mbox{}}
- \newcommand{\xxxSubParagraphNoStar}[1]{\oldsubparagraph{#1}\mbox{}}
-\fi
-\makeatother
-
-\usepackage{color}
-\usepackage{fancyvrb}
-\newcommand{\VerbBar}{|}
-\newcommand{\VERB}{\Verb[commandchars=\\\{\}]}
-\DefineVerbatimEnvironment{Highlighting}{Verbatim}{commandchars=\\\{\}}
-% Add ',fontsize=\small' for more characters per line
-\usepackage{framed}
-\definecolor{shadecolor}{RGB}{241,243,245}
-\newenvironment{Shaded}{\begin{snugshade}}{\end{snugshade}}
-\newcommand{\AlertTok}[1]{\textcolor[rgb]{0.68,0.00,0.00}{#1}}
-\newcommand{\AnnotationTok}[1]{\textcolor[rgb]{0.37,0.37,0.37}{#1}}
-\newcommand{\AttributeTok}[1]{\textcolor[rgb]{0.40,0.45,0.13}{#1}}
-\newcommand{\BaseNTok}[1]{\textcolor[rgb]{0.68,0.00,0.00}{#1}}
-\newcommand{\BuiltInTok}[1]{\textcolor[rgb]{0.00,0.23,0.31}{#1}}
-\newcommand{\CharTok}[1]{\textcolor[rgb]{0.13,0.47,0.30}{#1}}
-\newcommand{\CommentTok}[1]{\textcolor[rgb]{0.37,0.37,0.37}{#1}}
-\newcommand{\CommentVarTok}[1]{\textcolor[rgb]{0.37,0.37,0.37}{\textit{#1}}}
-\newcommand{\ConstantTok}[1]{\textcolor[rgb]{0.56,0.35,0.01}{#1}}
-\newcommand{\ControlFlowTok}[1]{\textcolor[rgb]{0.00,0.23,0.31}{\textbf{#1}}}
-\newcommand{\DataTypeTok}[1]{\textcolor[rgb]{0.68,0.00,0.00}{#1}}
-\newcommand{\DecValTok}[1]{\textcolor[rgb]{0.68,0.00,0.00}{#1}}
-\newcommand{\DocumentationTok}[1]{\textcolor[rgb]{0.37,0.37,0.37}{\textit{#1}}}
-\newcommand{\ErrorTok}[1]{\textcolor[rgb]{0.68,0.00,0.00}{#1}}
-\newcommand{\ExtensionTok}[1]{\textcolor[rgb]{0.00,0.23,0.31}{#1}}
-\newcommand{\FloatTok}[1]{\textcolor[rgb]{0.68,0.00,0.00}{#1}}
-\newcommand{\FunctionTok}[1]{\textcolor[rgb]{0.28,0.35,0.67}{#1}}
-\newcommand{\ImportTok}[1]{\textcolor[rgb]{0.00,0.46,0.62}{#1}}
-\newcommand{\InformationTok}[1]{\textcolor[rgb]{0.37,0.37,0.37}{#1}}
-\newcommand{\KeywordTok}[1]{\textcolor[rgb]{0.00,0.23,0.31}{\textbf{#1}}}
-\newcommand{\NormalTok}[1]{\textcolor[rgb]{0.00,0.23,0.31}{#1}}
-\newcommand{\OperatorTok}[1]{\textcolor[rgb]{0.37,0.37,0.37}{#1}}
-\newcommand{\OtherTok}[1]{\textcolor[rgb]{0.00,0.23,0.31}{#1}}
-\newcommand{\PreprocessorTok}[1]{\textcolor[rgb]{0.68,0.00,0.00}{#1}}
-\newcommand{\RegionMarkerTok}[1]{\textcolor[rgb]{0.00,0.23,0.31}{#1}}
-\newcommand{\SpecialCharTok}[1]{\textcolor[rgb]{0.37,0.37,0.37}{#1}}
-\newcommand{\SpecialStringTok}[1]{\textcolor[rgb]{0.13,0.47,0.30}{#1}}
-\newcommand{\StringTok}[1]{\textcolor[rgb]{0.13,0.47,0.30}{#1}}
-\newcommand{\VariableTok}[1]{\textcolor[rgb]{0.07,0.07,0.07}{#1}}
-\newcommand{\VerbatimStringTok}[1]{\textcolor[rgb]{0.13,0.47,0.30}{#1}}
-\newcommand{\WarningTok}[1]{\textcolor[rgb]{0.37,0.37,0.37}{\textit{#1}}}
-
-\providecommand{\tightlist}{%
- \setlength{\itemsep}{0pt}\setlength{\parskip}{0pt}}\usepackage{longtable,booktabs,array}
-\usepackage{calc} % for calculating minipage widths
-% Correct order of tables after \paragraph or \subparagraph
-\usepackage{etoolbox}
-\makeatletter
-\patchcmd\longtable{\par}{\if@noskipsec\mbox{}\fi\par}{}{}
-\makeatother
-% Allow footnotes in longtable head/foot
-\IfFileExists{footnotehyper.sty}{\usepackage{footnotehyper}}{\usepackage{footnote}}
-\makesavenoteenv{longtable}
-\usepackage{graphicx}
-\makeatletter
-\def\maxwidth{\ifdim\Gin@nat@width>\linewidth\linewidth\else\Gin@nat@width\fi}
-\def\maxheight{\ifdim\Gin@nat@height>\textheight\textheight\else\Gin@nat@height\fi}
-\makeatother
-% Scale images if necessary, so that they will not overflow the page
-% margins by default, and it is still possible to overwrite the defaults
-% using explicit options in \includegraphics[width, height, ...]{}
-\setkeys{Gin}{width=\maxwidth,height=\maxheight,keepaspectratio}
-% Set default figure placement to htbp
-\makeatletter
-\def\fps@figure{htbp}
-\makeatother
-
-\usepackage{booktabs}
-\usepackage{longtable}
-\usepackage{array}
-\usepackage{multirow}
-\usepackage{wrapfig}
-\usepackage{float}
-\usepackage{colortbl}
-\usepackage{pdflscape}
-\usepackage{tabu}
-\usepackage{threeparttable}
-\usepackage{threeparttablex}
-\usepackage[normalem]{ulem}
-\usepackage{makecell}
-\usepackage{xcolor}
-\usepackage{fontspec}
-\usepackage{multicol}
-\usepackage{hhline}
-\newlength\Oldarrayrulewidth
-\newlength\Oldtabcolsep
-\usepackage{hyperref}
-\usepackage{easy-todo}
-\KOMAoption{captions}{tableheading}
-\makeatletter
-\@ifpackageloaded{caption}{}{\usepackage{caption}}
-\AtBeginDocument{%
-\ifdefined\contentsname
- \renewcommand*\contentsname{Inhaltsverzeichnis}
-\else
- \newcommand\contentsname{Inhaltsverzeichnis}
-\fi
-\ifdefined\listfigurename
- \renewcommand*\listfigurename{Abbildungsverzeichnis}
-\else
- \newcommand\listfigurename{Abbildungsverzeichnis}
-\fi
-\ifdefined\listtablename
- \renewcommand*\listtablename{Tabellenverzeichnis}
-\else
- \newcommand\listtablename{Tabellenverzeichnis}
-\fi
-\ifdefined\figurename
- \renewcommand*\figurename{Abbildung}
-\else
- \newcommand\figurename{Abbildung}
-\fi
-\ifdefined\tablename
- \renewcommand*\tablename{Tabelle}
-\else
- \newcommand\tablename{Tabelle}
-\fi
-}
-\@ifpackageloaded{float}{}{\usepackage{float}}
-\floatstyle{ruled}
-\@ifundefined{c@chapter}{\newfloat{codelisting}{h}{lop}}{\newfloat{codelisting}{h}{lop}[chapter]}
-\floatname{codelisting}{Listing}
-\newcommand*\listoflistings{\listof{codelisting}{Listingverzeichnis}}
-\makeatother
-\makeatletter
-\makeatother
-\makeatletter
-\@ifpackageloaded{caption}{}{\usepackage{caption}}
-\@ifpackageloaded{subcaption}{}{\usepackage{subcaption}}
-\makeatother
-
-\ifLuaTeX
-\usepackage[bidi=basic]{babel}
-\else
-\usepackage[bidi=default]{babel}
-\fi
-\babelprovide[main,import]{ngerman}
-% get rid of language-specific shorthands (see #6817):
-\let\LanguageShortHands\languageshorthands
-\def\languageshorthands#1{}
-\ifLuaTeX
- \usepackage{selnolig} % disable illegal ligatures
-\fi
-\usepackage{bookmark}
-
-\IfFileExists{xurl.sty}{\usepackage{xurl}}{} % add URL line breaks if available
-\urlstyle{same} % disable monospaced font for URLs
-\hypersetup{
- pdftitle={Weham},
- pdfauthor={Torsten Wiebke},
- pdflang={de},
- colorlinks=true,
- linkcolor={blue},
- filecolor={Maroon},
- citecolor={Blue},
- urlcolor={Blue},
- pdfcreator={LaTeX via pandoc}}
-
-
-\title{Weham}
-\usepackage{etoolbox}
-\makeatletter
-\providecommand{\subtitle}[1]{% add subtitle to \maketitle
- \apptocmd{\@title}{\par {\large #1 \par}}{}{}
-}
-\makeatother
-\subtitle{Diskussionsgrundlage zu den Daten der BWI 2022 und WEHAM}
-\author{Torsten Wiebke}
-\date{Stand 15. 10. 2024}
-
-\begin{document}
-\maketitle
-
-
-\chapter{BWI}\label{bwi}
-
-\section{Waldeigentum}\label{waldeigentum}
-
-Die Brandenburger Waldfläche in Höhe von 1.127.980~ha teilt sich in -
-62.29~\% Privatwald und - 37.71~\% öffentlicher Wald auf
-
-\includegraphics{weham_files/figure-pdf/waldfl_brb_eig-1.pdf}
-
-\subsection{Eigentumsübergänge
-2012-2022}\label{eigentumsuxfcberguxe4nge-2012-2022}
-
-\begin{itemize}
-\tightlist
-\item
- größte Flächenzunahme im Privatwald zwischen 20 ha und 1000 ha -
- Eigentumsübergang, Ersatzmaßnahmen
-\item
- leichte Zunahme im Privatwald \textgreater1000 ha - Ãœbertragung an
- Stiftungen
-\item
- alle anderen Eigentumsformen verlieren Fläche
-\end{itemize}
-
-\includegraphics{weham_files/figure-pdf/ver-waldfl_eig_plot-1.pdf}
-
-\section{Baumartenverteilung}\label{baumartenverteilung}
-
-\begin{itemize}
-\tightlist
-\item
- mit einem Anteil von \textbf{68,68~\%} immer noch von der Kiefer
- geprägt
-\item
- Eichen und Birken haben jeweils noch Standflächenanteile von über
- 5~\%,
-\item
- Buche, Erle und die sonstigen Laubhölzer hoher und niedriger
- Lebensdauer erreichen immer noch zwischen 2,2~\% und 3,6~\%
-\end{itemize}
-
-\includegraphics{weham_files/figure-pdf/waldfl_ba_22_treemap-1.pdf}
-
-\section{Baumartenverteilung im
-Detail}\label{baumartenverteilung-im-detail}
-
-\includegraphics{weham_files/figure-pdf/barplot-waldfl22_ba_long_sorted-1.pdf}
-
-\subsection{Baumartenzusammensetzungsänderung}\label{baumartenzusammensetzungsuxe4nderung}
-
-\begin{itemize}
-\tightlist
-\item
- Anstieg des Laubbaumanteils (v.a. Eiche und Buche)
-\item
- erheblicher Rückgang von Birke und den Laubbäumen niedriger
- Lebensdauer (z.B. Erle, Pappel, Vogelbeere, Weiden)\\
-\item
- Abnahme der Blößenflächen
-\end{itemize}
-
-\includegraphics{weham_files/figure-pdf/plot-standfl22_ver-1.pdf}
-
-\section{Vorrat}\label{vorrat-1}
-
-\begin{Shaded}
-\begin{Highlighting}[]
-\CommentTok{\# Schritt 1: Sortiere den Datensatz nach Anteil und Baumartengruppe}
-\NormalTok{vor\_reell\_bb\_hbst\_eiggr\_ba\_qm\_h\_sorted }\OtherTok{\textless{}{-}}\NormalTok{ vor\_reell\_bb\_hbst\_eiggr\_ba\_qm\_h }\SpecialCharTok{\%\textgreater{}\%}
- \FunctionTok{filter}\NormalTok{(}\SpecialCharTok{!}\NormalTok{Eigentumsart }\SpecialCharTok{\%in\%} \FunctionTok{c}\NormalTok{(}\StringTok{"Öffentlicher Wald"}\NormalTok{, }\StringTok{"Privatwald"}\NormalTok{, }\StringTok{"alle Eigentumsarten"}\NormalTok{), }
- \SpecialCharTok{!}\NormalTok{Baumartengruppe }\SpecialCharTok{\%in\%} \FunctionTok{c}\NormalTok{(}\StringTok{"alle Laubbäume"}\NormalTok{, }\StringTok{"alle Nadelbäume"}\NormalTok{, }\StringTok{"alle Baumarten"}\NormalTok{)) }\SpecialCharTok{\%\textgreater{}\%}
- \FunctionTok{group\_by}\NormalTok{(Eigentumsart) }\SpecialCharTok{\%\textgreater{}\%}
- \FunctionTok{arrange}\NormalTok{(}\FunctionTok{desc}\NormalTok{(Vorrat))}
-
-\CommentTok{\# Schritt 2: Setze die Baumartengruppe als Faktor und definiere die Reihenfolge nach Anteil}
-\CommentTok{\# vor\_reell\_bb\_hbst\_eiggr\_ba\_qm\_h\_sorted$Baumartengruppe \textless{}{-} factor(levels = vor\_reell\_bb\_hbst\_eiggr\_ba\_qm\_h\_sorted$Baumartengruppe [order(vor\_reell\_bb\_hbst\_eiggr\_ba\_qm\_h\_sorted$Vorrat, decreasing = TRUE)])}
-
-
-\CommentTok{\# Schritt 3: Filtere ba\_farben so, dass nur die Farben verwendet werden, die im Plot vorkommen}
-\NormalTok{farben\_fuer\_plot }\OtherTok{\textless{}{-}}\NormalTok{ ba\_farben[}\FunctionTok{names}\NormalTok{(ba\_farben) }\SpecialCharTok{\%in\%} \FunctionTok{levels}\NormalTok{(vor\_reell\_bb\_hbst\_eiggr\_ba\_qm\_h\_sorted}\SpecialCharTok{$}\NormalTok{Baumartengruppe)]}
-
-
-\CommentTok{\# Schritt 3: Filtere ba\_farben so, dass nur die Farben verwendet werden, die im Plot vorkommen}
-\FunctionTok{ggplot}\NormalTok{(vor\_reell\_bb\_hbst\_eiggr\_ba\_qm\_h\_sorted, }\FunctionTok{aes}\NormalTok{(}\AttributeTok{x =}\NormalTok{ Eigentumsart, }\AttributeTok{y =}\NormalTok{ Vorrat, }\AttributeTok{fill =}\NormalTok{ Baumartengruppe)) }\SpecialCharTok{+}
- \FunctionTok{geom\_bar}\NormalTok{(}\AttributeTok{stat =} \StringTok{"identity"}\NormalTok{, }\AttributeTok{position =} \StringTok{"stack"}\NormalTok{, }\AttributeTok{width =} \FloatTok{0.7}\NormalTok{) }\SpecialCharTok{+}
- \FunctionTok{labs}\NormalTok{(}\AttributeTok{x =} \StringTok{"Eigentumsart"}\NormalTok{, }\AttributeTok{y =} \StringTok{"Vorrat [m³/ha]"}\NormalTok{, }
- \AttributeTok{title =} \StringTok{"Vorräte nach Baumartengruppe und Eigentumsart"}\NormalTok{) }\SpecialCharTok{+}
- \FunctionTok{scale\_fill\_manual}\NormalTok{(}\AttributeTok{values =}\NormalTok{ farben\_fuer\_plot) }\SpecialCharTok{+} \CommentTok{\# Verwende eine Farbpalette für Baumartengruppen}
- \FunctionTok{theme\_minimal}\NormalTok{() }\SpecialCharTok{+}
- \FunctionTok{theme}\NormalTok{(}\AttributeTok{axis.text.x =} \FunctionTok{element\_text}\NormalTok{(}\AttributeTok{angle =} \DecValTok{45}\NormalTok{, }\AttributeTok{hjust =} \DecValTok{1}\NormalTok{))}
-\end{Highlighting}
-\end{Shaded}
-
-\includegraphics{weham_files/figure-pdf/unnamed-chunk-77-1.pdf}
-
-\chapter{WEHAM}\label{weham-1}
-
-Die Waldentwicklungs- und Holzaufkommensmodellierung (WEHAM) verschafft
-einen Überblick über das potenzielle und nachhaltig nutzbare
-Rohholzaufkommen der \textbf{nächsten 40 Jahre} in Deutschland,
-gegliedert nach Holzarten-, Eigentümer- und Sortengruppen und
-Bundesländern und in Sonderauswertungen anderen regionalen Einteilungen.
-
-\section{Projektion am Stichprobenpunkt der
-BWI}\label{projektion-am-stichprobenpunkt-der-bwi}
-
-\begin{itemize}
-\tightlist
-\item
- Aktuelle BWI-Daten werden genutzt
-\item
- Bäume werden mit aktuellen Daten in Ertragstafelmodelle »Eingehängt«
-\item
- Wachstum und Waldbehandlung wird je StP am Einzelbaum für die nächsten
- 40 Jahre simuliert
-\item
- Vorräte und Zuwächse des Waldes werden für die prognostizierten Daten
- berechnet
-\item
- Nutzungseinschränkungen aus BWI und Nachmeldungen (NWE 10 Flächen
- (Erlass 01.03.2024) und nachträglich ausgefallene Bestände (SKD))
-\end{itemize}
-
-\section{Weham Steuerungsdaten}\label{weham-steuerungsdaten}
-
-\global\setlength{\Oldarrayrulewidth}{\arrayrulewidth}
-
-\global\setlength{\Oldtabcolsep}{\tabcolsep}
-
-\setlength{\tabcolsep}{2pt}
-
-\renewcommand*{\arraystretch}{1.5}
-
-
-
-\providecommand{\ascline}[3]{\noalign{\global\arrayrulewidth #1}\arrayrulecolor[HTML]{#2}\cline{#3}}
-
-\begin{longtable}[c]{|p{1.00in}|p{4.00in}}
-
-\caption{\label{tbl-steuerungsparameter}Steuerungsparameter in (WE)HAM}
-
-\tabularnewline
-
-\ascline{1.5pt}{666666}{1-2}
-
-\multicolumn{1}{>{\raggedright}m{\dimexpr 1in+0\tabcolsep}}{\textcolor[HTML]{000000}{\fontsize{11}{11}\selectfont{\global\setmainfont{DejaVu Sans}{Parameter}}}} & \multicolumn{1}{>{\raggedright}m{\dimexpr 4in+0\tabcolsep}}{\textcolor[HTML]{000000}{\fontsize{11}{11}\selectfont{\global\setmainfont{DejaVu Sans}{Erklärung}}}} \\
-
-\ascline{1.5pt}{666666}{1-2}\endfirsthead
-
-\ascline{1.5pt}{666666}{1-2}
-
-\multicolumn{1}{>{\raggedright}m{\dimexpr 1in+0\tabcolsep}}{\textcolor[HTML]{000000}{\fontsize{11}{11}\selectfont{\global\setmainfont{DejaVu Sans}{Parameter}}}} & \multicolumn{1}{>{\raggedright}m{\dimexpr 4in+0\tabcolsep}}{\textcolor[HTML]{000000}{\fontsize{11}{11}\selectfont{\global\setmainfont{DejaVu Sans}{Erklärung}}}} \\
-
-\ascline{1.5pt}{666666}{1-2}\endhead
-
-
-
-\multicolumn{1}{>{\raggedright}m{\dimexpr 1in+0\tabcolsep}}{\textcolor[HTML]{000000}{\fontsize{11}{11}\selectfont{\global\setmainfont{DejaVu Sans}{Alter\ von}}}} & \multicolumn{1}{>{\raggedright}m{\dimexpr 4in+0\tabcolsep}}{\textcolor[HTML]{000000}{\fontsize{11}{11}\selectfont{\global\setmainfont{DejaVu Sans}{Zeitpunkt\ des\ Eingriffs}}}} \\
-
-
-
-
-
-\multicolumn{1}{>{\raggedright}m{\dimexpr 1in+0\tabcolsep}}{\textcolor[HTML]{000000}{\fontsize{11}{11}\selectfont{\global\setmainfont{DejaVu Sans}{BHD}}}} & \multicolumn{1}{>{\raggedright}m{\dimexpr 4in+0\tabcolsep}}{\textcolor[HTML]{000000}{\fontsize{11}{11}\selectfont{\global\setmainfont{DejaVu Sans}{Aufarbeitungsgrenze\ in\ cm\ m.\ R.,\ Bäume\ mit\ geringerem\ BHD\ werden\ eingeschlagen\ aber\ im\ Bestand\ gelassen}}}} \\
-
-
-
-
-
-\multicolumn{1}{>{\raggedright}m{\dimexpr 1in+0\tabcolsep}}{\textcolor[HTML]{000000}{\fontsize{11}{11}\selectfont{\global\setmainfont{DejaVu Sans}{Eingriffsart}}}} & \multicolumn{1}{>{\raggedright}m{\dimexpr 4in+0\tabcolsep}}{\textcolor[HTML]{000000}{\fontsize{11}{11}\selectfont{\global\setmainfont{DejaVu Sans}{Jungbestandspflege,\ Niederdurchforstung,\ Hochdurchforstung\ Gleichdurchforstung,\ Auslesedurchforstung,\ Flächige\ Räumung}}}} \\
-
-
-
-
-
-\multicolumn{1}{>{\raggedright}m{\dimexpr 1in+0\tabcolsep}}{\textcolor[HTML]{000000}{\fontsize{11}{11}\selectfont{\global\setmainfont{DejaVu Sans}{Vorrat\_id\_fk}}}} & \multicolumn{1}{>{\raggedright}m{\dimexpr 4in+0\tabcolsep}}{\textcolor[HTML]{000000}{\fontsize{11}{11}\selectfont{\global\setmainfont{DejaVu Sans}{Ertragstafel}}}} \\
-
-
-
-
-
-\multicolumn{1}{>{\raggedright}m{\dimexpr 1in+0\tabcolsep}}{\textcolor[HTML]{000000}{\fontsize{11}{11}\selectfont{\global\setmainfont{DejaVu Sans}{Mittelhöhe}}}} & \multicolumn{1}{>{\raggedright}m{\dimexpr 4in+0\tabcolsep}}{\textcolor[HTML]{000000}{\fontsize{11}{11}\selectfont{\global\setmainfont{DejaVu Sans}{notwendige\ Mittelhöhe\ ab\ der\ die\ Maßnahme\ durchgeführt\ wird}}}} \\
-
-
-
-
-
-\multicolumn{1}{>{\raggedright}m{\dimexpr 1in+0\tabcolsep}}{\textcolor[HTML]{000000}{\fontsize{11}{11}\selectfont{\global\setmainfont{DejaVu Sans}{Periode}}}} & \multicolumn{1}{>{\raggedright}m{\dimexpr 4in+0\tabcolsep}}{\textcolor[HTML]{000000}{\fontsize{11}{11}\selectfont{\global\setmainfont{DejaVu Sans}{Eingrifssintervall,\ Zeitraum\ der\ Wiederkehr\ des\ forstlichen\ Eingriffs\ in\ Jahren}}}} \\
-
-
-
-
-
-\multicolumn{1}{>{\raggedright}m{\dimexpr 1in+0\tabcolsep}}{\textcolor[HTML]{000000}{\fontsize{11}{11}\selectfont{\global\setmainfont{DejaVu Sans}{Zielstärkenutzung}}}} & \multicolumn{1}{>{\raggedright}m{\dimexpr 4in+0\tabcolsep}}{\textcolor[HTML]{000000}{\fontsize{11}{11}\selectfont{\global\setmainfont{DejaVu Sans}{Zielstärke\ in\ cm,\ Bäume\ oberhalb\ dieses\ Durchmessers\ werden\ zuerst\ genutzt,\ Schwächere\ Bäume\ werden\ anschliessend\ nur\ in\ dem\ Maß\ entnommen,\ bis\ die\ Sollvorgabe\ (Stammzahl,\ Grundfläche\ oder\ Vorrat\ erreicht\ ist}}}} \\
-
-
-
-
-
-\multicolumn{1}{>{\raggedright}m{\dimexpr 1in+0\tabcolsep}}{\textcolor[HTML]{000000}{\fontsize{11}{11}\selectfont{\global\setmainfont{DejaVu Sans}{EN\ \%}}}} & \multicolumn{1}{>{\raggedright}m{\dimexpr 4in+0\tabcolsep}}{\textcolor[HTML]{000000}{\fontsize{11}{11}\selectfont{\global\setmainfont{DejaVu Sans}{Wieviel\ \%\ der\ Bäume\ oberhalb\ der\ Zielstärke\ genutzt\ werden\ sollen;\ Wenn\ die\ Standfläche\ der\ Hauptbaumart\ durch\ fortschreitende\ Zielstärkennutzung\ 20\ \%\ ihres\ Startwertes\ unterschreitet\ findet\ eine\ flächige\ Räumung\ statt.}}}} \\
-
-
-
-
-
-\multicolumn{1}{>{\raggedright}m{\dimexpr 1in+0\tabcolsep}}{\textcolor[HTML]{000000}{\fontsize{11}{11}\selectfont{\global\setmainfont{DejaVu Sans}{Toleranz}}}} & \multicolumn{1}{>{\raggedright}m{\dimexpr 4in+0\tabcolsep}}{\textcolor[HTML]{000000}{\fontsize{11}{11}\selectfont{\global\setmainfont{DejaVu Sans}{Zeitraum\ in\ Jahren\ innerhalb\ der\ die\ Endnutzung\ durch\ die\ Zufallszahl\ variiert\ wird\ -\ tatsächliche\ Umtriebszeit\ wird\ im\ Programm\ +-\ T\ um\ die\ Umtriebszeit\ berechnet}}}} \\
-
-
-
-
-
-\multicolumn{1}{>{\raggedright}m{\dimexpr 1in+0\tabcolsep}}{\textcolor[HTML]{000000}{\fontsize{11}{11}\selectfont{\global\setmainfont{DejaVu Sans}{RF}}}} & \multicolumn{1}{>{\raggedright}m{\dimexpr 4in+0\tabcolsep}}{\textcolor[HTML]{000000}{\fontsize{11}{11}\selectfont{\global\setmainfont{DejaVu Sans}{Reducktionsfakto\ für\ den\ Sollvorrat\ (alle\ Vorratsangaben\ werden\ damit\ mutlipliziert)\ -\ Zielbestockungsgrad}}}} \\
-
-\ascline{1.5pt}{666666}{1-2}
-
-
-\end{longtable}
-
-\arrayrulecolor[HTML]{000000}
-
-\global\setlength{\arrayrulewidth}{\Oldarrayrulewidth}
-
-\global\setlength{\tabcolsep}{\Oldtabcolsep}
-
-\renewcommand*{\arraystretch}{1}
-
-\chapter{Durchforstungsmodelle}\label{durchforstungsmodelle-1}
-
-\begin{itemize}
-\item
- In den Durchforstungsmodellen sollen Steuerparameter eingegeben
- werden, die dann vom Modell mit den aktuellen BWI-Daten verarbeitet
- werden.
-\item
- NWE 10 Flächen (Erlass 01.03.2024) und nachträglich ausgefallene
- Bestände (SKD) wurden aus der WEHAM Modellierung genommen
-\item
- Das Modell ist Einzelbaumbasiert und entnimmt den »Beständen« am
- Stichprobenpunkt die Bäume anhand der übergebenen Kriterien - entweder
- entsprechend der konkreten Vorgaben oder nach gewählter Ertragstafel.
-\end{itemize}
-
-\section{Beispiel}\label{beispiel}
-
-Beispielsweise führt die Wahl eines rechnerischen Reinbestandes Kiefer,
-B° 1, M 32 (siehe
-\href{https://forst.brandenburg.de/sixcms/media.php/9/kieferetk.pdf}{Ertragstafeldownload
-Ki des LFB}) mit einem Vorrat von 437 Vfm/ha bei der Wahl einer
-Hochdurchforstung dazu, dass so viele Bäume ≙ 112 oder so viel
-Grundfläche ≙ 3,3 m² entnommen wird, wie als ausscheidender Bestand in
-der Ertragstafel verzeichnet ist. Die Angabe des »Reduktionsfaktors« von
-0,8 entspricht der Wahl eines Zielbestockungsgrades und führt dazu, dass
-die zu entnehmende Anzahl der Bäume oder der Grundfläche um 20 \% erhöht
-wird. Die Angabe eines »zielst\_bhd« führt dazu, das zuerst die Bäume
-die diesen BHD erreichen entnommen werden und zwar in der anteiligen
-Höhe wie sie in »zielst\_eproz« angegeben ist um danach die restlichen
-Bäume entsprechend Ertragstafel zufällig zu entnehmen.
-
-Wichtige Eingabeparameter sind daher in
-Tabelle~\ref{tbl-steuerungsparameter} aufgeführt.
-
-\chapter{Landeswald}\label{landeswald}
-
-Steuerungsparameter wirken auf alle anderen Eigentumsformen wenn nicht
-spezifisch angegeben.
-
-\section{Landeswald-Steuerungsparameter}\label{landeswald-steuerungsparameter}
-
-\begin{itemize}
-\tightlist
-\item
- Zielbestockungsgrad im Regelfall auf 0,8
-\item
- Endnutzungszeitraum auf reelle Werte wie 150±30 a (Ki) gesetzt
-\item
- Durchforstungsart v.a. Auslese- und Hochdurchforstung
-\end{itemize}
-
-\section{Vorratsprojektion}\label{vorratsprojektion}
-
-\begin{figure}[H]
-
-{\centering \includegraphics[width=7.17708in,height=\textheight]{images/weham_vorrat_0_10.png}
-
-}
-
-\caption{Vorratsentwicklung alte vs.~neue Steuerungsparameter
-Gesamtwald}
-
-\end{figure}%
-
-
-
-
-\end{document}