Dominance1<-count(Dominance, c('Dominant', 'Subordinate'))

>     Dominant Subordinate freq
1          5           9   14
2          5          10    9
3          5          11    4
4          5          15    7
5          5          18   14
6          5          22    6
7          5          24    9
8          5          26    5
9          5          40    8
10         5          43    5

>     Dominant Subordinate freq
1          5          9   14
2          9          5    0
3          5          11   4
4          11         5    7