Letzte Änderung am 25. June 2025 um 19:00:41

“Aktuell wird gerade nichts extern gebaut…” — Jochen Kruppa-Scheetz, meiner bescheidener Meinung nach.

R Code [zeigen / verbergen]
 # 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")