一次返回累计百分比表

Question

我想知道如何在 table 或 data.frame 中获得累积百分比

df <- data.frame(Alphabet = c("A", "A","A","A","A", "B", "B", "B"), 
         Value = c(1,1, 2,2,3,2,2,4))

理想的输出应该是这样的

   1    2      3      4
A 40%  80%    100%   100%
B  0%  66.6%  66.6%  100%

Answer 1

我们可以在prop.table 上使用rowCumsums

library(matrixStats)
tbl <- prop.table(table(df), 1) * 100
tbl[] <- rowCumsums(tbl)
names(dimnames(tbl)) <- NULL
tbl[] <-  paste0(sub("^([^.]+)(\\.[^0]).*", "\\1\\2", tbl), "%")
tbl
#    1   2     3     4   
#A 40% 80%   100%  100%
#B 0%  66.6% 66.6% 100%