改变情节的外观和感觉以类似于历史

Question

我使用这篇文章中的信息创建了一个具有对数刻度的直方图： 具有对数刻度的直方图

但是，plot 的输出看起来与 hist 的输出完全不同。有谁知道如何配置绘图的输出以类似于 hist 的输出？感谢您的帮助。

Answer 1

链接答案的简化、可重现版本是

x <- rlnorm(1000)
hx <- hist(x, plot=FALSE)
plot(hx$counts, type="h", log="y", lwd=10, lend="square")

为了让轴看起来更像“hist-like”，请将最后一行替换为

plot(hx$counts, type="h", log="y", lwd=10, lend="square", axes = FALSE)
Axis(side=1)
Axis(side=2)

使用此方法将条形图连接起来将是一场噩梦。我建议使用 lwd 值进行反复试验（在本例中，34 看起来很接近正确），或者学习使用 lattice 或 ggplot.

---

编辑：
您无法设置边框颜色，因为条形并不是真正的矩形 - 它们只是粗线。我们可以通过在顶部绘制稍细的线条来伪造边框效果。更新后的代码是

par(lend="square")
bordercol <- "blue"
fillcol <- "pink"
linewidth <- 24
plot(hx$counts, type="h", log="y", lwd=linewidth, col=bordercol, axes = FALSE)
lines(hx$counts, type="h", lwd=linewidth-2, col=fillcol)
Axis(side=1)
Axis(side=2)

Answer 2

使用ggplot2怎么样？

x <- rnorm(1000)
qplot(x) + scale_y_log10()

但我同意哈德利在另一篇文章中的评论，即具有对数刻度的直方图对我来说似乎很奇怪 =)。