Skip to content
Snippets Groups Projects
scribble.qmd 2.05 KiB
Newer Older
---
title: "scribble"
---


{{< include librarys-datimport.qmd >}}



# ToDos

- [ ] Trakte, Ecken z.B. Infoflyer


Wiebke Torsten's avatar
Wiebke Torsten committed
```{r}
ver_jungbestfl %>% 
  filter(Land == "Brandenburg" 
         & Jungbestockung == "Jungbestockung ohne Schirm (Hauptbestockung)"
         ) %>% 
  select(Veränderungsanteil) %>%
  pull()
```
Wiebke Torsten's avatar
Wiebke Torsten committed
```{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)
```