在R中计数表

Question

我有下表：

    Type            B1  B2  B3  B4  B5
1   Simple_repeat   0   0   0   0   0
2   Simple_repeat   0   1   0   0   1
3   Simple_repeat   10  1   9   1   35
4   Simple_repeat   3   5   2   7   10
5   Simple_repeat   8   1   1   9   13
6   Satellite       0   0   0   0    0

我想制作一张uniqe Types表。所以，我想要的输出：

    Type            B1  B2  B3  B4  B5
1   Simple_repeat   21  8   12  17  59
2   Satellite        0  0    0   0   0

我尝试使用table但没有成功。我该怎么办？

Answer 1

你可以尝试

library(dplyr)
 df %>%
     group_by(Type) %>% 
    summarise_each(funs(sum))

或者

aggregate(.~Type, df, sum)

或者

library(data.table) 
setDT(df)[, lapply(.SD, sum), Type]