이 작업을 수행 하는 한 가지 방법은 다음과 같은 것입니다.
총 그룹 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