Verzeihung, ich habe den falschen Datensatz hochgeladen. Tut mir leid.
Alles <- `qPCR.alles3` %>%
row_to_names(row_number = 1)
Alles$`Wichtig`= as.numeric(Rep1$`Wichtig 2`)
boxplot(`Wichtig` ~ Treatment,data=Alles,
col=c('gray86'), ylab="dif_ RpL13a_Attacin1",
xlab="Treatment, Timepoint ...