# DATA, order is the position on the front page, time = hours since post submitted
order	time
1	17
3	17
5	19
6	18
7	19
8	19
9	21
10	19
11	21
12	21
13	21
14	21
15	21
16	22
17	19
18	20
19	21
20	21
21	21
22	22
23	19
24	22
25	20
26	21
27	17
28	21
29	21
30	23
31	22
32	21
33	23
34	21
35	23
36	23
37	22
38	>24
39	22
40	>24
41	21
42	23
43	23
45	21
46	23
47	18
48	21
49	21
50	23
51	19
52	>24
53	>24
54	>24
55	23
56	23
57	20
58	22
60	>24
61	20
62	21
63	>24
64	>24
65	20
66	20
67	22
68	22
69	>24
70	22
71	23
72	20
73	23
74	>24
75	20
76	21
77	21
78	22
79	>24
80	>24
81	19
82	17
83	22
84	>24
85	20
86	>24
87	>24
88	21
89	20
90	23
91	19
92	>24
93	21
94	22
95	>24
97	23
98	21
99	23
100	22

# R code
library(ggplot2)
library(dplyr)

d <- read.delim("reddit.txt", header = TRUE, sep = "\t")
d$time <- ordered(d$time, levels = c("17", "18", "19", "20", "21","22", "23",">24"))


p <- ggplot(d, aes(x = time)) +
  geom_bar() +
  theme_minimal() +
  labs(x = "Time in Hours Since Post Submitted")
p