library(knitr)
kable(npissuedata %>% filter(ISSN=="0451-5560") %>% group_by(pages) %>% tally() %>% arrange(desc(n)))
pages | n |
---|---|
4 | 376 |
8 | 102 |
12 | 95 |
16 | 49 |
24 | 49 |
28 | 47 |
5 | 40 |
14 | 36 |
18 | 35 |
20 | 35 |
26 | 34 |
22 | 20 |
2 | 13 |
10 | 13 |
32 | 12 |
6 | 7 |
36 | 7 |
9 | 5 |
29 | 4 |
30 | 4 |
25 | 3 |
31 | 3 |
34 | 2 |
106 | 2 |
1 | 1 |
15 | 1 |
23 | 1 |
35 | 1 |
38 | 1 |
39 | 1 |
40 | 1 |
50 | 1 |
52 | 1 |
54 | 1 |
56 | 1 |
59 | 1 |
86 | 1 |
184 | 1 |