如果你想要一个与这个例子很相似的东西,这里就是:
x <- runif(50, 0, 180)
# make an empty plot
plot.new()
plot.window(xlim = c(0,185), ylim = c(0,2), xaxs = "i")
# add grid lines
abline(h = 1, col = "gray", lwd = 2)
abline(v = c(0,90,180), col = "gray", lwd = 2)
# add points
points(x, rep(1, length(x)), pch = 19, cex = 1.5)
# add axes
axis(1, at = c(0,90,180), font = 2, cex.axis = 2, tck = 0)
box(bty = "L", lwd = 3)