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