在R中隔开x轴标签

Question

I'm with MLB salaries and I'm trying to plot a frequency distribution to visualize the skewness of the figure. I'm having trouble making the x-axis labels of my histogram. Btw, I got my MLB salary data from here .

Here is how I generated my distribution:

hist(data, breaks = 33, axes = F)

Given my salaries range from 0 to $35 Million, I generated my labels like this -

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

Using the axis() function only plots the first 8 labels.

axis(1, at = y, labels = paste(y, "M", sep =""))

I realize this is because as length(x.axis) = 8 .

Is there any way of spacing out the ticks on my x-axis?

Thanks in advance!

Answer 1

Figured it out!

pts <- pretty(data/10000000)
a <- (seq(0,35000000, by = 5000000))

axis(1, at = a, labels = paste(pts, "M", sep =""))