library(ggplot2)
myData <- data.frame(c(49, 56, 57, 60, 63, 68, 70, 70, 71, 74, 74, 75, 75, 75, 76, 76, 78, 79, 79,
80, 81, 81, 81, 82, 84, 84, 86, 88, 88, 88, 88, 88, 88, 89, 89, 89, 90, 90,
90, 91, 92, 92, 92, 93, 95, 95, 95, 96, 98, 98, 98, 98, 99, 99, 100, 100, 100,
100, 100, 100, 100, 100, 101, 101, 101, 101, 101, 101, 101, 101, 102, 102, 102, 102, 102, 103,
104, 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, 106, 106, 106, 106, 106, 107, 107,
107, 108, 108, 108, 108, 108, 108, 108, 108, 109, 109, 110, 110, 110, 110, 111, 111, 111, 111,
111, 112, 112, 114, 114, 115, 115, 115, 116, 118, 118, 118, 118, 119, 119, 119, 119, 119, 120,
120, 120))
ggplot(data = myData, aes(x = myData)) +
coord_polar() +
geom_vline(xintercept = c(0, 30, 60, 90)) +
scale_x_continuous(breaks = c(120, 30, 60, 90), limits = c(0,120), labels = c("0", "30", "60", "90")) +
geom_histogram(binwidth = 6, colour = "black", size = 0.1)