2010-01-21 56 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