berechnen Proportionen gruppenweise von Datenrahmen

Question

Ich habe einen Datenrahmen von Worthäufigkeiten, wie zum Beispiel:

df <- data.frame(
    Predictor = c("for","of","as","for","for","as","of","of","as","for"), 
    ToPredict = c("sure","course","much","him","keeps","far","them","this","an","petes"), 
    Freq = c(53,32,21,17,13,5,3,2,2,1)) 

ich eine neue Spalte berechnet werden soll, dass der Anteil ist, dass jeder ToPredict der einzelnen Prädiktoren bildet.

So, in dem obigen Beispiel die Werte für diese neue Spalte würden:

df$Props = c(0.631,0.865,0.75,0.202,0.155,0.179,0.081,0.054,0.071,0.012) 

Im Moment habe ich einen Datenrahmen von Summen:

sums <- aggregate(df$Freq, by=list(Category=df$Predictor), FUN=sum) 

und ich habe versucht:

df$Props <- with(df, Freq/sums$x[which(sums$Category == Predictor)]) 

Offensichtlich funktioniert das nicht. Aber ich weiß nicht was. Jede Hilfe wird sehr geschätzt.

Answer 1

a=aggregate(df$Freq, by=list(df$Pred), FUN=sum) 
a1=a[,2] 
names(a1)=as.character(a[,1]) 
df$Props=df$Freq/a1[df$Pred] 

Answer 2

Per thelatemail:

with(df, ave(Freq, Predictor, FUN=prop.table))