diff --git "a/R_bwi/bwi_ver\303\266ffentlichung/BWI-LFE_MLUK.qmd" "b/R_bwi/bwi_ver\303\266ffentlichung/BWI-LFE_MLUK.qmd" index 215d4008ec083a60802d18af04397ab32c92a040..9ac1d801de5428dd5d30c83ddb7a242274b54099 100644 --- "a/R_bwi/bwi_ver\303\266ffentlichung/BWI-LFE_MLUK.qmd" +++ "b/R_bwi/bwi_ver\303\266ffentlichung/BWI-LFE_MLUK.qmd" @@ -126,6 +126,8 @@ Wasserläufe bis 5 m Breite unterbrechen nicht den Zusammenhang einer Waldfläche (vgl. @bwi_aufn2022). ::: +## Die BWI 2022 in Brandenburg + ```{r bwi_kost, echo=FALSE, include=FALSE} # todo: Daten aus Datenbank übernehmen bwi_kost <- data.frame( @@ -476,7 +478,7 @@ ggplot(waldfl_spez_long %>% override.aes = aes(label = "") # um das "a" aus den Farbflächen der Legende zu entfernen ) ) -ggsave("images/pieWaldfläche_Brandenburg_2022.png", width = 15, height = 15, units = "cm") +#ggsave("images/pieWaldfläche_Brandenburg_2022.png", width = 15, height = 15, units = "cm") ``` ### Waldfläche Brandenburgs im Bundesvergleich @@ -493,6 +495,7 @@ und dem Saarland - ein. ```{r tbl-waldflanteilrang, echo=FALSE} #| label: tbl-waldflanteilrang #| tbl-cap: Rangfolge nach Waldfläche und Waldflächenanteil der Bundesländer nach BWI 2022 + waldfl_spez_long %>% filter(Kategorie == "Wald") %>% select(c(Flächenrang, Land, Fläche)) %>% @@ -652,6 +655,7 @@ ggplot(waldfl22_eig_long %>% ) + theme_void() + # Entfernt unnötige Achsen theme(legend.position = "right") # Legt die Legende rechts an +#ggsave("images/pieWaldfl_priv_oe_Brandenburg_2022.png", width = 15, height = 15, units = "cm") ``` ::: ::::: @@ -752,6 +756,7 @@ ggplot(waldfl22_eig_long %>% ) + theme_void() + # Entfernt unnötige Achsen theme(legend.position = "right") # Legt die Legende rechts an +#ggsave("images/pieWaldfl_priv_grkl_Brandenburg_2022.png", width = 15, height = 15, units = "cm") ``` ::: diff --git "a/R_bwi/bwi_ver\303\266ffentlichung/BWI2022_PK20241014.qmd" "b/R_bwi/bwi_ver\303\266ffentlichung/BWI2022_PK20241014.qmd" index 99851ed738033e3f1704031d6356413c12018500..bf88387587eb3c9ea50516828875464564a5d80e 100644 --- "a/R_bwi/bwi_ver\303\266ffentlichung/BWI2022_PK20241014.qmd" +++ "b/R_bwi/bwi_ver\303\266ffentlichung/BWI2022_PK20241014.qmd" @@ -23,7 +23,7 @@ format: html: toc: true pptx: - reference-doc: 20240920_BWI_PK_20241014_Ergebnisse.pptx + reference-doc: LFB_Masterfolie_LFE_2024.pptx editor_options: markdown: wrap: 72 @@ -32,6 +32,27 @@ editor_options: {{< include librarys-datimport.qmd >}} +Totholz landeswald + +Bäume pro Einwohner 2581667 + +Fläche Pro Einwohner + +Zuwachs pro Minute + + + +```{r} +#fmt_pretty(big.mark = ".", ((1127980/10000)/2581667), scientific = FALSE) +prettyNum(((1127980*10000)/2581667), digits = 5, scientific = FALSE, big.mark = ".", decimal.mark = ",") +``` + +Bundesdurchschnitt Kiefer + +Anteil Kiefer in Verjüngung + + + # Die Bundeswaldinventur (BWI) - Bundesweite Stichprobeninventur alle 10 Jahre im Wald nach § 41 a diff --git "a/R_bwi/bwi_ver\303\266ffentlichung/infoflyer.qmd" "b/R_bwi/bwi_ver\303\266ffentlichung/infoflyer.qmd" index a54ef59407d7060a37192096ba413b5844099147..08b7ef132ed75d31b1ffa741d5aed961ab59fadc 100644 --- "a/R_bwi/bwi_ver\303\266ffentlichung/infoflyer.qmd" +++ "b/R_bwi/bwi_ver\303\266ffentlichung/infoflyer.qmd" @@ -25,7 +25,7 @@ format: editor_options: markdown: wrap: 72 -editor: visual +#editor: visual --- {{< include librarys-datimport.qmd >}} @@ -34,10 +34,10 @@ editor: visual Auf dem Infoflyer soll es nur **zwei Textelemente** geben: -\- [Methodik - "Umrisskarte" Brandenburg mit grafisch gestalteter "Zoom" -zu Stichprobenpunkt] +- [Methodik - "Umrisskarte" Brandenburg mit grafisch gestalteter + "Zoom" zu Stichprobenpunkt](#methodik---umrisskarte-brandenburg-mit-grafisch-gestalteter-zoom-zu-stichprobenpunkt) -\- Ansprechpartner und weitere Informationen +- [Ansprechpartner und weitere Informationen](#ansprechpartner-und-weitere-informationen) Nach und mit der Einführung in »Was ist die Bundeswaldinventur und wie ist die Methodik« startet die Infografik mit - einem Kartenausschnitt @@ -51,97 +51,129 @@ erstellt werden. Die Infografik mit den Probekreisen findet sich unter: <https://www.bundeswaldinventur.de/fileadmin/SITE_MASTER/content/Diagramme/Aufnahmen_am_Stichprobenpunkt.jpg> ### Zeitplan -- [ ] 18.09.24, abends: Entwurf #2 von Frau Runge an SG Waldinv / S.Gensch -- [ ] 19.09.24, vormittags: Rückmeldung/Bestätigung / Feinabstimmung an K.Runge durch SG Waldinv / S.Gensch -- [ ] 20.09.24, mittags: fertiger Entwurf Layout und Grafikelemente an SG Waldinv / S.Gensch + +- [x] 18.09.24, abends: Entwurf #2 von Frau Runge an SG Waldinv / + S.Gensch +- [x] 19.09.24, vormittags: Rückmeldung/Bestätigung / Feinabstimmung + an K.Runge durch SG Waldinv / S.Gensch +- [x] 20.09.24, mittags: fertiger Entwurf Layout und Grafikelemente an + SG Waldinv / S.Gensch - [ ] 20.09 - 06.10.24, Urlaub Frau Runge -- [ ] 04.10.24, aktuelle Zahlen, inkl. Kurzinterpretation (Tendenzpfeil) sowie fertige Textbausteine an Frau Runge durch SG Waldinv +- [ ] 04.10.24, aktuelle Zahlen, inkl. Kurzinterpretation + (Tendenzpfeil) sowie fertige Textbausteine an Frau Runge durch SG + Waldinv - [ ] 04.10.24, Text Website an S.Gensch durch SG Waldinv - [ ] 04.10.24, Link Website, QR Code an Frau Runge durch S.Gensch - [ ] 07.10.24, Abstimmungsgespräch Frau Runge / SG Waldinv / S.Gensch -- [ ] 10.10.24, abends: spätestens Abgabe fertiger Infoflyer an SG Waldinv / S.Gensch - +- [ ] 10.10.24, abends: spätestens Abgabe fertiger Infoflyer an SG + Waldinv / S.Gensch ## Zahlen und Grafiken + Die Zahlen und Grafiken sind so bald als möglich zu übermitteln. # Inhalt ## Methodik - "Umrisskarte" Brandenburg mit grafisch gestalteter "Zoom" zu Stichprobenpunkt -- [ ] Umrisskarte Brandenburg mit Stichprobenpunkten -- [ ] optisch gestalteter Zoom auf Probekreise -- [ ] Grafiken Methodik / Probekreise u.ä. +- [x] Umrisskarte Brandenburg mit Stichprobenpunkten +- [x] optisch gestalteter Zoom auf Probekreise +- [x] Grafiken Methodik / Probekreise u.ä. - [ ] Inhalte und »Wording« müssen abgestimmt werden -- [ ] Grafiken und +- [x] Grafiken und - [ ] Texte müssen erstellt werden -- [ ] Infografiken zu Methodik / Probekreise u.ä. Anzahl Waldecken / - Gemessene Bäume / Arbeitsstunden Trupps -::: columns -::: {.column width="50%"} -Text: +**Text / Botschaft: + - Grafiken Methodik / Probekreise u.ä. + - Anzahl Waldecken / Gemessene Bäume / Arbeitsstunden Trupps o.ä. + - viele Trakte + - Trakt besteht im Regelfall aus vier Ecken + - an der Ecke sind 7 Probekreise - Was ist die BWI - Welche Daten wurden erhoben - Zusammenfassung wichtiger Informationen ### Die Bundeswaldinventur (BWI) -ist gesetzlicher Auftrag gemäß Bundeswaldgesetz § 41a sowie Landeswaldgesetz Brandenburg § 30 und eine zentrale Datenbasis über den Wald in Deutschland. Die BWI wird seit 1987 periodisch im 10-jährigem Intervall mit gleicher Methodik durchgeführt. Seit 2002 liegen Informationen für ganz Deutschland vor. + +ist gesetzlicher Auftrag gemäß Bundeswaldgesetz (§ 41a) sowie +Landeswaldgesetz Brandenburg (§ 30) und eine zentrale Datenbasis über den +Wald in Deutschland. Die BWI wird seit 1987 periodisch im 10-jährigem +Intervall mit gleicher Methodik durchgeführt. Seit 2002 liegen +Informationen für ganz Deutschland vor. ### Methodik -Die Trakte der BWI sind im Abstand von 4 km gleichmäßig über das Land verteilt. Brandenburg verdichtet seit 2012 auf einen Abstand von 2 km. Jeder Trakt besteht aus 4 Ecken, an denen ca. 150 Merkmale in sieben festgelegten Probekreisen aufgenommen werden. Damit liegen qualitativ hochwertige Informationen zu den großräumigen forstlichen Verhältnissen vor. + +Die Trakte der BWI sind im Abstand von 4 km gleichmäßig über das Land +verteilt. Brandenburg verdichtet seit 2012 auf einen Abstand von 2 km. +Jeder Trakt besteht aus 4 Ecken, an denen ca. 150 Merkmale in sieben +festgelegten Probekreisen aufgenommen werden. Damit liegen qualitativ +hochwertige Informationen zu den großräumigen forstlichen Verhältnissen +vor. Infografik (Karte mit Waldfläche Brandenburgs - Zoom zu Probekreisgrafik): + + +### Ansprechpartner und weitere Informationen + +#### Wer führt die Bundeswaldinventur durch? -**todo:** Übernahme von Textelementen aus BWI-LFE_MLUK.qmd +Das Thünen-Institut für Waldökosysteme koordiniert die BWI in ganz +Deutschland. Die Länder führen die Datenerhebung und Qualitätssicherung durch. Brandenburg übernimmt dabei auch die Inventur für +Berlin. Die BWI 2022 für Brandenburg und Berlin wird durch das Sachgebiet Waldinventuren, des LFE im Landesbetrieb Forst Brandenburg durchgeführt, koordiniert und ausgewertet. -**`r format(trackt_eckenanzahl %>% select(waldecke) %>% pull(), big.mark = ".", decimal.mark = ",", scientific = FALSE)` Waldecken**. +Zwischen Mai 2021 und Oktober 2022 wurden die Aufnahmen durchgeführt. Dabei wurden ungefähr +**todo: check und gegebenenfalls in allen qmds berichtigen** -- 11 Trupps waren 2 Jahre in Brandenburg unterwegs und überprüften **Trakte** und - Punkte -- an **todo** Punkten wurden Daten an verschiedenen Probekreisen erfasst +`r format(trackt_eckenanzahl %>% select(ausschreibungstrakte) %>% pull() %>% as.numeric(), big.mark = ".", decimal.mark = ",", scientific = FALSE)` + Trakte mit zirka +**todo: check und gegebenenfalls in allen qmds berichtigen** +`r format(trackt_eckenanzahl %>% select(waldecke) %>% pull() %>% as.numeric(), big.mark = ".", decimal.mark = ",", scientific = FALSE)` Ecken +von 9 Unternehmern mit 11 Aufnahmetrupps aufgenommen. + +Hierbei konnten zirka +**todo: check und tibble mit Baumdaten aus SQL-Abfrage erstellen sowie gegebenenfalls in allen qmds berichtigen** +87.000 +Einzelbäume eingemessen werden. An insgesamt 10 Prozent der Trakte wurde die Qualität der Aufnahmen durch Mitarbeitende des LFB +kontrolliert. + +**todo: Übernahme von Textelementen aus BWI-LFE_MLUK.qmd und / oder weglassen** + +- `r format(trackt_eckenanzahl %>% select(waldecke) %>% pull(), big.mark = ".", decimal.mark = ",", scientific = FALSE)` Waldecken. +- 11 Trupps waren 2 Jahre in Brandenburg unterwegs und überprüften + **Trakte** und\ + Punkte +- an **todo** Punkten wurden Daten an verschiedenen Probekreisen + erfasst - dabei wurden insgesamt **todo:** XXX große Bäume vermessen und **todo:** XXX kleine Bäume gemessen und beurteilt -::: -::: {.column width="50%"} -**todo:** Grafik wie in Infoflyer +#### Weitere Informationen + +Die Ergebnisse der Bundeswaldinventur sind unter +https://bwi.info als Tabellen und Grafiken abrufbar. +Hintergrundinformationen finden sich auf der Seite des BMEL: +https://www.bundeswaldinventur.de +Das Landeskompetenzzentrum Forst Eberswalde veröffentlicht +zukünftig eine Eberswalder forstliche Schriftenreihe dazu unter +https://forst.brandenburg.de/lfb/de/service/publikationen - -::: -::: -- Botschaft: - - grafisch gestalteter "Zoom" zu Stichprobenpunkt - - Grafiken Methodik / Probekreise u.ä. - - Anzahl Waldecken / Gemessene Bäume / Arbeitsstunden Trupps o.ä. - - viele Trakte - - Trakt besteht im Regelfall aus vier Ecken - - an der Ecke sind 7 Probekreise - ## Infografik ### Waldfläche -Brandenburg verfügt über eine -Waldfläche von + +Brandenburg verfügt über eine Waldfläche von **`r format(waldfl_spez_long %>% filter(Land=='Brandenburg' & Kategorie == 'Wald') %>% select(Fläche) %>% pull(), big.mark = ".", decimal.mark = ",", scientific = FALSE)` ha**. -Forstwirtschaftlich unterteilt besteht diese aus: +Die Waldfläche hat sich wenig verändert. -- »bestockter Holzboden«: - `r format(waldfl_spez_long %>% filter(Land=='Brandenburg' & Kategorie == 'bestockter Holzboden') %>% select(Fläche) %>% pull(), big.mark = ".", decimal.mark = ",", scientific = FALSE)` ha, - das sind - `r format(waldfl_spez_long %>% filter(Land=='Brandenburg' & Kategorie == 'bestockter Holzboden') %>% select(Prozent) %>% pull(), big.mark = ".", decimal.mark = ",", scientific = FALSE)` %. -- »Nichtholzboden«: - `r format(waldfl_spez_long %>% filter(Land=='Brandenburg' & Kategorie == 'Nichtholzboden') %>% select(Fläche) %>% pull(), big.mark = ".", decimal.mark = ",", scientific = FALSE)` ha, - das sind - `r format(waldfl_spez_long %>% filter(Land=='Brandenburg' & Kategorie == 'Nichtholzboden') %>% select(Prozent) %>% pull(), big.mark = ".", decimal.mark = ",", scientific = FALSE)` %. -- »Blößen«: - `r format(waldfl_spez_long %>% filter(Land=='Brandenburg' & Kategorie == 'Blöße') %>% select(Fläche) %>% pull(), big.mark = ".", decimal.mark = ",", scientific = FALSE)` ha, - das sind - `r format(waldfl_spez_long %>% filter(Land=='Brandenburg' & Kategorie == 'Blöße') %>% select(Prozent) %>% pull(), big.mark = ".", decimal.mark = ",", scientific = FALSE)` %. +in Deutschland viertgrößte Waldfläche, mit **`r format(waldflant %>% filter(Kategorie == "Wald" & Land == "Brandenburg") %>% select(Anteil) %>% pull() %>% round(2), big.mark = ".", decimal.mark = ",", scientific = FALSE)` %** +der fünftgrößte Anteil + + +**todo: verarbeiten oder streichen** Damit nimmt Brandenburg nach absoluter Waldfläche bundesweit den **vierten** Platz - nach Bayern, Baden-Württemberg und Niedersachsen - @@ -152,18 +184,32 @@ und dem Saarland - ein. ### Waldeigentum +`r format(waldfl22_eig_long %>% filter(Land == "Brandenburg" & Eigentumsart %in% c("Privatwald")) %>% ungroup() %>% select(c(Prozent)) %>% pull())` % +Privatwald und +`r format(waldfl22_eig_long %>% filter(Land == "Brandenburg" & Eigentumsart %in% c("Öffentlicher Wald")) %>% ungroup() %>% select(c(Prozent)) %>% pull())` % +öffentlicher Wald + + +**todo: verarbeiten oder streichen** + - Leichter Übergang Staatswald zu Privatwald -- Botschaft: Eigentumsvereteilung bleibt weitgehend stabil - - Betreuung Privatwald weiterhin relevant +- Botschaft: Eigentumsvereteilung bleibt weitgehend stabil - Betreuung + Privatwald weiterhin relevant - Vergleich zum Waldflächennachweis**?** -Die Brandenburger Waldfläche in Höhe von -`r format(waldfl_eig$waldfl22_eig %>% filter(Land == "Brandenburg") %>% select('alle Eigentumsarten') %>% pull(), big.mark = ".", decimal.mark = ",", scientific = FALSE)` ha -teilt sich in -`r format(waldfl22_eig_long %>% filter(Land == "Brandenburg" & Eigentumsart %in% c("Privatwald")) %>% ungroup() %>% select(c(Prozent)) %>% pull())` % -Privatwald und -`r format(waldfl22_eig_long %>% filter(Land == "Brandenburg" & Eigentumsart %in% c("Öffentlicher Wald")) %>% ungroup() %>% select(c(Prozent)) %>% pull())` % öffentlicher Wald -auf +### Blöße + +In der BWI 2022 wurden +`r format(round(waldfl_spez_long %>% filter(Land== 'Brandenburg' & Kategorie == 'Blöße') %>% select(Fläche) %>% pull(),0), big.mark = ".", decimal.mark = ",", scientific = FALSE)` ha als Blöße erfasst. Gegenüber der BWI 2012 gab es eine Veränderung von `r format(round(ver_waldfl_long %>% filter(Land == 'Brandenburg' & Kategorie == 'Blöße') %>% select(Veränderungen) %>% pull(),0), big.mark = ".", decimal.mark = ",", scientific = FALSE)` ha. + +```{r echo=FALSE} +# ich weiß immer noch nicht ob prettyNum geeignet ist +prettyNum(waldfl_spez_long %>% filter(Land== 'Brandenburg' & Kategorie == 'Blöße') %>% select(Fläche) %>% pull(), digits = 3, big.mark = ".", decimal.mark = ",", scientific = FALSE) +``` + +### Verjüngung + + ### Waldaufbau @@ -172,14 +218,12 @@ auf - mehrschichtig in ha & Ver - einschichtig in ha & Ver - ### Baumartenanteile - [ ] Kiefer, Eiche, Buche, (ggf.Birke, Fichte?) - [ ] reine Verteilung in Prozent, dahinter kurzmessage mit Botschaft - [ ] Botschaft: Kiefer gesunken, Laubholzansteil gestiegen - ### Vorrat - [ ] 3 Hauptbaumarten - ideele Werte @@ -187,27 +231,28 @@ auf ### Zuwachs ? -- 6 m³/ha * a +- 6 m³/ha \* a ### Ernte -- 4 m³/ha * a? -- nachhaltige Holznutzung + +- 4 m³/ha \* a? +- nachhaltige Holznutzung - [ ] Botschaft: Wächst mehr zu als wir Ernten - [ ] Grafisch Gegenüberstellen - ### Totholz - [ ] Botschaft: Steigerung + - [ ] Aber: überwiegend Nadel und klein klein -- Totholzvorrat in Brandenburg von 10,94 m³/ha in - 2013 auf 17 m³/ha in 2022 gestiegen +- Totholzvorrat in Brandenburg von 10,94 m³/ha in 2013 auf 17 m³/ha in + 2022 gestiegen + - In der Veränderungsrechung (nur Punkte im Veränderungsnetz) liegt der Anstieg bei **6,4 m³/ha**. - -**todo:** Daten aus Import übernehmen +**todo:** Daten aus Import übernehmen ### Verjüngung @@ -216,21 +261,42 @@ auf - [ ] Botschaft: Zu wenig Pflanzen / ha - [ ] Verbiss halbiert, aber noch immer zu viel bzw. zu wenig Pflanzen für Waldumbau - + ### Blöße -- abgenommen (aufgrund Methodik SG waldinv) -- von Kalamitäten verschont geblieben +- abgenommen (aufgrund Methodik SG waldinv) +- von Kalamitäten verschont geblieben ### Highlights - aus Daten! -- [x] Dickster Baum - Stieleiche: **`r format(ba_bhd %>% select(ba_name, bhd_cm) %>% pull(), scientific = FALSE)` cm BHD** **todo BA_NAme anzeigen** -- [x] Höchster Baum - Douglasie: 45.2 m +- [x] Dickster Baum - Stieleiche: + **`r format(ba_bhd %>% select(ba_name, bhd_cm) %>% pull(), scientific = FALSE)` cm BHD** + **todo BA_NAme anzeigen** +- [x] Höchster Baum - Douglasie: 45.2 m - [x] Ältester Baum - Traubeneiche: 349 Jahre -- [x] Anzahl Bäume insgesamt - 86.732 Bäume mit BHD (nur Bäume aus WZP4 ) -- [ ] Bäume / Ecken kontrolliert - +- [x] Anzahl Bäume insgesamt - 86.732 Bäume mit BHD (nur Bäume aus + WZP4 ) +- [ ] Bäume / Ecken kontrolliert - - [x] Trakte gesamt - 3.759 - [x] Trakte kontrolliert - 377 (10.1 %) - [x] Anzahl Waldecken - 11.463 -###### Weitere Informationen und Ansprechpartner +### Waldfläche2 + +Brandenburg verfügt über eine Waldfläche von +**`r format(waldfl_spez_long %>% filter(Land=='Brandenburg' & Kategorie == 'Wald') %>% select(Fläche) %>% pull(), big.mark = ".", decimal.mark = ",", scientific = FALSE)` ha**. + +Forstwirtschaftlich unterteilt besteht diese aus: + +- »bestockter Holzboden«: + `r format(waldfl_spez_long %>% filter(Land=='Brandenburg' & Kategorie == 'bestockter Holzboden') %>% select(Fläche) %>% pull(), big.mark = ".", decimal.mark = ",", scientific = FALSE)` ha, + das sind + `r format(waldfl_spez_long %>% filter(Land=='Brandenburg' & Kategorie == 'bestockter Holzboden') %>% select(Prozent) %>% pull(), big.mark = ".", decimal.mark = ",", scientific = FALSE)` %. +- »Nichtholzboden«: + `r format(waldfl_spez_long %>% filter(Land=='Brandenburg' & Kategorie == 'Nichtholzboden') %>% select(Fläche) %>% pull(), big.mark = ".", decimal.mark = ",", scientific = FALSE)` ha, + das sind + `r format(waldfl_spez_long %>% filter(Land=='Brandenburg' & Kategorie == 'Nichtholzboden') %>% select(Prozent) %>% pull(), big.mark = ".", decimal.mark = ",", scientific = FALSE)` %. +- »Blößen«: + `r format(waldfl_spez_long %>% filter(Land=='Brandenburg' & Kategorie == 'Blöße') %>% select(Fläche) %>% pull(), big.mark = ".", decimal.mark = ",", scientific = FALSE)` ha, + das sind + `r format(waldfl_spez_long %>% filter(Land=='Brandenburg' & Kategorie == 'Blöße') %>% select(Prozent) %>% pull(), big.mark = ".", decimal.mark = ",", scientific = FALSE)` %.