2010-01-21 52 views

回答

2

链接答案的简化,可重复的版本是

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

为了得到寻找更多的“历史般的”轴,与

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

替换最后一行获取酒吧加盟使用这种方法将会是一场噩梦。我建议使用试验和错误的值为lwd(在本例中,34在某处接近看右)或学习使用latticeggplot


编辑: 你不能设置边框颜色,因为酒吧是不是真的矩形–他们只是肥胖纹。我们可以通过在顶部绘制稍微更细的线来伪造边界效果。更新代码是

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) 
+0

我结束了使用lwd = 24。我还使用col-attribute更改了条的颜色。似乎也不可能为酒吧添加边框。或者在任何情况下,它都表示border-attribute不是有效的图形参数。 – Pieter 2010-01-22 11:17:03

1

如何使用ggplot2?

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

但我同意哈德利对另一篇文章的评论,有一个对数尺度的直方图似乎对我很奇怪=)。

+0

不幸的是,我无法在我工作的环境中安装ggp​​lot2 – Pieter 2010-01-22 08:15:56