Ένας τρόπος για να γίνει αυτό είναι να χρησιμοποιήσετε rxSummary() για τον υπολογισμό των ποσών της ομάδας και, στη συνέχεια, να υπολογίσετε τα ποσοστά ομάδα από αυτές τις μετρήσεις που έλαβε. Εδώ παρατίθεται ένα απλό παράδειγμα που παρουσιάζει πώς μπορείτε να το κάνετε αυτό:
df <- data.frame(g = c('1', '0', '1', '0'), a=c(1, 2, 3, 4)) sums.within.g <- rxSummary(a ~ g, data = df, summaryStats = "Sum") sums.within.g <- sums.within.g$categorical[[1]][,3]numRows <- length(unique(df$g)) totSum <- cumsum(sums.within.g) totSum <- totSum[length(totSum)] df.percentages <- sums.within.g / totSum names(df.percentages) <- levels(df$g)> df.percentages 0 1 0.6 0.4
