Newer
Older
---
title: "scribble"
---
{{< include librarys-datimport.qmd >}}
# ToDos
- [ ] Trakte, Ecken z.B. Infoflyer
```{r}
ver_jungbestfl %>%
filter(Land == "Brandenburg"
& Jungbestockung == "Jungbestockung ohne Schirm (Hauptbestockung)"
) %>%
select(Veränderungsanteil) %>%
pull()
```
```{r schirmanteil}
format(round(jungbestflant %>% filter(Land == 'Brandenburg' & Jungbestockung == "Jungbestockung unter Schirm (Verjüngung)" & Kategorie == 'Wald') %>% select(Fläche_jungfl) %>% pull() / jungbestflant %>% filter(Land == 'Brandenburg' & Jungbestockung == "Jungbestockung mit oder ohne Schirm" & Kategorie == 'Wald') %>% select(Fläche_jungfl) %>% pull() * 100,1), big.mark = ".", decimal.mark = ",", scientific = FALSE)
```
```{r jungbestflant3}
format(jungbestflant %>% filter(Land == 'Brandenburg' & Jungbestockung == "Jungbestockung unter Schirm (Verjüngung)" & Kategorie == "Wald") %>% select(Fläche_jungfl) %>% pull() %>% round(1), big.mark = ".", decimal.mark = ",", scientific = FALSE)
```
```{r jungbestflant2}
format(round(jungbestflant %>% filter(Land == 'Brandenburg' & Jungbestockung == "Jungbestockung unter Schirm (Verjüngung)" & Kategorie == "Wald") %>% select(Fläche_jungfl) %>% pull() / jungbestflant %>% filter(Land == 'Brandenburg' & Jungbestockung == "Jungbestockung mit oder ohne Schirm" & Kategorie == "Wald") %>% select(Fläche_jungfl) %>% pull() * 100,1), big.mark = ".", decimal.mark = ",", scientific = FALSE)
```
```{r jungbestflant1}
jungbestflant %>%
filter(Land == 'Brandenburg' & Jungbestockung == "Jungbestockung unter Schirm (Verjüngung)" & Kategorie == "Wald") %>% select(Fläche_jungfl) %>%
pull() %>%
round(1)
#format(big.mark = ".", decimal.mark = ",", nsmall=0, scientific = FALSE)
```
```{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)
```