我是美国职业棒球大联盟的工资，我正试图绘制一个频率分布，以可视化图形的偏度。我在绘制直方图的x轴标签时遇到了麻烦。顺便说一句，我从这里得到了我的MLB工资数据。
我是这样生成我的发行版的:
hist(data, breaks = 33, axes = F)
鉴于我的薪水从0到3500万美元不等，我制作了这样的标签-
x.axis <- pretty(seq(0,35000000, by = 10000000))/10000000
x.axis
>[1] 0.0 0.5 1.0 1.5 2.0 2.5 3.0
使用axis()函数只绘制前8个标签。
axis(1, at = y, labels = paste(y, "M", sep =""))
我意识到这是因为作为length(x.axis) = 8。
有没有办法把x轴上的刻度间隔开?
提前感谢!
明白了!
pts <- pretty(data/10000000)
a <- (seq(0,35000000, by = 5000000))
axis(1, at = a, labels = paste(pts, "M", sep =""))