Discussion :

[mumu64]

Bonjour,

N'ayant pas trouvé mon bonheur dans le forum (mauvais choix des mots clefs ?) je me permets de solliciter votre aide.

J'ai un tableau de données qui fait 22 colonnes, dans une des colonnes (foCatEu5) je voudrais agréger les données et faire une somme par lignes des 3 dernières colonnes (voir fichier joint). Dans mon exemple, on agrège les lignes 1 et 2 puis 3 et 4.
Je voudrais garder les 22 colonnes. J'ai écrit ce bout de code qui bien sur ne fonctionne pas :

Code :

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

1
2
3
4
CL2 <- CL[,list(landWt=sum(landWt, na.rm=T), landMult=sum(landMult, na.rm=T), landValue=sum(landValue, na.rm=T)),
          by=list(landCtry=landCtry,vslFlgCtry=vslFlgCtry,year=year,quarter=quarter,month=month,
          area=area,rect=rect,subRect=subRect,taxon=taxon,landCat=landCat,commCatScl=commCatScl,
          commCat=commCat,foCatNat=foCatNat,foCatEu5=foCatEu5,foCatEu6=foCatEu6,harbour=harbour,vslLenCat=vslLenCat)]

Pouvez-vous me donner un coup de main sachant que je suis une débutante sous R ?
Je vous remercie.

Mumu

[Theta]

Utilise les balises code.
Par ailleurs, je n'arrive pas à comprendre ce que tu as essayé de faire dans ton code.

Pour agréger des données, la fonction aggregate semble tout indiquée.

Exemple :

Code :

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

1
2
df=data.frame(A=letters[2:12 %/% 2],B=runif(11,0,1),C=letters[14:24 %/% 2])#Création d'un jeu de données de test
aggregate(df[2:3],by=list(df$A),FUN=function(x){if(class(x)=="numeric") sum(x) else x[1]})

[mumu64]

Salut Theta,

Merci pour cette réponse mais j'avoue que je ne sais pas la modifier pour qu'elle colle à mes données.
J'avais tenté la fonction aggregate :

Code :

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

1
2
3
4
essai <- aggregate(list(landWt=CL$landWt,landMult=CL$landMult,landValue=CL$landValue),
                         by=list(landCtry=CL$landCtry,vslFlgCtry=CL$vslFlgCtry,year=CL$year,quarter=CL$quarter,month=CL$month,
                         area=CL$area,rect=CL$rect,subRect=CL$subRect,taxon=CL$taxon,landCat=CL$landCat,commCatScl=CL$commCatScl,
                         commCat=CL$commCat,foCatNat=CL$foCatNat,foCatEu5=CL$foCatEu5,foCatEu6=CL$foCatEu6,harbour=CL$harbour,vslLenCat=CL$vslLenCat), FUN=sum)

Mais mon objet "essai" est vide.
Je n'ai pas précisé que je veux garder mes 22 colonnes.

Merci

[Theta]

Comme ça je vois pas pourquoi ton code marche pas, mais une petite remarque :

Code :

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

list(landWt=CL$landWt,landMult=CL$landMult,landValue=CL$landValue)

C'est pas très propre comme manière de sélectionner des colonnes, d'autant que le résultat est une liste et non plus une dataframe (même si R est capable de faire la conversion).
Cette manière est plus claire, plus rapide et plus pratique quand on veut en plus sélectionner par ligne :

Code :

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

CL[,c("landWt","landMult","landValue")]

De plus en faisant comme ça tu peux utiliser des conditions R plutôt que d'écrire toutes les colones une par une.
Par exemple :

Code :

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

1
2
3
4
5
6
CL[,!names(CL) %in% c("landWt","landMult","landValue")]#Toutes les colonnes sauf celles de la liste
CL[, sapply(df,class) == "numeric"]#Toutes les colones numériques
CL[, 1:3]#les 3 premières colones
CL[, c(-2,-4)]#Toutes les colones sauf la 2ème et la 4ème
CL[1:10,]#Les 10 premières lignes
#Etc

[mumu64]

Merci Theta d'avoir essayé et merci pour les conseils, je vais garder ces lignes de codes dans un petit coin.....
Je vais continuer à bidouiller pour voir ce qui ne va pas. D'autant plus que cette même commande fonctionne sur un autre fichier qui a la même allure mais avec un nombre de colonne moindre. Mystère !
A +