r - 在数据后面绘制网格，而不是在 R 前面

Question

我喜欢在绘图时生成我自己的网格线，这样我就可以控制刻度线等，我正在用“hist”绘图程序来解决这个问题。

    hist(WindSpeed, breaks=c(0:31), freq=TRUE, col="blue", xaxt="n", yaxt="n", xlab="Wind Speed (m/s)",main="Foo", cex.main=1.5, cex.axis=1, cex.lab=1, tck=1, font.lab=2)
    axis(1, tck=1, ,col.ticks="light gray")
    axis(1, tck=-0.015, col.ticks="black")
    axis(2, tck=1, col.ticks="light gray", lwd.ticks="1")
    axis(2, tck=-0.015)
    minor.tick(nx=5, ny=2, tick.ratio=0.5)
    box()

阴谋:


然后我就能够使用“线”或“点”命令为其他类型的图重新绘制数据，但直方图并不那么容易。

任何帮助都会很棒。

我根据约翰的回应在下面添加了我的代码和图像......

我根据约翰的回应在下面添加了我的代码和图像......

hist(WindSpeed, breaks=30, freq=TRUE, col="blue", xaxt="n", yaxt="n", xlab="Wind Speed (m/s)",main="Foo", cex.main=1.5, cex.axis=1, cex.lab=1, font.lab=2)
axis(1, tck=1, col.ticks="light gray")
axis(1, tck=-0.015, col.ticks="black")
axis(2, tck=1, col.ticks="light gray", lwd.ticks="1")
axis(2, tck=-0.015)
minor.tick(nx=5, ny=2, tick.ratio=0.5)
box()
hist(WindSpeed, add=TRUE, breaks=30, freq=TRUE, col="blue", xaxt="n", yaxt="n", xlab="Wind Speed (m/s)", main="Foo", cex.main=1.5, cex.axis=1, cex.lab=1, font.lab=2)

Answer 1

这相对容易。

生成直方图但不绘制它。

h <- hist(y, plot = FALSE)

现在生成您的基本图...我添加了一些功能，使其看起来更像标准直方图

plot(h$mids, h$counts, ylim = c(0, max(h$counts)), xlim = range(h$mids)*1.1, 
    type = 'n', bty = 'n', xlab = 'y', ylab = 'Counts', main = 'Histogram of y')

添加你的网格

grid()

添加直方图

hist(y, add = TRUE)

或者，正如我通过这个过程发现的……你可以更容易地做到这一点

hist(y)
grid()
hist(y, add = TRUE, col = 'white')

最后一种方法只是在网格上重新绘制直方图。