diff --git a/.gitignore b/.gitignore
index 9b3c651206bb059e3fe49620389145692610e16b..1a919cae7982b3cc06967b2efb9de36ad1d8a907 100644
--- a/.gitignore
+++ b/.gitignore
@@ -121,3 +121,4 @@ bwi2022.Rproj
/lfe_bwi/R_bwi/bwi_interpretationsworkshop.pdf
lfe_bwi/R_bwi/quarto_bwi/*
/R_bwi/BWI-MLUK/BWI-LFE_MLUK.pdf
+/R_bwi/bwi_veröffentlichung/config.yml
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 10631adf1c177e84c68581faab4757405c819830..c8add3cb5a48d738bb0b289a20734606e9fc5ebb 100644
--- "a/R_bwi/bwi_ver\303\266ffentlichung/BWI-LFE_MLUK.qmd"
+++ "b/R_bwi/bwi_ver\303\266ffentlichung/BWI-LFE_MLUK.qmd"
@@ -144,6 +144,8 @@ 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.
+**todo:** Daten aus Datenbank übernehmen
+
Dabei wurden
- ca.
diff --git "a/R_bwi/bwi_ver\303\266ffentlichung/infoflyer.qmd" "b/R_bwi/bwi_ver\303\266ffentlichung/infoflyer.qmd"
index 00a8497c51be4b14e50c3a36270f2aaa63faea35..fb71668bfa4f508152bb1f2878e2f3dc64d7e61d 100644
--- "a/R_bwi/bwi_ver\303\266ffentlichung/infoflyer.qmd"
+++ "b/R_bwi/bwi_ver\303\266ffentlichung/infoflyer.qmd"
@@ -63,10 +63,11 @@ erstellt werden. Die Infografik mit den Probekreisen findet sich unter:
## Zahlen und Grafiken
+Die Zahlen und Grafiken sind so bald als möglich zu übermitteln.
-Die Zahlen und Grafiken sind so bald als möglich zu übermitteln für
+# Inhalt
-### Methodik - "Umrisskarte" Brandenburg mit grafisch gestalteter "Zoom" zu Stichprobenpunkt
+## Methodik - "Umrisskarte" Brandenburg mit grafisch gestalteter "Zoom" zu Stichprobenpunkt
- [ ] Umrisskarte Brandenburg mit Stichprobenpunkten
- [ ] optisch gestalteter Zoom auf Probekreise
@@ -85,29 +86,76 @@ Text:
- 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.
+
+### 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.
+
Infografik (Karte mit Waldfläche Brandenburgs - Zoom zu
Probekreisgrafik):
-- 11 Trupps waren 2 Jahre in Brandenburg unterwegs und überprüften 11
- 400 Punkte
-- an 11 312 Punkten wurden Daten an verschiedenen Probekreisen erfasst
+```{r}
+trackt_eckenanzahl %>%
+ select(waldecke) %>%
+ pull()
+
+```
+
+**todo:** Ãœbernahme von Textelementen aus BWI-LFE_MLUK.qmd
+
+- 11 Trupps waren 2 Jahre in Brandenburg unterwegs und überprüften **Trakte** und
+`r format(round((trackt_eckenanzahl %>% select(waldecke) %>% pull()), big.mark = ".", decimal.mark = ",", scientific = FALSE)` 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
+
:::
:::
- Botschaft:
- - Waldfläche ist stabil (+100 ha) - zwei Zahlen
- - BB Top 5 (4) waldreichste Bundesländer**?**
-- grafisch gestalteter "Zoom" zu Stichprobenpunkt
+ - grafisch gestalteter "Zoom" zu Stichprobenpunkt
- Grafiken Methodik / Probekreise u.ä.
- Anzahl Waldecken / Gemessene Bäume / Arbeitsstunden Trupps o.ä.
-
-### Eigentumsverhältnisse
+ - 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
+**`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)` %.
+
+Damit nimmt Brandenburg nach absoluter Waldfläche bundesweit den
+**vierten** Platz - nach Bayern, Baden-Württemberg und Niedersachsen -
+und nach relativer Waldfläche, mit
+**`r format(waldflant %>% filter(Kategorie == "Wald" & Land == "Brandenburg") %>% select(Anteil) %>% pull() %>% round(2), big.mark = ".", decimal.mark = ",", scientific = FALSE)`Â %**
+den **fünften** Platz - nach Rheinland-Pfalz, Hessen, Baden-Württemberg
+und dem Saarland - ein.
+
+## Eigentumsverhältnisse
- [ ] Leichter Ãœbergang Staatswald zu Privatwald
- [ ] Botschaft: Eigentumsvereteilung bleibt weitgehend stabil -
@@ -143,7 +191,7 @@ ver_jungbest_ba_22_long <- strukt$bb_ver_jungbest_art_22 %>%
# Balkendiagramm Veränderung Baumartenanteile Jungbestockung Gesamtwald!
# Farben zuordnen
-filtered_colors <- ba_farben[names(ba_farben) %in% jungbest_ba_22_long$Baumartengruppe]
+filtered_colors <- ba_farben[names(ba_farben) %in% ver_jungbest_ba_22_long$Baumartengruppe]
ggplot(ver_jungbest_ba_22_long, aes(x = fct_reorder(Baumartengruppe, Waldfläche), y = Waldfläche, fill = Baumartengruppe)) +
geom_col() +
diff --git "a/R_bwi/bwi_ver\303\266ffentlichung/librarys-datimport.qmd" "b/R_bwi/bwi_ver\303\266ffentlichung/librarys-datimport.qmd"
index c746fd29a684fcd1f408d4682447b748faabec48..3096bb01512aafb9e6c20e4d4d2619068b0987c0 100644
--- "a/R_bwi/bwi_ver\303\266ffentlichung/librarys-datimport.qmd"
+++ "b/R_bwi/bwi_ver\303\266ffentlichung/librarys-datimport.qmd"
@@ -20,9 +20,33 @@ library(flextable)
library(kableExtra)
library(xtable) # für LaTeX-Tabellen
library(quarto)
-#library(webshot2)
+#library(webshot2) # für Screenshots
+library(RPostgres) # installation funktionert nachdem via muon libpq-dev installiert wurde
+library(config) # um Datenbankonfiguration zu verstecken
```
+```{r}
+# config.yml ist in faircloud/3-2-bwi/Auswertung/R_bwi/
+
+# Verbindung herstellen
+# convwm <- dbConnect(RPostgreSQL::PostgreSQL(),
+# host="db03.simplex4data.de",
+# port=5432,
+# user="twiebke",
+# dbname="projekt_lfb",
+# password="rechtshelfeschmerzendamals")
+# Konfiguration für eine spezifische Datenbank laden
+config <- config::get(file = "config.yml")
+db_config <- config$databases$sgdb
+consgdb <- DBI::dbConnect(RPostgres::Postgres(),
+ host=db_config$host,
+ port=db_config$port,
+ dbname=db_config$dbname,
+ user=db_config$user,
+ password=db_config$password)
+```
+
+
```{r farben, include=FALSE}
# Benutzerdefinierte Farben für die Layer
ba_farben <- c("Eiche (Quercus)" = "#ffffcc",
@@ -81,7 +105,29 @@ ba_farben <- c("Eiche (Quercus)" = "#ffffcc",
)
```
-# Datenimport {.hidden .unnumbered .unlisted}
+# Datenimport
+
+## von Sachgebietsdatenbank consgdb
+
+```{r}
+# # Das Problem wird der h3index sein
+qu_trackt_eckenanzahl <- "select --distinct bftw.anat
+ COUNT(distinct bfev.tnr) filter (where bfev.wa between 1 and 5) as waldtrakte, -- Anzahl der Traktnummern mit bfev.wa zwischen 1 und 5
+ COUNT(distinct bfev.tnr) filter (where bfev.wa = 0) as nichtwaldtrakte -- Anzahl der Traktnummern mit bfev.wa = 0
+ ,count(bfev.enr) filter (where bfev.wa between 1 and 5) as waldecke
+from
+ bwi_2022.b3f_ecke_vorkl bfev
+ --join bwi_admin.lospunkt l on l.tnr = bfev.tnr
+join bwi_2022.b3f_tnr_vorkl bftv on bftv.tnr = bfev.tnr
+join bwi_2022.b3f_tnr_work bftw on bftw.tnr = bfev.tnr
+where
+ bftv.trstatus between 1 and 3 -- waldtrakte
+ and bftw.anat between 1901 and 1916;"
+trackt_eckenanzahl <- dbGetQuery(consgdb, qu_trackt_eckenanzahl)
+trackt_eckenanzahl
+
+```
+
## Waldfläche {.hidden .unnumbered .unlisted}
@@ -376,14 +422,14 @@ ver_vor_long <- ver_vor_long %>%
### Struktur und Verjüngung {.hidden .unnumbered .unlisted}
```{r imp_strukt, include=FALSE}
-# # Excel-Datei einlesen und NaN-Werte als "nan" behandeln
-# # Namen der Blätter automatisch auslesen
-# strukt_sheet_names <- excel_sheets("../Struktur_Verj.xlsx")
-# strukt <- lapply(strukt_sheet_names, function(sheet) {
-# read_excel("../Struktur_Verj.xlsx", sheet = sheet, skip = 5, na = "NaN")
-# })
-# # Namen der Liste anpassen
-# names(strukt) <- strukt_sheet_names
+# Excel-Datei einlesen und NaN-Werte als "nan" behandeln
+# Namen der Blätter automatisch auslesen
+strukt_sheet_names <- excel_sheets("../data/Struktur_Verj.xlsx")
+strukt <- lapply(strukt_sheet_names, function(sheet) {
+ read_excel("../data/Struktur_Verj.xlsx", sheet = sheet, skip = 5, na = "NaN")
+})
+# Namen der Liste anpassen
+names(strukt) <- strukt_sheet_names
```
### Totholz {.hidden .unnumbered .unlisted}
diff --git a/R_bwi/interpretationsworkshop/bwi_interpretationsworkshop.tex b/R_bwi/interpretationsworkshop/bwi_interpretationsworkshop.tex
index 511c72f98f71f868fdfa1a968b4cc2ae800bc7dd..06c41f95b1b057a209485f67ab705048e0f2a9d0 100644
--- a/R_bwi/interpretationsworkshop/bwi_interpretationsworkshop.tex
+++ b/R_bwi/interpretationsworkshop/bwi_interpretationsworkshop.tex
@@ -43,14 +43,28 @@
\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}[1]{\oldparagraph{#1}\mbox{}}
+ \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}[1]{\oldsubparagraph{#1}\mbox{}}
+ \renewcommand{\subparagraph}{
+ \@ifstar
+ \xxxSubParagraphStar
+ \xxxSubParagraphNoStar
+ }
+ \newcommand{\xxxSubParagraphStar}[1]{\oldsubparagraph*{#1}\mbox{}}
+ \newcommand{\xxxSubParagraphNoStar}[1]{\oldsubparagraph{#1}\mbox{}}
\fi
+\makeatother
\usepackage{color}
\usepackage{fancyvrb}
@@ -70,7 +84,7 @@
\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}{#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}}}
@@ -80,7 +94,7 @@
\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}{#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}}
@@ -207,6 +221,7 @@
\@ifpackageloaded{caption}{}{\usepackage{caption}}
\@ifpackageloaded{subcaption}{}{\usepackage{subcaption}}
\makeatother
+
\ifLuaTeX
\usepackage{selnolig} % disable illegal ligatures
\fi
@@ -224,6 +239,7 @@
urlcolor={Blue},
pdfcreator={LaTeX via pandoc}}
+
\title{BWI-Interpretationsworkshops}
\usepackage{etoolbox}
\makeatletter
@@ -233,11 +249,12 @@
\makeatother
\subtitle{Diskussionsgrundlage zu den Daten der BWI 2022}
\author{Sebastian Schmidt und Torsten Wiebke}
-\date{2024-09-05}
+\date{2024-09-08}
\begin{document}
\maketitle
+
\chapter{Workshop 1 -
Forstwirtschaftsdaten}\label{workshop-1---forstwirtschaftsdaten}
@@ -246,6 +263,8 @@ Forstwirtschaftsdaten}\label{workshop-1---forstwirtschaftsdaten}
\section{Waldflächendiagramm nach BWI
2022}\label{waldfluxe4chendiagramm-nach-bwi-2022}
+\includegraphics{bwi_interpretationsworkshop_files/figure-pdf/waldfl22_stackbar-1.pdf}
+
\section{Waldflächen nach BWI 2022}\label{waldfluxe4chen-nach-bwi-2022}
\begin{Shaded}
@@ -258,27 +277,27 @@ Forstwirtschaftsdaten}\label{workshop-1---forstwirtschaftsdaten}
\begingroup\fontsize{10}{12}\selectfont
\begin{longtable}[t]{>{\raggedright\arraybackslash}p{10%}>{\raggedleft\arraybackslash}p{10%}>{\raggedleft\arraybackslash}p{10%}}
-\caption{\label{tab:html_table}Prozentuale Aufteilung der Waldfläche nach Ba_Wa in Brandenburg (BWI2022)}\\
+\caption{Prozentuale Aufteilung der Waldfläche nach Ba_Wa in Brandenburg (BWI2022)}\\
\toprule
Ba\_Wa & Fläche & proz\\
\midrule
-\textbf{Eiche (Quercus)} & 85847.19 & 7.93\\
-\textbf{Buche (Fagus)} & 39241.30 & 3.63\\
+\textbf{Tanne (Abies)} & 511.06 & 0.05\\
\textbf{Esche (Fraxinus)} & 2954.05 & 0.27\\
+\textbf{Blöße} & 3091.18 & 0.29\\
\textbf{Ahorn (Acer)} & 6346.16 & 0.59\\
-\textbf{sonst. Lb hoher Lebensdauer} & 32765.38 & 3.03\\
+\textbf{Douglasie (Pseudotsuga)} & 10166.10 & 0.94\\
\addlinespace
-\textbf{Birke (Betula)} & 60062.03 & 5.55\\
-\textbf{Erle (Alnus)} & 33157.25 & 3.06\\
-\textbf{sonst. Lb niedriger Lebensdauer} & 23617.78 & 2.18\\
+\textbf{Lärche (Larix)} & 11127.30 & 1.03\\
\textbf{Fichte (Picea)} & 11655.49 & 1.08\\
-\textbf{Tanne (Abies)} & 511.06 & 0.05\\
+\textbf{Lücke} & 20541.36 & 1.90\\
+\textbf{sonst. Lb niedriger Lebensdauer} & 23617.78 & 2.18\\
+\textbf{sonst. Lb hoher Lebensdauer} & 32765.38 & 3.03\\
\addlinespace
-\textbf{Douglasie (Pseudotsuga)} & 10166.10 & 0.94\\
+\textbf{Erle (Alnus)} & 33157.25 & 3.06\\
+\textbf{Buche (Fagus)} & 39241.30 & 3.63\\
+\textbf{Birke (Betula)} & 60062.03 & 5.55\\
+\textbf{Eiche (Quercus)} & 85847.19 & 7.93\\
\textbf{Kiefer (Pinus)} & 740927.71 & 68.48\\
-\textbf{Lärche (Larix)} & 11127.30 & 1.03\\
-\textbf{Lücke} & 20541.36 & 1.90\\
-\textbf{Blöße} & 3091.18 & 0.29\\
\bottomrule
\end{longtable}
\endgroup{}
@@ -293,8 +312,8 @@ Auffälligkeiten.
\section{Waldflächen nach BWI}\label{waldfluxe4chen-nach-bwi}
\begin{longtable}[]{@{}
- >{\raggedright\arraybackslash}p{(\columnwidth - 2\tabcolsep) * \real{0.3380}}
- >{\raggedright\arraybackslash}p{(\columnwidth - 2\tabcolsep) * \real{0.6620}}@{}}
+ >{\raggedright\arraybackslash}p{(\columnwidth - 2\tabcolsep) * \real{0.3521}}
+ >{\raggedright\arraybackslash}p{(\columnwidth - 2\tabcolsep) * \real{0.6479}}@{}}
\toprule\noalign{}
\begin{minipage}[b]{\linewidth}\raggedright
Inv
@@ -690,7 +709,7 @@ festgestellt.
\begingroup\fontsize{10}{12}\selectfont
\begin{longtable}[t]{>{\raggedright\arraybackslash}p{10%}>{\raggedleft\arraybackslash}p{10%}>{\raggedleft\arraybackslash}p{10%}}
-\caption{\label{tab:bart_ant_2013_table}Prozentuale Aufteilung der Waldfläche (ha) nach Baumartengruppen in Brandenburg (LWI 2013)}\\
+\caption{Prozentuale Aufteilung der Waldfläche (ha) nach Baumartengruppen in Brandenburg (LWI 2013)}\\
\toprule
Ba\_Wa & Fläche & Prozent\\
\midrule
@@ -1002,7 +1021,7 @@ Bestände auf.
\begingroup\fontsize{10}{12}\selectfont
\begin{longtable}[t]{>{\raggedright\arraybackslash}p{10em}>{\raggedright\arraybackslash}p{30em}>{\raggedleft\arraybackslash}p{10em}>{\raggedleft\arraybackslash}p{10em}}
-\caption{\label{tab:tab-beimischungsfl13}Flächen und Prozentuale Aufteilung der Waldfläche mit Beimischung in Brandenburg (2013)}\\
+\caption{Flächen und Prozentuale Aufteilung der Waldfläche mit Beimischung in Brandenburg (2013)}\\
\toprule
Eigentumsart & Laub-/Nadel-Waldtyp & Prozentsumme & Flächensumme\\
\midrule
@@ -1175,7 +1194,7 @@ Privatwald mit 5,86 \% höher als der landesweite Durchschnitt war.
\begingroup\fontsize{10}{12}\selectfont
\begin{longtable}[t]{>{\raggedright\arraybackslash}p{10em}>{\raggedleft\arraybackslash}p{30em}>{\raggedleft\arraybackslash}p{10em}}
-\caption{\label{tab:Jungbest_hauptbest13}Flächen und Prozentuale Aufteilung der Jungbestockung ohne Schirm (Hauptbestockung) in Brandenburg (2013)}\\
+\caption{Flächen und Prozentuale Aufteilung der Jungbestockung ohne Schirm (Hauptbestockung) in Brandenburg (2013)}\\
\toprule
Eigentumsart & Fläche & rel\_proz\\
\midrule
@@ -1216,7 +1235,7 @@ Körperschafts- und Privatwald auch Saat als Verjüngungsart erfasst.
\begingroup\fontsize{10}{12}\selectfont
\begin{longtable}[t]{>{\raggedright\arraybackslash}p{30em}>{\raggedright\arraybackslash}p{10em}>{\raggedleft\arraybackslash}p{10em}>{\raggedleft\arraybackslash}p{10em}}
-\caption{\label{tab:tabl_auszu_verjartbb13}Auszug der Flächen und prozentualen Aufteilung der Verjüngungsarten in Brandenburg (2013)}\\
+\caption{Auszug der Flächen und prozentualen Aufteilung der Verjüngungsarten in Brandenburg (2013)}\\
\toprule
Eigentumsart & Verjüngung & Fläche & rel\_proz\\
\midrule
@@ -1283,7 +1302,7 @@ vernachlässigbar.
\begingroup\fontsize{10}{12}\selectfont
\begin{longtable}[t]{>{\raggedright\arraybackslash}p{30em}>{\raggedright\arraybackslash}p{10em}>{\raggedleft\arraybackslash}p{10em}>{\raggedleft\arraybackslash}p{10em}}
-\caption{\label{tab:unnamed-chunk-27}Auszug der Flächen und prozentualen Aufteilung der Verjüngungsarten in Brandenburg (2022)}\\
+\caption{Auszug der Flächen und prozentualen Aufteilung der Verjüngungsarten in Brandenburg (2022)}\\
\toprule
Eigentumsart & Verjüngung & Fläche & rel\_proz\\
\midrule
@@ -1474,7 +1493,7 @@ Kiefer und Eiche im Süden und mehr Buche im Norden.
\begingroup\fontsize{10}{12}\selectfont
\begin{longtable}[t]{>{\raggedright\arraybackslash}p{30em}>{\raggedleft\arraybackslash}p{10em}}
-\caption{\label{tab:unnamed-chunk-29}Verbissprozent in Brandenburg (2013)}\\
+\caption{Verbissprozent in Brandenburg (2013)}\\
\toprule
Baumartengruppe & sum(rel\_proz)\\
\midrule
@@ -1549,7 +1568,7 @@ Anteil mit 32,82 \% entfällt auf alle Laubbäume.
\begingroup\fontsize{10}{12}\selectfont
\begin{longtable}[t]{>{\raggedright\arraybackslash}p{30em}>{\raggedleft\arraybackslash}p{10em}}
-\caption{\label{tab:bb_verb_ba_22_long_lb_ndl_all_table}Verbissprozent in Brandenburg (2022) für alle Baumarten}\\
+\caption{Verbissprozent in Brandenburg (2022) für alle Baumarten}\\
\toprule
Eigentumsart & Verbissprozent\\
\midrule
@@ -1581,7 +1600,7 @@ Eigentumsart & Verbissprozent\\
\begingroup\fontsize{10}{12}\selectfont
\begin{longtable}[t]{>{\raggedright\arraybackslash}p{30em}>{\raggedright\arraybackslash}p{10em}>{\raggedleft\arraybackslash}p{10em}}
-\caption{\label{tab:r bb_verb_ba_22_long_lb_ndl_table}Verbissprozent in Brandenburg (2022) für Laub- und Nadelholz}\\
+\caption{Verbissprozent in Brandenburg (2022) für Laub- und Nadelholz}\\
\toprule
Eigentumsart & Baumartengruppe & Verbissprozent\\
\midrule
@@ -1685,7 +1704,7 @@ Auch die Pflanzendichte ist gestiegen.
\begingroup\fontsize{10}{12}\selectfont
\begin{longtable}[t]{>{\raggedright\arraybackslash}p{30em}>{\raggedleft\arraybackslash}p{10em}>{\raggedleft\arraybackslash}p{10em}}
-\caption{\label{tab:unnamed-chunk-32}Pflanzenzahl/ha unverbissener Pflanzen und Differenz in Brandenburg (2022-2013)}\\
+\caption{Pflanzenzahl/ha unverbissener Pflanzen und Differenz in Brandenburg (2022-2013)}\\
\toprule
Baumartengruppe & Pflanzen/ha & Differenz (2022 - 2012)\\
\midrule
@@ -1902,7 +1921,7 @@ letzter)
8 Baden-Württemberg [m³/ha] Wurzelstock (Höhe < 130 cm) 10.4
9 Baden-Württemberg [m³/ha] Abfuhrrest (aufgeschichtet) 0.0356
10 Baden-Württemberg [m³/ha] alle Totholztypen 32.6
-# ... with 150 more rows
+# i 150 more rows
\end{verbatim}
\begin{Shaded}
@@ -2065,24 +2084,25 @@ Jahre und mehr
\begin{verbatim}
# A tibble: 16 x 6
- Jahr Totholztyp Einheit `alle Zersetzu~` Zersetzungsgrad Totholzvorrat
- <dbl> <chr> <chr> <dbl> <chr> <dbl>
- 1 2012 Stehend [m³/ha] 3.91 unzersetzt 1.13
- 2 2012 Stehend [m³/ha] 3.91 beginnende Zer~ 1.88
- 3 2012 Stehend [m³/ha] 3.91 fortgeschritte~ 0.806
- 4 2012 Stehend [m³/ha] 3.91 stark vermodert 0.0977
- 5 2012 Liegend [m³/ha] 5.67 unzersetzt 0.436
- 6 2012 Liegend [m³/ha] 5.67 beginnende Zer~ 1.12
- 7 2012 Liegend [m³/ha] 5.67 fortgeschritte~ 2.52
- 8 2012 Liegend [m³/ha] 5.67 stark vermodert 1.58
- 9 2012 Wurzelstock (Hö~ [m³/ha] 1.31 unzersetzt 0.167
-10 2012 Wurzelstock (Hö~ [m³/ha] 1.31 beginnende Zer~ 0.331
-11 2012 Wurzelstock (Hö~ [m³/ha] 1.31 fortgeschritte~ 0.419
-12 2012 Wurzelstock (Hö~ [m³/ha] 1.31 stark vermodert 0.391
-13 2022 Wurzelstock (Hö~ [m³/ha] 1.39 unzersetzt 0.175
-14 2022 Wurzelstock (Hö~ [m³/ha] 1.39 beginnende Zer~ 0.480
-15 2022 Wurzelstock (Hö~ [m³/ha] 1.39 fortgeschritte~ 0.534
-16 2022 Wurzelstock (Hö~ [m³/ha] 1.39 stark vermodert 0.202
+ Jahr Totholztyp Einheit alle Zersetzungsgrad~1 Zersetzungsgrad Totholzvorrat
+ <dbl> <chr> <chr> <dbl> <chr> <dbl>
+ 1 2012 Stehend [m³/ha] 3.91 unzersetzt 1.13
+ 2 2012 Stehend [m³/ha] 3.91 beginnende Zer~ 1.88
+ 3 2012 Stehend [m³/ha] 3.91 fortgeschritte~ 0.806
+ 4 2012 Stehend [m³/ha] 3.91 stark vermodert 0.0977
+ 5 2012 Liegend [m³/ha] 5.67 unzersetzt 0.436
+ 6 2012 Liegend [m³/ha] 5.67 beginnende Zer~ 1.12
+ 7 2012 Liegend [m³/ha] 5.67 fortgeschritte~ 2.52
+ 8 2012 Liegend [m³/ha] 5.67 stark vermodert 1.58
+ 9 2012 Wurzelsto~ [m³/ha] 1.31 unzersetzt 0.167
+10 2012 Wurzelsto~ [m³/ha] 1.31 beginnende Zer~ 0.331
+11 2012 Wurzelsto~ [m³/ha] 1.31 fortgeschritte~ 0.419
+12 2012 Wurzelsto~ [m³/ha] 1.31 stark vermodert 0.391
+13 2022 Wurzelsto~ [m³/ha] 1.39 unzersetzt 0.175
+14 2022 Wurzelsto~ [m³/ha] 1.39 beginnende Zer~ 0.480
+15 2022 Wurzelsto~ [m³/ha] 1.39 fortgeschritte~ 0.534
+16 2022 Wurzelsto~ [m³/ha] 1.39 stark vermodert 0.202
+# i abbreviated name: 1: `alle Zersetzungsgrade von Totholz`
\end{verbatim}
\begin{Shaded}
@@ -2185,24 +2205,25 @@ nicht korrekt dargestellt
\begin{verbatim}
# A tibble: 16 x 6
- Jahr Totholztyp Einheit `alle Zersetzu~` Zersetzungsgrad Totholzvorrat
- <dbl> <chr> <chr> <dbl> <fct> <dbl>
- 1 2012 Stehend [m³/ha] 3.91 unzersetzt 1.13
- 2 2012 Stehend [m³/ha] 3.91 beginnende Zer~ 1.88
- 3 2012 Stehend [m³/ha] 3.91 fortgeschritte~ 0.806
- 4 2012 Stehend [m³/ha] 3.91 stark vermodert 0.0977
- 5 2012 Liegend [m³/ha] 5.67 unzersetzt 0.436
- 6 2012 Liegend [m³/ha] 5.67 beginnende Zer~ 1.12
- 7 2012 Liegend [m³/ha] 5.67 fortgeschritte~ 2.52
- 8 2012 Liegend [m³/ha] 5.67 stark vermodert 1.58
- 9 2012 Wurzelstock (Hö~ [m³/ha] 1.31 unzersetzt 0.167
-10 2012 Wurzelstock (Hö~ [m³/ha] 1.31 beginnende Zer~ 0.331
-11 2012 Wurzelstock (Hö~ [m³/ha] 1.31 fortgeschritte~ 0.419
-12 2012 Wurzelstock (Hö~ [m³/ha] 1.31 stark vermodert 0.391
-13 2022 Wurzelstock (Hö~ [m³/ha] 1.39 unzersetzt 0.175
-14 2022 Wurzelstock (Hö~ [m³/ha] 1.39 beginnende Zer~ 0.480
-15 2022 Wurzelstock (Hö~ [m³/ha] 1.39 fortgeschritte~ 0.534
-16 2022 Wurzelstock (Hö~ [m³/ha] 1.39 stark vermodert 0.202
+ Jahr Totholztyp Einheit alle Zersetzungsgrad~1 Zersetzungsgrad Totholzvorrat
+ <dbl> <chr> <chr> <dbl> <fct> <dbl>
+ 1 2012 Stehend [m³/ha] 3.91 unzersetzt 1.13
+ 2 2012 Stehend [m³/ha] 3.91 beginnende Zer~ 1.88
+ 3 2012 Stehend [m³/ha] 3.91 fortgeschritte~ 0.806
+ 4 2012 Stehend [m³/ha] 3.91 stark vermodert 0.0977
+ 5 2012 Liegend [m³/ha] 5.67 unzersetzt 0.436
+ 6 2012 Liegend [m³/ha] 5.67 beginnende Zer~ 1.12
+ 7 2012 Liegend [m³/ha] 5.67 fortgeschritte~ 2.52
+ 8 2012 Liegend [m³/ha] 5.67 stark vermodert 1.58
+ 9 2012 Wurzelsto~ [m³/ha] 1.31 unzersetzt 0.167
+10 2012 Wurzelsto~ [m³/ha] 1.31 beginnende Zer~ 0.331
+11 2012 Wurzelsto~ [m³/ha] 1.31 fortgeschritte~ 0.419
+12 2012 Wurzelsto~ [m³/ha] 1.31 stark vermodert 0.391
+13 2022 Wurzelsto~ [m³/ha] 1.39 unzersetzt 0.175
+14 2022 Wurzelsto~ [m³/ha] 1.39 beginnende Zer~ 0.480
+15 2022 Wurzelsto~ [m³/ha] 1.39 fortgeschritte~ 0.534
+16 2022 Wurzelsto~ [m³/ha] 1.39 stark vermodert 0.202
+# i abbreviated name: 1: `alle Zersetzungsgrade von Totholz`
\end{verbatim}
\section{Totholzvorrat in Holzart
@@ -2299,4 +2320,5 @@ Praxis - Eidg. Forschungsanstalt WSL}. Mai 2019. Bd.~52, S.~12}
+
\end{document}
diff --git a/bwi_sql/bwi_auswertungsabfragen.sql b/bwi_sql/bwi_auswertungsabfragen.sql
new file mode 100644
index 0000000000000000000000000000000000000000..c0cce1031e1c6a2e57def096c496daa831186535
--- /dev/null
+++ b/bwi_sql/bwi_auswertungsabfragen.sql
@@ -0,0 +1,134 @@
+-- New script in lfe_repos/bwi2022/bwi_sql
+-- Date: ${date}
+-- CONNECTION: name=projekt_lfb
+-- Database: projekt_lfb - target database name
+
+/* lospunkt kommt aus waldinv und wurde benutzt um die Lose zuzuordnen und administrative Aufgaben zu erledigen
+ *
+ */
+-- index nach kopie von anderer Datenbank
+-- pk auf tnr und enr
+alter table bwi_admin.lospunkt
+add constraint pk_lospunkt primary key (tnr, enr);
+
+alter table bwi_admin.status
+add constraint pk_status primary key (id_status);
+
+alter table bwi_admin.statusadd
+add constraint pk_statusadd primary key (id_statusadd);
+
+
+-- räumlicher Index
+create index idx_lospunkt_geom on bwi_admin.lospunkt using gist (geom);
+
+-- update statusadd in lospunkt wegen zusammenführung der Schlüsseltabellen
+update bwi_admin.lospunkt
+set statusadd = 410
+where statusadd = 41
+
+select count(*)
+from bwi_admin.lospunkt l
+left join bwi_admin.s_status s on s.id_status = l.status
+left join bwi_admin.s_statusadd sa on sa.id_statusadd = l.statusadd
+left join bwi_2022.b3f_ecke_vorkl bfev on bfev.tnr =l.tnr and bfev.enr =l.enr
+join bwi_meta.x3_wa xw on xw.icode = bfev.wa
+
+-- anzahl der Lospunkte nach status und los
+select l.losnr, s.statusbes,sa.statusaddbes, l.aktion, xw.kurzd, count(*)
+from bwi_admin.lospunkt l
+left join bwi_admin.s_status s on s.id_status = l.status
+left join bwi_admin.s_statusadd sa on sa.id_statusadd = l.statusadd
+left join bwi_2022.b3f_ecke_vorkl bfev on bfev.tnr =l.tnr and bfev.enr =l.enr
+left join bwi_meta.x3_wa xw on xw.icode = bfev.wa
+group by ROLLUP (l.losnr, s.statusbes, sa.statusaddbes, l.aktion, xw.kurzd);
+
+SELECT
+ l.losnr,
+ s.statusbes,
+ sa.statusaddbes,
+ l.aktion,
+ xw.kurzd,
+ COUNT(*) AS punktanzahl,
+ SUM(COUNT(*)) OVER () AS gesamtanzahl, -- Gesamtsumme aller Punkte in lospunkt
+ SUM(COUNT(*)) OVER (PARTITION BY l.losnr) AS anzahl_pro_losnr, -- Summe pro losnr, mit spezieller Berücksichtigung für NULL-Werte
+ SUM(COUNT(*)) OVER (PARTITION BY l.losnr, s.statusbes) AS anzahl_pro_losnr_status, -- Summe pro losnr und statusbes
+ SUM(COUNT(*)) OVER (PARTITION BY l.losnr, s.statusbes, xw.kurzd) AS anzahl_pro_losnr_status_kurzd -- Summe pro losnr, statusbes und kurzd
+FROM
+ bwi_admin.lospunkt l
+LEFT JOIN
+ bwi_admin.s_status s ON s.id_status = l.status
+LEFT JOIN
+ bwi_admin.s_statusadd sa ON sa.id_statusadd = l.statusadd
+LEFT JOIN
+ bwi_2022.b3f_ecke_vorkl bfev ON bfev.tnr = l.tnr AND bfev.enr = l.enr
+left JOIN
+ bwi_meta.x3_wa xw ON xw.icode = bfev.wa
+GROUP BY l.losnr, s.statusbes, sa.statusaddbes, l.aktion, xw.kurzd
+--ORDER BY l.losnr, s.statusbes, xw.kurzd;
+
+
+SELECT
+ SUM(COUNT(*)) OVER () AS gesamtanzahl, -- Gesamtsumme aller Punkte in lospunkt,
+ l.losnr,
+ SUM(COUNT(*)) OVER (PARTITION BY l.losnr) AS anzahl_pro_losnr, -- Summe pro losnr
+ xw.kurzd,
+ SUM(COUNT(*)) OVER (PARTITION BY l.losnr, xw.kurzd) AS anzahl_pro_losnr_kurzd
+FROM
+ bwi_admin.lospunkt l
+LEFT JOIN
+ bwi_admin.s_status s ON s.id_status = l.status
+LEFT JOIN
+ bwi_admin.s_statusadd sa ON sa.id_statusadd = l.statusadd
+LEFT JOIN
+ bwi_2022.b3f_ecke_vorkl bfev ON bfev.tnr = l.tnr AND bfev.enr = l.enr
+left JOIN
+ bwi_meta.x3_wa xw ON xw.icode = bfev.wa
+GROUP BY l.losnr, kurzd--, s.statusbes, sa.statusaddbes, l.aktion, xw.kurzd
+--ORDER BY l.losnr, s.statusbes, xw.kurzd;
+
+SELECT DISTINCT( l.losnr),
+ COUNT(*) OVER (PARTITION BY l.losnr) AS anzahl_pro_losnr, -- Summe pro losnr
+ xw.kurzd,
+ COUNT(*) OVER (PARTITION BY l.losnr, xw.kurzd) AS anzahl_pro_losnr_kurzd -- Summe pro losnr und kurzd
+ ,SUM(1) OVER () AS gesamtanzahl -- Gesamtsumme aller Punkte in lospunkt
+ , count(*) FILTER (where l.losnr > 11 ) over () as eigenaufnahmenall
+ , count(*) FILTER (where l.losnr between 1 and 11) over () as vergabepunkte
+ , count(*) filter (where xw.kurzd = 'Nichtwald') over () as nichtwaldall
+ , count(*) filter (where bfev.wa between 1 and 5) over () as waldall
+ , count(*) FILTER (where l.losnr not between 1 and 11) over (partition by l.losnr) as eigenaufnahmen
+ , count(*) FILTER (where l.losnr not between 1 and 11) over () as eigenaufnahmenall
+FROM
+ bwi_admin.lospunkt l
+LEFT JOIN
+ bwi_admin.s_status s ON s.id_status = l.status
+LEFT JOIN
+ bwi_admin.s_statusadd sa ON sa.id_statusadd = l.statusadd
+LEFT JOIN
+ bwi_2022.b3f_ecke_vorkl bfev ON bfev.tnr = l.tnr AND bfev.enr = l.enr
+LEFT JOIN
+ bwi_meta.x3_wa xw ON xw.icode = bfev.wa
+ order by l.losnr ;
+
+ select distinct l.losnr, count(*)
+ from bwi_admin.lospunkt l
+ group by l.losnr
+
+select distinct l.losnr,
+count(*) OVER (PARTITION BY l.losnr) AS anzahl_pro_losnr
+ from bwi_admin.lospunkt l
+ order by l.losnr
+
+select --distinct bftw.anat
+ COUNT(distinct bfev.tnr) filter (where bfev.wa between 1 and 5) as waldtrakte, -- Anzahl der Traktnummern mit bfev.wa zwischen 1 und 5
+ COUNT(distinct bfev.tnr) filter (where bfev.wa = 0) as nichtwaldtrakte -- Anzahl der Traktnummern mit bfev.wa = 0
+ ,count(bfev.enr) filter (where bfev.wa between 1 and 5) as waldecke
+from
+ bwi_2022.b3f_ecke_vorkl bfev
+ --join bwi_admin.lospunkt l on l.tnr = bfev.tnr
+join bwi_2022.b3f_tnr_vorkl bftv on bftv.tnr = bfev.tnr
+join bwi_2022.b3f_tnr_work bftw on bftw.tnr = bfev.tnr
+where
+ bftv.trstatus between 1 and 3 -- waldtrakte
+ and bftw.anat between 1901 and 1916
+--order by bftw.anat
+