如何在r中配置数据帧的列

Question

我有很多数据框，如下所示。我需要在权重值为零之前找到最后一个样本中的总计。这里例如在7的样本中我需要找到6的权重。

Sample Weight Total
1       2     0
2       3     0 
3       7     0
4       5     4
5       4     3
6       3     8
7       6     12
8       0     11
9       0     8
10      0     9

以下是我的尝试：

New.DF <- DF$Total [ Weight > 0, Sample=max]

Answer 1

我们需要提取列

 with(DF, max(Sample[Weight!=0]))
 #[1] 7

或者可能是

library(data.table)
setDT(DF)[Weight!=0, .SD[.N] ,.(grp = rleid(Weight==0))]
#      grp Sample Total
#1:     1      7    12

Answer 2

鉴于您的数据集为subset(dt, "weight"==6) ：

然后做

            $(document).ready(function(){
              function checkCollapse{{$i}}(){
                if($('#header{{$i}}').hasClass('collapsed')){

                  $('#collapse{{$i}}').collapse("hide");
                }
                setTimeout(checkCollapse{{$i}}, 100);
              }

                checkCollapse{{$i}}();
            });