Discussion :

[davidhac]

Bonjour à tous,

Voici mon jeu de données :

Code :

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

1
2
3
4
5
6
7
 
df <- data.frame(parcelle = c(11, 12, 13, 14, 15, 16),
                 sp  = c(20,12,14,10,41,92),
                 dou = c(15,14,11,15,16,10),
                 het = c(11,0,12,11,16,20),
                 chx =c(11,0,21,0,16,0),
                 freq = c(51,25,84,46,53,30))

J'aimerai diviser chaque colonne, de "sp" à "chx" par la colonne "freq" puis multiplier le tout par des constantes (sp = sp/freq*1000/4*3,14). Effectuer le calcul n'est pas le problème. Là où je bloque c'est de réussir à effectuer le calcul pour tous les jeux de données de ce type, c'est-à dire quel que soit le nombre de colonne ou l'intitulé des colonnes entre "parcelle" et "freq".

Voici ce que ça donnerait de façon "manuelle" :

Code :

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

1
2
3
4
5
 
df$`sp` <- ((df$`sp`/df$`freq`)*10000)/(4*3.14)
df$`dou` <- ((df$`dou`/df$`freq)`*10000)/(4*3.14)
df$`het` <- ((df$`het`/df$`freq`)*10000)/(4*3.14)
df$`chx` <- ((df$`chx`/df$`freq`)*10000)/(4*3.14)

Si vous avez des idées pour "automatiser" le calcul, je suis preneur.
Merci.

Bonne joiurnée,
David

[olivier.decourt]

Bonjour David.
Une solution avec le package {dplyr} :

Code :

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

1
2
3
4
5
df <- df %>% 
                     mutate_at(  # calculer sur toutes ces colonnes
                                    vars( - parcelle, - freq) ,  # toutes sauf ...
                                    ~ (. / freq *10000) / (4*pi)   # l'opération à faire systématiquement (le ~ pour indiquer le début de la formule, le . pour désigner la colonne courante)
                      )

Sur le même modèle il y a des fonctions mutate_if et mutate_all pour systématiser les calculs selon le type des variables ou sur toutes les colonnes.

[davidhac]

Difficile d'être plus clair! Merci beaucoup pour votre réponse.

David