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