fonction pour ouvrir un csv et faire un calcul automatique

Version imprimable

Bonjour à tous

Je débute avec R, et j'aimerai créer une fonction avec trois arguments, un pour le répertoire, un pour la colonne dans le fichier correspondant, et un qui précise le fichier, qui me fera ensuite le calcule que je veux...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 pollutantmean<-function (directory,pollutant,id){ setwd(directory) fichier<- read.csv(id) extraction<- fichier[[pollutant]] x<-mean(extraction,na.rm=TRUE) x }
En fait dans mon répertoire correspondant j'ai des centaines de csv différents avec le même format de colonnes par contre. J'aimerai extraire les données d'une colonne choisis et y faire la moyenne par exemple, mais ça ne fonctionne pas... j'ai bidouillé plein de truc différent mais ça n'avance pas beaucoup... en dehors de la fonction, étape par étape ça fonctionne, mais avec les variables dans la fonction, ça ne veut pas...

Error in getwd(directory) : unused argument (directory)

Il me sort ça, alors que je l'utilise bien mon argument...

Les fichiers csv sont appelé par un chiffre de 001 à plus de 300... J'aimerai aussi faire un calcul en choisissant les données de plusieurs fichiers différents, par exemple taper 1:10 pour faire la moyenne commune des 10 premiers fichiers pour la colonne que j'ai choisis... Pour plus de lumière, chaque fichier correspond à une ville en fait.

pollutantmean("specdata","sulfate",001:010)

Merci pour les quelques lumières que vous pourrez m'apporter....

Fonction pour ouvrir un csv et faire un calcul automatique

Bonjour,

Le problème se situe dans l'appel de la fonction :
Code:

1 2 3 4 5 6 7 8 9 10 > pollutantmean<-function(directory,pollutant,id){ + setwd(directory) + fichier<- read.csv(id) + extraction<- fichier[[pollutant]] + x<-mean(extraction,na.rm=TRUE) + x + } > > pollutantmean("D:/temp","V1","10.csv") [1] 27.66667
Votre fonction permet de traiter un fichier à la fois.

Vous pouvez regarder ce message qui calcule la moyenne des colonnes de plusieurs fichiers.

Cordialement,

OK oui mais surtout, je ne testais aucune de mes modifications, j'oubliais de sourcer ma fonction chaque fois... erreur de débutant...

je met ma solution là si ça peut aider quelqu'un ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
ma_fcontion<-function (repertoire,nom_colonne,id=1:332){
 
 
    fichier<- list.files(repertoire,full.names = TRUE)
      lecture<-data.frame()
      nb<-c(id)
      for (i in nb) {
        lecture<- rbind(lecture,read.csv(fichier[i]))  
    }
    extraction<- lecture[,nom_colonne]
 
    x<-mean(extraction,na.rm=TRUE)
    x
 
 
}