Graphique en aires empilées à 100%

Bonjour à tous,

Je souhaiterais savoir s'il existe une fonction permettant de réaliser des graphiques en aires empilées 100% ?

Voici un exemple:
http://www.ebsi.umontreal.ca/jetrouv...c/ex_air13.gif

Merci d'avance,

Bonjour,

À ma connaissance, il faut un tout petit peu coder le machin :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

mat <- matrix(rnorm(3 * 5, 2.5, 1), ncol=3, nrow=5) matcs <- t(apply(mat, 1, function(x) cumsum(x * 100 /sum(x)))) matcs <- cbind(0, matcs)   x <- 1997:2001 col <- rainbow(ncol(matcs))   plot(range(x), range(matcs), type="n") for (i in 2:ncol(matcs)) { polygon(c(x, rev(x)), c(matcs[ , i], rev(matcs[ , i-1])), col=col[i-1]) }

---

Bonjour,

Des évolutions sur le sujet ?

Utilise la fonction barplot :

Code:

---

1 2 3 4

A=1:10 B=12:3 barplot(rbind(x,y))

---

Hello,
J'en fais de temps à autre avec ggplot2 via geom_ribbon(aes(x,ymin,ymax)).

C'est simple et le résultat est élégant.
Si tu te contentes d'un degradé de couleurs, c'est encore plus facile (ymin=0 et tu superposes les couches d'une couleur pâle).


Si tu montres une structure type du genre de données que tu manipules, je peux t'écrire un exemple.

Finalement je me suis orienté vers un geom_bar :

Code:

---

1 2 3 4 5

a <- ggplot(data_melt_mean, aes(x=strate, y=Proportion, fill=Classe)) a <- a + geom_bar(stat = "identity", position = "stack") a +facet_grid(radiale~cote_large)+ scale_fill_brewer(palette = "Set1") + element_blank()+ coord_flip()

---

Pièce jointe 178555