วิธีหนึ่งในการทำเช่นนี้จะเป็นดังนี้คุณสามารถคำนวณผลรวมกลุ่มหาผลรวมโดยใช้ 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
