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