水平線圖與阿姆布利在R

我有像以下大數據，但這只是一個小樣本。水平線圖與阿姆布利在R

pos <- c(1, 3, 5, 8, 10, 12) 
start <- c(1,3, 6, 7, 10, 11) 
end <- c(5, 6, 9, 9, 13, 12)

Qunatative變量Pos將Y軸和X軸將anthor X變量（定量）。每個Pos值的水平條長度由開始點和結束點定義。例如，1的行將從1開始，在x軸的3結束。

以下是所需圖形輸出的粗略草圖。

enter image description here

來源

2012-02-24 jon

是最後一個例子有幫助嗎？ http://had.co.nz/ggplot2/geom_linerange.html – 2012-02-24 14:53:44

是的，確實有幫助 – jon 2012-02-24 15:15:22

使用包ggplot2與geom_segment繪製線條。

開始你的數據組合成一個data.frame，因爲這需要的數據結構ggplot：

dat <- data.frame(
    pos = c(1, 3, 5, 8, 10, 12), 
    start = c(1,3, 6, 7, 10, 11), 
    end = c(5, 6, 9, 9, 13, 12) 
)

創建情節：

library(ggplot2) 
ggplot(dat) + 
    geom_segment(aes(x=start, y=pos, xend=end, yend=pos), color="blue", size=3) + 
    scale_y_reverse()

enter image description here

來源

2012-02-24 14:52:17 Andrie

在基礎R .. 。

plot(pos, type = 'n', xlim = range(c(start, end)), ylim = c(13,0)) 
grid() 
segments(start, pos, end, pos)

爲了得到它更酷似你的身影......

r <- par('usr') 
plot(pos, type = 'n', xlim = range(c(start, end)), ylim = c(13.5,0.5), xlab = '', 
    xaxt = 'n', yaxt = 'n', panel.first = rect(r[1], r[3], r[2], r[4], col = 'goldenrod')) 
# abline(h = 1:13, col = 'white') 
# abline(v = 1:13, col = 'white') 
grid(lty = 1, col = 'white') 
axis(1, 1:13, 1:13, cex.axis = 0.8) 
axis(2, 1:13, 1:13, las = 1, cex.axis = 0.8) 
segments(start, pos + 0.5, end, pos + 0.5, lwd = 2)

來源

2012-02-24 15:02:20 John

水平線圖與阿姆布利在R

回答

相關問題