Discussion :

[habasque]

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,

[pitipoisson]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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])
}

[habasque]

Bonjour,

Des évolutions sur le sujet ?

[Theta]

Utilise la fonction barplot :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Sengar]

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.

[habasque]

Finalement je me suis orienté vers un geom_bar :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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()