Evaluation

stats_ss2021 <- tribble(
  ~date, ~vg, ~g, ~n, ~b, ~vb, ~total,
  "07.04.2021",45,71,7,0,0,128,
  "12.04.2021",24,63,10,0,0,119,
  "14.04.2021",34,55,20,0,0,118,
  "19.04.2021",15,54,12,2,0,97,
  "26.04.2021",17,42,8,2,1,99,
  "28.04.2021",55,38,13,1,0,115,
  "05.05.2021",23,37,13,1,0,110
)
evcnames<- c("Datum","sehr zufrieden", "zufrieden", 
           "weder zufrieden noch unzufrieden", 
           "unzufrieden", "sehr unzufrieden", "anwesend")
kable(stats_ss2021, booktabbs=T, col.names = evcnames)