1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
library(ggplot2) # sinon install.packages("ggplot2")
# jeux de données factis
Data <- data.frame(A=rpois(50,5) ,B=runif(50,5,20),C=runif(50,10,30))
# creez une colonne individus de type factor
Data$indiv <- factor(rownames(Data))
# je retransforme le jeux de donnée à l'aide de melt
Data.melt <- melt(Data)
# je reordonne les indivs pour ggplot
Data.melt$indiv <- ordered(Data.melt$indiv,levels="50":"1")
# on peut passer au graphique
p <- ggplot(data=Data.melt,aes(x=factor(indiv),fill=variable))
p+ geom_bar(aes(weight=value))+coord_flip()
# ou tu peu customiser comme ça
p+geom_bar(aes(weight=value))+xlab("individus")+ylab("")+scale_fill_manual("variable",value=c("dodgerblue4","deepskyblue2","lightblue"))+theme_bw()+coord_flip() |
Partager