1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| #DPPH
#Sélectionner les données selon le test d'activité'
IC50 <- Tablo[,4][Tablo[,1]=="DPPH"]
#Sélectionner dans les données de tel test les données concernant un stress (lumière) et les préparer pour regroupement
Graphe1 <- c(IC50[Tablo[, 2] == "lumière néon"], IC50[Tablo[, 2] == "lumière HPS"])
Graphe1 <- Graphe1[!is.na(Graphe1)]
Graphe1 <- matrix(Graphe1,nc=2, byrow=T) ####ici je les regroupe en 2 groupes car nc=2, mais je voudrais réaliser 3 groupes de tailles différents
colnames(Graphe1) = stress1
Graphe1
#faire apparaitre le graphe du premier stress (lumière)
par(xpd=TRUE, mar=c(3,4,3,10))
barplot(Graphe1, beside=T,ylab=expression("IC50 g/L"),col=c("#99FF33","#66CC00","#339900","#006600"), bty="n")
legend(12,0.3, heures1, fill=c("#99FF33","#66FF00","#66CC00","#339900","#006600"), bty="n") |
Partager