如何在R语言基础绘图的x轴刻度上添加美元符号$

R基础绘图x轴刻度添加美元符号的解决方案 #

你之前的方法失效的核心原因是：format_dollars()会将数值型的花萼长度转换为字符型数据，而density()函数仅支持对数值型数据计算密度，自然无法得到预期结果。

通用实现方法不需要提前修改原始数据，只需要在绘图时先隐藏默认x轴，再自定义带$前缀的刻度即可，完整示例代码如下：

# 加载鸢尾花数据集
data(iris)
# 计算花萼长度的密度对象
sepal_len_density <- density(iris$Sepal.Length)
# 绘制密度图，指定xaxt="n"关闭系统默认生成的x轴
plot(sepal_len_density, xlab = "花萼长度", xaxt = "n")
# 自定义x轴：side=1代表操作底部x轴，at用axTicks(1)获取默认的刻度位置，labels拼接$前缀
axis(side = 1, at = axTicks(1), labels = paste0("$", axTicks(1)))

如果你需要自定义刻度的位置和精度，直接修改at参数的取值即可，比如要固定刻度为4、5、6、7、8，可以改成：

axis(side = 1, at = c(4,5,6,7,8), labels = paste0("$", c(4,5,6,7,8)))

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