Binning über mehrere Kategorien hinweg

Question

Ich versuche, für 6 unserer Backup-Server eine Textausgabe der Backup-Laufzeiten zu erstellen, die in 30-Minuten-Schritten eingeteilt sind. Ein Beispiel für die Eingabedaten (genannt newdata) lautet wie folgt:

      backup_server   client      duration  
1     bkp01           server_A    60       
2     bkp01           server_A    34       
3     bkp01           server_A    230     
4     bkp02           server_A    14      
5     bkp02           server_C    29   
6     bkp02           server_C    62

Jetzt habe ich die Möglichkeit, die alles zusammen mit:

br.br <-seq(0,max(newdata$duration),by=30)
cbind(table(cut(newdata$duration,br.br,right=FALSE)))

die diese Art von Ausgabe liefert:

                    [,1]
[0,30)              3523
[30,60)             1394
[60,90)              230
[90,120)              35
[120,150)             10
[150,180)              0
[180,210)              3

Ich würde mir etwas in dieser Art wünschen:

[,1]                bkp01      bkp02
[0,30)               523        422
[30,60)              394         30
[60,90)              130         10
[90,120)               5          3
[120,150)              1          2
[150,180)              0         10
[180,210)              2         20

Am nächsten kam ich mit der Aggregatfunktion, aber das tut nicht wirklich, was ich brauche.

> aggregate(newdata$Duration, by=list(newdata$TSM_server),FUN=mean)
  Group.1        x
1 bkp01       31.13307
2 bkp02       16.58491