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