Làm thế nào để tạo ra loại lô không chuẩn với ggplot?

Question

Tôi muốn thực hiện một âm mưu với ggplot trông rất gần này (found here):

Tuy nhiên, thay vì tần số Tôi muốn vẽ dãy cho điều kiện. Dưới đây là một phác thảo của cốt truyện tôi muốn sản xuất với 5 điều kiện:

Dữ liệu của tôi được sắp xếp như một sự khởi đầu và kết thúc phối hợp cho phạm vi. Ví dụ, đối với điều kiện 5, bắt đầu phạm vi là 30 và kết thúc phạm vi là 40 (Tôi đã gắn nhãn điều này về biểu đồ để rõ ràng). Dữ liệu của tôi là từ một tệp có dạng:

id  start end 
1  20  35 
2  60  75  
3  10  30 
4  80  90 
5  30  40 

Tôi có khoảng 100 giá trị bắt đầu và kết thúc mà tôi muốn vẽ theo cách này trên một biểu đồ. Cốt truyện cuối cùng chỉ nên có hai màu.

UPDATE:

Để tham khảo trong tương lai, giải pháp của Justin sản xuất này:

Answer 1

Something như thế này:

library(ggplot2) 
library(reshape) 
dat <- data.frame(lets=letters[1:5], low=1:5, mid=3:7, high=10:14) 
dat.melt <- melt(dat, id.vars='lets') 


ggplot(dat.melt, aes(x=lets, y=value, fill=variable)) + 
    geom_bar(stat='identity') + 
    scale_fill_manual(breaks=c('low','mid','high'), values=c('blue','red','blue')) + 
    coord_flip() 

Nhưng khá phụ thuộc vào dữ liệu của bạn ...