设置数据子集，找到MAX，MIN，Mean并将其绘制

Question

所以我的数据如下：

id expressions mode 
1      22       0
2      24       0
3      23       0
4      5        1
5      56       1
6      42       1
7      32       0
8      21       0
9      11       1
10     72       1

因此，根据上一个问题，我将得到一个新表：

id     max     mean    min    mode 
1       24      23      22      0
2       56      51      5       1
3       32      26      21      0
4       72      41      11      1

因此，基本上，我已经展示了具有可变窗口的滚动应用功能，该窗口在发生切换时会考虑一个窗口，该窗口在输出中。

Answer 1

我们可以使用data.table根据'mode'的运行长度ID进行分组操作，并获取'expressions'的max/mean/min/mode

library(data.table)
setDT(df1)[, .(Max = max(expressions), Mean = round(mean(expressions)),
    Min = min(expressions)), .(id = rleid(mode), mode)]
#    id mode Max Mean Min
#1:  1    0  24   23  22
#2:  2    1  56   34   5
#3:  3    0  32   26  21
#4:  4    1  72   42  11

---

或与tidyverse

library(dplyr)
df1 %>%
   group_by(id = cumsum(c(TRUE, diff(mode) != 0)), mode) %>% 
   summarise_at(vars(expressions), funs(max, mean= round(mean(.)), min))
#      id  mode   max  mean   min
#   <int> <int> <dbl> <dbl> <dbl>
#1     1     0    24    23    22
#2     2     1    56    34     5
#3     3     0    32    26    21
#4     4     1    72    42    11