如何在R中绘制x轴0-180、y固定为1的随机数散点图？

不需要先生成0-180的序列，直接用你生成的随机数集a就能实现需求。

具体代码示例 #

# 生成随机数
a <- runif(50, min=0, max=180)
# 绘制符合要求的散点图
plot(x = a, 
     y = rep(1, length(a)),  # 给每个随机数对应y值1
     xlim = c(0, 180),       # 设置x轴范围0-180
     ylim = c(0.8, 1.2),     # 稍微扩展y轴范围，让点更清晰
     pch = 16,               # 设置点的样式（实心圆点）
     xlab = "数值", 
     ylab = "",
     yaxt = "n"              # 隐藏y轴刻度，因为y固定为1不需要显示
)
# 可选：添加y轴标签说明
mtext("1", side = 2, line = 1)

关键说明 #

• 你之前用plot(a)得到的是索引对随机值的图，因为plot()函数默认当只传入一个向量时，会把向量的索引位置作为x轴，向量的元素值作为y轴，这和你的需求完全相反。
• 上面的代码直接指定x=a（用随机数作为x轴位置），y=rep(1, length(a))（给每个x对应固定y值1），再通过xlim锁定x轴范围，就能得到你要的效果。

内容的提问来源于stack exchange，提问作者MrSparkly