Construire un tableau résumé

Version imprimable

12/08/2013, 11h08
charlottes

Construire un tableau résumé

Bonjour,

Je possède un tableau à 71 lignes et 2 colonnes.
La première colonne donne le nom de l'espèce de poisson et la seconde un caractère qualitatif

ex :
espece_1 bleue
espece_2 verte
espece_3 bleue
espece_4 jaune

Je souhaiterai avoir un tableau de résumé du genre :
bleue espece_1 espece3
verte espece_2
jaune espece_4

avec un which (which==bleue...) j'ai réussi à extraire les noms des espèces mais je n'arrive pas à les mettre dans un tableau.
J'ai essayé avec une liste mais il m'a répondu :
object of type 'builtin' is not subsettable

quelqu'un aurait une idée ?
merci d'avance

Bonjour :)

Voici une proposition de solution basée sur la fonction "tapply" (pour plus info faire ?tapply ):

Code:

1
2
3
4
5
6
dd <- data.frame(especePoisson = paste("espece_",1:72,sep=""),
             caractere=sample(c("bleue","verte","jaune","rouge"),72,replace=TRUE),
		     stringsAsFactors = FALSE
                 )

with(dd,tapply(especePoisson,caractere,function(x){list(x)}))

Qui donne ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
$bleue
 [1] "espece_4"  "espece_5"  "espece_8"  "espece_9"  "espece_13" "espece_16"
 [7] "espece_19" "espece_22" "espece_24" "espece_28" "espece_39" "espece_47"
[13] "espece_48" "espece_50" "espece_52" "espece_60" "espece_63" "espece_66"
[19] "espece_69" "espece_71"
 
$jaune
 [1] "espece_3"  "espece_11" "espece_12" "espece_18" "espece_25" "espece_27"
 [7] "espece_29" "espece_31" "espece_33" "espece_34" "espece_36" "espece_41"
[13] "espece_43" "espece_49" "espece_51" "espece_53" "espece_55" "espece_56"
[19] "espece_57" "espece_58" "espece_61" "espece_70"
 
$rouge
 [1] "espece_6"  "espece_10" "espece_17" "espece_20" "espece_21" "espece_23"
 [7] "espece_26" "espece_32" "espece_38" "espece_54" "espece_65" "espece_68"
[13] "espece_72"
 
$verte
 [1] "espece_1"  "espece_2"  "espece_7"  "espece_14" "espece_15" "espece_30"
 [7] "espece_35" "espece_37" "espece_40" "espece_42" "espece_44" "espece_45"
[13] "espece_46" "espece_59" "espece_62" "espece_64" "espece_67"

J'espère avoir pu vous aider!
Bonne continuation,

13/08/2013, 08h53
charlottes
super !!merci beaucoup,

je souahite juste ajouter que si comme moi vous cherchez à mettre ces élements dans un tableau :
Code:

1 2 liste=with(dd,tapply(especePoisson,caractere,function(x){list(x)}))
1. Chercher le max du nombre d'élements de cette liste :
max=max(length(liste$verte),length(liste$jaune),length(liste$bleue)

2.Creer un tableau de taille max :

Code:

tab=matrix(NA,max+1,3)

(3 pour jaune, bleue, verte)

3. Remplir le tableau
Code:

1 2 3 tab[2:(length(liste$verte)+1),3]=liste$verte tab[2:(length(liste$jaune)+1),3]=liste$jaune ...
Merci encore de votre aide !
Cha