代码之家 › 专栏 › 技术社区 › joerna

缺少值的总和表

cumsum r

joerna · 技术社区 · 8 年前

dt <- data.table(Name =c("A","A","A","A","B","B","B","B","B"), 
             Number = c(1,3,3,4, 4, 1,1,5,8))

library(matrixStats)
tbl <- round(prop.table(table(dt), 1) * 100, 3)
tbl[] <- rowCumsums(tbl)
names(dimnames(tbl)) <- NULL
tbl[] <-  paste0(sub("^([^.]+)(\\.[^0]).*", "\\1\\2", tbl), "%")
cumsumtable <-  as.data.frame.matrix(tbl)

在原始dt中,2、6和7缺失,因此无法反映表格。

我想要的cumsum表是这样的。2、6和7用之前的百分比填充。

1 回复 | 直到 8 年前

akrun 8 年前

factor levels 明确规定

dt[, Number := factor(Number, levels = min(Number):max(Number))]

然后运行OP的代码

cumsumtable
#   1   2   3    4    5    6    7    8
#A 25% 25% 75% 100% 100% 100% 100% 100%
#B 40% 40% 40%  60%  80%  80%  80% 100%

这也可以通过数据实现。表列转换为后的方法 因素

dcast(dt[, .N,.(Name, Number)][, perc := 100*N/sum(N), Name], 
     Name ~ Number, value.var = 'perc', fill = 0, drop = FALSE)[,
      (2:9) := lapply(Reduce(`+`, .SD, accumulate = TRUE),
              function(x) paste0(x, "%")), .SDcols = -1][]
#  Name   1   2   3    4    5    6    7    8
#1:    A 25% 25% 75% 100% 100% 100% 100% 100%
#2:    B 40% 40% 40%  60%  80%  80%  80% 100%

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

1 年前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

1 年前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

1 年前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

1 年前

Ben · 统计向量中的单词在字符串中出现的频率

1 年前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

1 年前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

1 年前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

1 年前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

1 年前

Mankka · 如何在Ggplot2中绘制均匀的径向图

1 年前