根据条件计算数据框中的值

Question

我一直在四处搜索，我无法弄清楚如何在我的数据框中（取决于某些范围）sumarise数据。我知道在应用daaply/taaply或table的组合时可以完成，但我无法得到我期待的确切结果。

基本上，我想要把这个：

part_no val1 val2 val3 
2 1 2 3 45.3 
2 1 3 4 -12.3 
3 1 3 4 99.3 
3 1 5 2 -3.2 
3 1 4 3 -55.3 

进入这个：

part_no val3_between0_50 val3_bw50_100 val3_bw-50_0 val3_bw-100_-50 
2 1 0 0 1 0 
3 0 1 0 1 1 

这是虚拟数据，我得到了很多更多的行，但这个想法是一样的。我只想计算符合特定条件的参与者的数值。

如果任何人都可以一步一步解释它，我会非常感激。我看到很多不同的小帖子，但没有一个是完全这样的，我的尝试只让我在那里一半。喜欢使用table等

Answer 1

更好的解决方案，它下面的一个（将不需要下面的但如果你想重命名代码移动到这个矩阵的结果，你可以使用额外的行）：

xtabs(~part_no +cut(val4, breaks=c(-100, -50, 0, 50, 100)), dat=dat) 
#------------- 
     cut(val4, breaks = c(-100, -50, 0, 50, 100)) 
part_no (-100,-50] (-50,0] (0,50] (50,100] 
     2   0  1  1  0 
     3   1  1  0  1 

---

首先尝试：.... n稍有不同的问题，很容易适应您的情况。我碰到的困难是我的解决方案需要part_no以1开始。您可以稍后分配行标签。或者使'part_no'成为一个因素并使用它的数字模式值。

dat <- read.table(text="part_no val1 val2 val3 val4 
1 1 2 3 -32 
2 1 2 3 45.3 
2 1 3 4 -12.3 
3 1 3 4 99.3 
3 1 5 2 -3.2 
3 1 4 3 -55.3 
", head=T) 

levs= 4; recs <- matrix(c(unique(dat$part_no), 
          rep(0, levs*length(unique(dat$part_no)))), 
         nrow=length(unique(dat$part_no))) 
recs[ cbind(dat$part_no, 
       1+ findInterval(dat$val4, c(-100, -50, 0, 50, 100)))] <- 1 
recs 
#------------------------------------ 
    [,1] [,2] [,3] [,4] [,5] 
[1,] 1 0 1 0 0 
[2,] 2 0 1 1 0 
[3,] 3 1 1 0 1 
#------------------------------------ 
colnames(recs) <- c(names(dat)[1] , 
        paste("val_btwn", 
          c(-100, -50, 0, 50, 100)[1:4], 
          c(-100, -50, 0, 50, 100)[2:5], 
          sep="_")) 
recs 
#------------------------------------ 
    part_no val_btwn_-100_-50 val_btwn_-50_0 val_btwn_0_50 val_btwn_50_100 
[1,]  1     0    1    0    0 
[2,]  2     0    1    1    0 
[3,]  3     1    1    0    1 

而现在，我想我还可以使用cut和xtabs下一次。事实上，它工作得很好，我将把它发布在最前面。