数据重组与R中的条件

Question

我正在尝试重塑数据但有一些条件。数据如下。像这样会有更多的ID重复

  S.No     Count  ID      Type  
    1         135   350      A   
    2         114   350      A  
    3         84    350      A  
    4         80    350      A  
    5         19    350      A  
    6          8    350      A  
    7         21    350      A  
    8         88    350      B  
    9        111    350      B  
    10        46    350      B  
    11       108    350      B 
    12       19     352      A
    13       117    352      A
    14       167    352      B

我需要像下面这样转换它。

S.No    ID  Type    Count_type B    Count_typeA_less than     Count_typeA 
                                       max(count_type B)      high than  
                                                          max(count_type B)  
1       350  B      88,111,46,108       84,80,19,8,21             135,114  
2       352  B      167                 19,117                        NA

Count_typeA_Less比max（count_type B） =类型A的计数小于count_type B的最大数量 Count_typeA_high高于max（count_type B） =类型A的计数高于count_type B的最大数量

我尝试使用dplyr并重塑。我无法做到这一点。请指导我了解上述情况。