Discussion :

[Fade78]

Bonjour !

J'ai une data.frame de deux colonnes. La première (que nous appellerons A) contient des noms de compteurs (N). Chaque nom de compteur peut être présent plusieurs fois dans la data.frame. La deuxième colonne (B) contient des valeurs numériques (V).

J'aimerai rajouter une colonne (C) qui contient, pour chaque ligne, la valeur V divisée par le maximum des V rencontré dans B pour l'étiquette N. Afin que chacune des valeurs V soit mise à l'echelle (0 à 1) selon le maximum de sa catégorie (N).

Autrement dit :

A B
x 1
y 2
z 3
x 2
z 6

donne :

A B C
x 1 0.5
y 2 1
z 3 0.5
x 2 1
z 6 1

/EDIT/ Je sais faire cette manœuvre en la programmant en perl, je sais que je pourrai le faire en la programmant en R, je souhaite plutôt une solution qui tire profit des particularités de R. Merci !

[Fade78]

J'ai trouvé ça pour l'instant (rajout d'une colonne max (D) et d'une colonne ratio (C dans l'exemple précédent) avec suppression des NaN si max vaut 0) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
AddMaxAndScaleColumn <-
function (df) {
   maxbycounter <- sapply(unique(df[,"A"]),
   function(compteur) {
      max(df[df[,"A"]==compteur,"B"])
   }) ;
   df[,"D"] <- maxbycounter[df[,"A"]] ;
   df[,"C"] <- df[,"B"]/df[,"D"] ;
   df[(df[,"D"]==0),"C"] <- 0 ;
   df
}

[BPStA]

Les données sont placées dans un tableau "data", auquel on ajoute successivement deux colonnes "max" et "C" en écrivant :

Code :

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

1
2
3
4
#colonne des max
data<-cbind(data,max=(tapply(data$B,factor(data$A), max))[data$A])
#colonne des ratios
data<-cbind(data,C=data$B/data$max)

Le tableau data est alors :
A B max C
x 1 2 0.5
y 2 2 1.0
z 3 6 0.5
x 2 2 1.0
z 6 6 1.0

Le résultat est data$C