https://i.stack.imgur.com/L7lWj.png
https://www.google.com/url?sa=i&url=htt ... AdAAAAABAE
Ich habe schon mit ggplot in R gearbeitet aber ich habe noch keinen Weg gefunden wie ich das so gestalten kann, das die x-Achse in die Düngergruppen eingeteilt ist, diese jeweils in Genotyp 1 und 2 nochmal und das in der Grafik die Daten Knolle, Wurzel, und Spross übereinander gestapelt sind. Ich wäre für Tips und Hilfe sehr dankbar.
meine Daten
Dünger sind AB und D,Genotyp 1&2 usw.
Code: Alles auswählen
Dünger Genotyp Wurzel Spross Knolle
A 1 1.0419 6.2732 0
A 2 0.9234 5.5367 0
A 1 0.9633 6.0068 0
A 2 1.131 6.0794 0
A 1 0.8455 6.6632 0
A 2 1.4752 6.4065 0
A 1 1.0595 6.6252 0
A 2 1.2888 6.16 0
A 2 1.4383 6.4098 0
A 1 1.0487 7.062 0
B 1 1.0849 5.8388 0
B 2 1.1492 5.4695 0.0888
B 2 1.1257 5.3268 0.0164
B 1 0.9625 5.895 0
B 1 0.907 5.8026 0
B 2 1.2344 5.5183 0
B 2 1.1993 5.6802 0
B 1 1.0959 6.0634 0
B 2 1.138 5.8736 0
B 1 1.1697 6.5233 0
C 1 0.7445 3.4511 0
C 2 0.8601 3.6229 1.0378
C 2 0.9989 4.081 0
C 1 0.9223 3.7943 0
C 1 1.0364 4.0456 0
C 2 1.0043 3.8019 1.0846
C 2 1.004 4.3979 0
C 1 0.974 4.0168 0.0541
C 1 0.5162 3.402 0
C 2 0.9235 4.47638 0
D 1 0.5864 1.5814 0
D 2 0.4136 1.7061 0.9137
D 2 0.6159 1.891 0
D 1 0.5417 1.6873 0
D 1 0.4528 1.9481 0
D 2 0.5557 2.0497 0
D 1 0.4713 2.1126 0
D 2 0.4165 1.8053 0.8184
D 2 0.5386 2.0406 0
D 1 0.4794 2.3826 0
E 1 0.1354 0.6071 0
E 2 0.1483 0.634 0.6274
E 1 -0.0043 1.0394 0
E 2 0.1919 0.6629 0.4145
E 1 0.3105 0.9149 0
E 2 0.2884 1.1253 0
E 2 0.2543 0.9037 0
E 1 0.1945 0.8535 0
E 1 0.1703 1.0093 0
E 2 0.2819 0.8612 0
Code: Alles auswählen
Trockenmasse.df<-read.table("clipboard",header=T, dec=".")
View(Trockenmasse.df)
summary(Trockenmasse.df)
Trockenmasse.df$Genotyp<-as.factor(Trockenmasse.df$Genotyp)
plot(Wurzel~Dünger+Genotyp,data=Trockenmasse.df)
Trockenmasse.lm<-lm(Wurzel~Dünger+Genotyp,data=Trockenmasse.df)
summary(Trockenmasse.lm)
aovout<-aov(Wurzel~Dünger+Genotyp, data= Trockenmasse.df)
summary(aovout)
hist(residuals(aovout))
plot(residuals(aovout)~fitted(aovout))
anova(Trockenmasse.lm)
Trockenmasse.av <- aov(Trockenmasse.lm)
summary(Trockenmasse.av)
tukey.test <- TukeyHSD(Trockenmasse.av)
tukey.test[/i]
Code: Alles auswählen
ggplot(data=Trockenmasse.df,aes(x=Dünger, y=Wurzel, fill=Genotyp))+
geom_bar(stat="identity",position=position_dodge())