Cách thực hiện việc này là sử dụng rxSummary() tính tiền nhóm và sau đó tính toán phần trăm nhóm từ những tính phân loại.
Đây là một ví dụ đơn giản cho biết cách thực hiện việc này:
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