如果你想要一个类似的例子，这里是：

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)

字符串

的数据

首先准备一个空图：

plot(c(0,180),c(1,1),type="n",yaxt="n",xlab="",ylab="")

字符串
(The type="n"参数确保不绘制任何内容。我们使用yaxt="n"来抑制垂直轴。）
然后将这些点以常数$y$值1相加：

points(a,rep(1,length(a)),pch=19)

型
x1c 0d1x的数据
当然，纵横比可以改进（最容易的方法是在打开图形设备时指定高度和宽度，例如使用png()，在绘制完成后需要使用dev.off()关闭）。我们可以改变图周围的空白;看看?par。

根据您希望它与给定示例的精确程度，代码可以非常简单。

dev.new(width=5, height=3)
stripchart(a, pch=16, xaxp=c(0, 180, 2), xlim=c(0, 180), xaxs="i")
grid(nx=4, ny=2, col="#00000044", lty=1)

字符串
给

的数据
使用stripchart()作为基础可能是明智的，如果你想比较多个样本。例如：

set.seed(1)
l <- list(a=a, b=runif(10, min=60, max=240))
dev.new(width=5, height=3)
stripchart(l, pch=16, xaxp=c(0, 240, 4), xlim=c(0, 240), ylim=c(0.5, 2.5), xaxs="i")
abline(v=seq.int(0, 240, length.out=5), col="#00000044")
abline(h=1:2, col="#00000044")

型