marschnerjulian-glitch

df %>% filter(Conditions!="References") %>% 
  ggplot(aes(x = reorder(Treatment, Order), y = Lum, color = as.factor(Timepoint))) +
  geom_jitter(position = position_jitterdodge(jitter.width = 0.1, dodge.width = 0.8),
              size = 2.3, alpha = 0.6) +
  stat_summary(fun = mean, geom = "crossbar", 
               position = position_dodge(width = 0.8), size = 0.5) +
  stat_summary(fun.data = mean_sd, fun.args = list(mult = 1),
               geom = "errorbar", width = 0.15,
               position = position_dodge(width = 0.8)) +
  labs(x = NULL, y = "Luminescence [counts/s]", color = "Timepoint",

marschnerjulian-glitch

design1 <- read_xlsx("HIT.T15.ES.INS.Lumit.Vortest.1.xlsx", sheet = "Tabelle1", range="A1:I9") %>% 
  pivot_longer(-Row) %>% mutate(Pos=paste(Row, name, sep=""), Treatment=value) %>% 
  select(Pos, Treatment)

design2 <- read_xlsx("HIT.T15.ES.INS.Lumit.Vortest.1.xlsx", sheet = "Tabelle1", range="A23:I31") %>% 
  pivot_longer(-Row) %>% mutate(Pos=paste(Row, name, sep=""), Conditions=value) %>% 
  select(Pos, Conditions)

design3 <- read_xlsx("HIT.T15.ES.INS.Lumit.Vortest.1.xlsx", sheet = "Tabelle1", range="A34:I42") %>% 
  pivot_longer(-Row) %>% mutate(Pos=paste(Row, name, sep=""), Order=value) %>%