Discussion :

[mumu64]

Bonjour à tous,

J'ai fouillé le forum sans succès pour mon souci..... J'espère que quelqu'un pourra m'aider !

J'ai un tableau de donnée (th_SOL) duquel je voudrais sortir le nombre de vslID (immatriculation) par port (harbour) et trimestre (trim), j'ai écrit :

Code :

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

essai <- with(th_SOL, tapply(vslId, list(trim, harbour), length, na.rm=TRUE))

malheureusement cela ne fonctionne pas (Erreur dans FUN(X[[1L]], ...) : 2 arguments passés à 'length' qui en exige 1), alors que si (pour tester) je remplace length par sum, cela me fait bien une somme des immatriculations (qui ne veut rien dire) mais cela fonctionne !

Je pense que le length n'est pas approprié mais vu mon faible niveau en R, je ne sais pas trop par quoi le remplacer.....

Merci pour votre aide.
A +

Mumu

[Sengar]

Hello,

Code :

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

essai <- with(th_SOL, tapply(vslId, list(trim, harbour) , length <s>, na.rm=TRUE </s>))

[pitipoisson]

Bonjour,

Si tu souhaites compter le nombre d'éléments qui ne sont pas des NA, alors tu peux utiliser :

Code :

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

1
2
3
4
5
essai <- with(th_SOL, tapply(vslId, list(trim, harbour), 
                             function(x)
                             {
                                  sum( ! is.na(x))
                             })

ou bien

Code :

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

1
2
3
4
5
essai <- with(th_SOL, tapply(vslId, list(trim, harbour), 
                             function(x)
                             {
                                  sum(na.omit(x))
                             })

[mumu64]

Salut Sengar et pitipoisson,

Je vous remercie pour ces réponses et vos 2 solutions sont parfaites !!
Pitipoisson, j'ai pris ta première solution.

Je savais que je trouverais mon bonheur !
Merci et bonne continuation.

Mumu