```{r echo = FALSE}
#| message: false
#| warning: false
pacman::p_load(tidyverse, readxl, knitr, kableExtra, Hmisc, performance, parameters,
latex2exp, see, patchwork, mfp, multcomp, emmeans, janitor, effectsize,
broom, ggmosaic, tinytable, ggrepel,
conflicted)
conflicts_prefer(dplyr::select)
conflicts_prefer(dplyr::filter)
cb_pal <- c("#000000", "#E69F00", "#56B4E9",
"#009E73", "#F0E442", "#F5C710",
"#0072B2", "#D55E00", "#CC79A7")
cbbPalette <- cb_pal
```
# Baustelle {#sec-construction}
*Letzte Änderung am `r format(fs::file_info("construction-zone.qmd")$modification_time, '%d. %B %Y um %H:%M:%S')`*
{fig-align="center" width="100%"}
::: {layout="[15,85]" layout-valign="top"}
{fig-align="center" width="100%"}
> *"Aktuell wird gerade nichts extern gebaut..." --- Jochen Kruppa-Scheetz, meiner bescheidener Meinung nach.*
:::
```{r}
# library
library(ggplot2)
tiger_tbl <- read_excel("data/survey-serengeti-tiger-king.xlsx", na = "NA",
sheet = "results-survey-lime")
# create a dataset
specie <- c(rep("sorgho" , 3) , rep("poacee" , 3) , rep("banana" , 3) , rep("triticum" , 3) )
condition <- rep(c("normal" , "stress" , "Nitrogen") , 4)
value <- abs(rnorm(12 , 0 , 15))
data <- data.frame(specie,condition,value)
tiger_tbl |>
tabyl(f1Verbandsarbeit, geschlecht) |>
pivot_longer(Männlich:Weiblich) |>
ggplot(aes(x = name, y=value, fill=f1Verbandsarbeit)) +
geom_bar(position="fill", stat="identity")
```