Discussion :

[laurilo]

Bonjour à tous,

J'ai un nouveau problème qui fait suite à ce post : http://www.developpez.net/forums/d15...aliser-subset/

Voilà ce que ça donne

Code :

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

1
2
3
library(data.table)
df=data.table(Donnees_2)
df2=df[,list(RangVelage=rank(DateVelage)),by=NumMere]

J'arrive donc avec 2 variables: NumMere et RangVelage. Pour que RangVelage soit considéré en facteur, j'ai fait la fonction suivante

Code :

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

df2$RangVelage=as.factor(df2$RangVelage)

, Mais là n'est pas le problème...

Je cherche à sortir une fonction tapply() sur Excel, donc je fais cette fonction :

Code :

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

1
2
EffetMere=tapply(df2$NumMere,df2$RangVelage)
write.table(x=EffetMere,file="EffetMere.xls")

Pareil, aucun problème, ça marche. Sauf qu'une fois sur le fichier Excel, les NumMere se retrouvent en variable allant de 1 à 200 000 au lieu d'avoir leurs noms (format FR0000000000).

Il faut surement que je rajoute quelque chose, mais quoi? row.names? names?

Merci de m'aiguiller

[Theta]

Ton as.factor et ton tapply m'ont l'air de ne servir à rien. Si je ne me trompe pas EffetMere doit être identique à df2$RangVelage.

Pour ton problème de nom tu pourrais changer les noms de ta variable EffetMere (avec names) mais le plus simple est encore de faire le write.table directement sur ta data.frame :

Code :

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

write.table(df2[,c("NumMere","RangVelage")], file="EffetMere.xls")

[laurilo]

as.factor je suis obligé de le faire pour RangVelage parce que c'est compris entre [1:5] et ça ne risque pas d'être considéré en variable chiffrée ?

En fait tapply, je l'ai mis pour faire un tableau qui montre NumMere et RangVelage, mais en effet il ne sert à rien après réflexion...
Quand je fais

Code :

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

view(df2)

J'ai un tableau qui me met bien le NumMere et le Rangvelage à côté comme je le souhaite.
Mais quand je l'extrais en Excel, les NumMere sont remplacés par une numérotation au lieu d'avoir leurs noms.

Mais là je viens de m'inspirer de la fonction que tu m'as donnée

Code :

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

write.table(df2, file="EffetMere.xls")

Et ça a fonctionné !!
Je ne comprends pas où était mon erreur avant, mais le principal c'est que j'ai la solution maintenant