R语言中axis()函数无法正确生成自定义坐标轴值的技术问询

嘿，这个问题我之前也碰到过，来给你捋捋原因和解决办法！

核心原因 #

你遇到的异常情况，本质是密度图的默认x轴范围和你在axis()里指定的at刻度值不匹配。
density()函数会自动根据你的数据分布计算最适合的x轴显示范围，如果demo$GDP[demo$regime == "free"]这组数据的最大值远小于5000，那你指定的1000、2000...5000这些刻度点就不在当前绘图的显示区间内，R只会渲染落在范围内的刻度（也就是你看到的仅显示"500"）。

解决办法 #

方法1：先确认密度图的实际x范围 #

先把密度计算结果存成对象，查看它的x轴区间，再调整刻度：

# 先计算密度并存储对象
dens_obj <- density(demo$GDP[demo$regime == "free"])
# 查看x轴的实际范围
range(dens_obj$x)

根据输出的范围，修改axis()里的at参数，只保留落在这个区间内的刻度值，就能正常显示所有标签了。

方法2：强制扩展x轴范围（如果需要显示到5000） #

如果你确实需要把x轴扩展到5000，就在plot()里手动指定xlim参数，强制设定x轴的显示区间：

dens_obj <- density(demo$GDP[demo$regime == "free"])
# 绘制时指定xlim为500到5000
plot(dens_obj, main= "Density Plot Free", xaxt="none", xlim = c(500, 5000))
# 再添加坐标轴
axis(1,at=c(500,1000,2000,3000,4000,5000),labels=c("500", "1000", "2000", "3000", "4000", "5000"))

这样所有指定的刻度点都落在显示范围内，标签就能全部正常显示了。

方法3：用pretty()自动生成适配的刻度 #

不想手动指定刻度的话，用pretty()函数可以根据数据范围自动生成美观且适配的刻度：

dens_obj <- density(demo$GDP[demo$regime == "free"])
plot(dens_obj, main= "Density Plot Free", xaxt="none")
# 自动生成合适的刻度
axis(1, at = pretty(dens_obj$x))

这个方法能避免手动指定刻度时的范围不匹配问题，非常省心。

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