Tracer deux facteurs sur le même graphique

Question

Dites que j'ai deux facteurs et je veux les représenter graphiquement sur la même intrigue, les deux facteurs ont les mêmes niveaux.

s1 <- c(rep("male",20), rep("female", 30)) 
s2 <- c(rep("male",10), rep("female", 40)) 
s1 <- factor(s1, levels=c("male", "female")) 
s2 <- factor(s2, levels=c("male", "female")) 

J'aurais pensé que l'utilisation de la fonction de table aurait produit le résultat correct mais pour la représentation graphique ressorte.

table(s1, s2) 
     s2 
s1  male female 
male  10  10 
female 0  30 

Alors, vraiment deux questions, quelle est la fonction de table fait pour obtenir ce résultat et ce que d'autres fonctions puis-je utiliser pour créer un graphique avec 2 séries en utilisant les fonctions avec les mêmes niveaux?

Aussi, si c'est un facteur, j'utilise barplot2 dans le paquet gplots pour le représenter graphiquement.

Answer 1

Vous pouvez obtenir des résultats un peu plus détaillées avec le paquet de treillis:

s1 <- factor(c(rep("male",20), rep("female", 30))) 
s2 <- factor(c(rep("male",10), rep("female", 40))) 
D <- data.frame(s1, s2) 

library(lattice) 
histogram(~s1+s2, D, col = c("pink", "lightblue")) 

Ou si vous voulez hommes/femmes côte à côte pour faciliter la comparaison:

t1 <- table(s1) 
t2 <- table(s2) 
barchart(cbind(t1, t2), stack = F, horizontal = F) 

Answer 2

De ?table:

« table » utilise les facteurs recoupements pour construire une table contingence des comptes à chaque combinaison de niveaux de facteur.

Quand vous faites table(s1,s2) ce qui se passe est que la fonction considère s1 et s2 comme paires de résultats. Effectivement, il vous dit que si vous deviez prendre cbind(s1,s2) alors il y aurait 10 rangées de mâle-mâle, 10 de mâle-femelle et ainsi de suite.

Pour comprendre cela, considérons un exemple très trivial:

a <- c("M","M","F","F") 
b <- c("F","F","M","M") 
table(a,b) 

    b 
a F M 
    F 0 2 
    M 2 0 

Ce que vous devez faire est:

t1 <- table(s1) 
t2 <- table(s2) 
barplot(cbind(t1,t2), beside=TRUE, col=c("lightblue", "salmon")) 

Answer 3

Deux options produisant des formes légèrement différentes des parcelles sont

plot(s1, s2) 

et

plot(table(s1,s2)) 

Le premier est un spineplot un cas particulier de la parcelle de mosaïque, que la méthode plot pour table produit (le deuxième exemple). Voir ?spineplot et ?mosaicplot pour plus de détails et vous pouvez utiliser ces fonctions directement, plutôt que le générique plot() si vous le souhaitez.

Jetez aussi un coup d'œil à la fonction mosaic() dans le paquet vcd sur CRAN par Meyer et al (Link to vcd on CRAN)

table() produit le contingency table pour les deux facteurs.

Answer 4

Hmm .. Je ne pense pas créer un table de contingence est ce que Cameron cherchait. Si je l'ai bien compris, je pense qu'il voulait créer une trame de données avec deux variables, où s1 et s2 semblent être des vecteurs de la même taille. (longueur (s1) == longueur (s2)).

Dans ce cas, il aurait simplement besoin de créer une « table » (je pense qu'il voulait dire data.frame) en utilisant:

df = data.frame(s1=s1, s2=s2); 

Et puis tracer la série 2 dans la même parcelle.

En ce qui concerne la deuxième question de tracer ces choses, j'utiliserais matplot. Par exemple:

matplot(1:10, data.frame(a=rnorm(10), b=rnorm(10)), type="l", lty=1, lwd=1, col=c("blue","red")) 

Étant donné qu'il a ses données de 2 vecteurs organisés en un seul data.frame nommé "df", il peut simplement quelque chose comme:

matplot(df, type="l", lty=1, lwd=1, col=c("blue","red")) 

Hope this helps.