Skip to content
Snippets Groups Projects
Commit 31adbbf0 authored by Wiebke Torsten's avatar Wiebke Torsten
Browse files

wird besser

parent 63964583
No related branches found
No related tags found
1 merge request!4origin/tw nach tw
......@@ -99,15 +99,9 @@ Bereiche:
Studien zur Waldökologie und zur Anpassung der Wälder an den
Klimawandel.
In Brandenburg wurden die Aufnahmen von April 2021 bis Dezember von 9
Unternehmern in 11 Losen im 2 km x 2 km Netz durchgeführt. Dabei wurden
11.312 Aufnahmepunkte (Traktecken) begutachtet und an 11.078 Ecken
(Waldecken) Daten aufgenommen. Zusätzlich wurden Proben für genetische
Untersuchungen genommen.
```{r bwi_kost, echo=FALSE, include=FALSE}
bwi_kost <- data.frame(
Ecken = 11312,
Ecken = 11450,
Waldecken = 11078,
Unternehmer = 9,
Lose = 11,
......@@ -117,6 +111,39 @@ bwi_kost <- data.frame(
bwi_kost
```
In Brandenburg wurden die Aufnahmen von
- April 2021 bis Dezember von 9 Unternehmern in
- 11 Losen im 2 km x 2 km Netz durchgeführt.
Dabei wurden
- ca. `r format(round((bwi_kost %>% select(Ecken) %>% pull()),2), big.mark = ".", decimal.mark = ",", scientific = FALSE)` Aufnahmepunkte (Traktecken) begutachtet von denen
- `r format(round((waldecke_begeh22 %>% filter(Begehbarkeit == "begehbar + nicht begehbar" & Waldspezifikation == "Wald") %>% select(Ecken) %>% pull()),2), big.mark = ".", decimal.mark = ",", scientific = FALSE)` tatsächlich im Wald nach LWaldG lagen und an
- `r format(round((waldecke_begeh22 %>% filter(Begehbarkeit == "begehbar" & Waldspezifikation == "Wald") %>% select(Ecken) %>% pull()),2), big.mark = ".", decimal.mark = ",", scientific = FALSE)` Ecken Daten aufgenommen wurden.
An `r format(round((waldecke_begeh22 %>% filter(Begehbarkeit == "nicht begehbar, ohne Datenerhebung" & Waldspezifikation == "Wald") %>% select(Ecken) %>% pull()),2), big.mark = ".", decimal.mark = ",", scientific = FALSE)` Ecken konnten keine Daten erhoben werden, weil sie nicht begehbar waren. Die erfassten Gründe zur Nichtbegehbarkeit sind in @tbl-nichtbegehbar dargestellt.
```{r tbl-nichtbegehbar, echo=FALSE}
#| label: tbl-nichtbegehbar
#| tbl-cap: Anzahl nicht begehbarer Ecken nach Waldspezifikation und Grund für die nicht Begehbarkeit
waldfl_ba$bb_ecken_begehbar_waldspez22 %>%
filter(!Begehbarkeit %in% c("nicht begehbar, ohne Datenerhebung","begehbar","begehbar + nicht begehbar")) %>%
select(-c(Einheit)) %>%
regulartable() %>%
autofit() %>%
# Markiere die Spalten "Holzboden" und "Wald" als Summenspalten
bold(j = c("Holzboden", "Wald"), bold = TRUE) %>% # Fettdruck für diese Spalten
bg(j = c("Holzboden", "Wald"), bg = "#D9EAD3") %>% # Hintergrundfarbe ändern für diese Spalten
set_caption(caption = "Anzahl nicht begehbarer Ecken nach Waldspezifikation und Grund für die nicht Begehbarkeit")
```
Zusätzlich wurden an XXX Ecken Proben für genetische
Untersuchungen genommen. Die Untersuchungen dazu laufen derzeit, eine Zeitplanung für die Veröffentlichung der Ergebnisse liegt noch nicht vor. Es werden Aussagen zu Verwandschaftsverhältnissen und Ableitungen zu Herkunftsgebieten erwartet.
In Brandenburg ist es nach 2002 und 2012 die dritte Bundeswaldinventur
und die zweite landesweite Waldinventur. Durch die wiederholte Aufnahme
im 2 km x 2 km Netz sind Veränderungen aus den letzten 10 Jahren mit
......@@ -124,17 +151,18 @@ guter statistischer Sicherheit abbildbar.
Für die Aufnahmen zur BWI in Brandenburg wurden durchschnittlich `r format(round((bwi_kost %>% select(Unternehmerkosten) %>% pull())/ (bwi_kost %>% select(Ecken) %>% pull()),2), big.mark = ".", decimal.mark = ",", scientific = FALSE)` € pro Ecke und insgesamt `r format(round((bwi_kost %>% select(Unternehmerkosten) %>% pull()),2), big.mark = ".", decimal.mark = ",", scientific = FALSE)` € an Unternehmerleistungen vergeben.
Eine Vollkostenrechnung ermittelte Ausgaben in Höhe von `r format(bwi_kost %>% select(Vollkosten) %>% pull(), big.mark = ".", decimal.mark = ",", scientific = FALSE)` € für Personal, Sach- und Reisekosten zur Koordination, Schulung und Kontrolle der Aufnahmen.
Eine Vollkostenrechnung ermittelte Ausgaben in Höhe von ca. `r format(bwi_kost %>% select(Vollkosten) %>% pull(), big.mark = ".", decimal.mark = ",", scientific = FALSE)` € für Personal, Sach- und Reisekosten zur Koordination, Schulung und Kontrolle der Aufnahmen.
## Diskussion zu Veröffentlichungen
# Diskussion zu Veröffentlichungen
Auswertung Bund ➯ Detaillierung auf Landesebene?
- einige Schwerpunkte auf Bund-Länderkonferenzen schon festgelegt ➯
Auswertung Bund ➯ Detaillierung auf Landesebene?
Auf der Bund-Länderkonferenzen wurden schon einige Schwerpunkte für die Auswertung und Veröffentlichung des Bundes festgelegt. Eine Detaillierung auf Landesebene ist zu diskutieren.
## Vereinbarung Bund-Länder
### Vereinbarung Bund-Länder
### Von BIL und BMEL identifizierte Schwerpunkte
#### Von BIL und BMEL identifizierte Schwerpunkte
- Klimakrise, Ausfall von Baumarten und Veränderungen der
Naturnäheeinstufung
......@@ -142,14 +170,16 @@ Eine Vollkostenrechnung ermittelte Ausgaben in Höhe von `r format(bwi_kost %>%
- Verjüngung und Unterstand
- Perspektive des neuen Waldes
### Digitales Waldomonitoring
#### Digitales Waldomonitoring
In den letzten Jahren sind einige Produkte für das fernerkundungsbasierte digitale Waldmonitoring entstanden:
- FNEWs - Waldschadenskarte
- Wald/Nichtwaldkarte nach BWI-Definition
- Baumartenkarte
- Biomassekarte
## Aktuell in Diskussion
### Aktuell in Diskussion
- Wald-Nichtwaldabgrenzung: Deckungsgrad, Mindestflächen werden wegen
Klimakrise und Waldschäden unterschritten ➯ Flächenaussagen
......
No preview for this file type
......@@ -125,7 +125,27 @@ waldfl_spez_long <- waldfl_spez_long %>%
#waldfl_spez_long
```
## Waldfläche Eigentum
### Waldfläche Begehbarkeit
```{r}
waldfl_begeh22 <- waldfl_ba$bb_waldfl_begehbar_waldspez22 %>%
pivot_longer(cols = -c(Begehbarkeit,Einheit),
names_to = "Waldspezifikation",
values_to = "Fläche")
waldfl_begeh22
```
### Traktecken Begehbarkeit
```{r}
waldecke_begeh22 <- waldfl_ba$bb_ecken_begehbar_waldspez22 %>%
pivot_longer(cols = -c(Begehbarkeit,Einheit),
names_to = "Waldspezifikation",
values_to = "Ecken")
waldecke_begeh22
```
### Waldfläche Eigentum
```{r imp_waldfl_eig, include=FALSE}
# Excel-Datei einlesen und NaN-Werte als "nan" behandeln
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment