一連の開始終了日のデータをプロットする

Question

一連の開始終了日のバンドでデータをプロットするにはどうすればよいですか？私は、y軸上の「レート」とx軸上の日付をプロットしたい

START<-as.POSIXct(c("2017-07-13 01:40:00 MDT", "2017-07-21 06:00:00 MDT", "2017-07-21 14:00:00 MDT", "2017-07-24 11:00:00 MDT", 
     "2017-07-24 12:00:00 MDT", "2017-07-25 05:00:00 MDT", "2017-07-25 17:00:00 MDT", "2017-07-26 12:00:00 MDT", 
     "2017-07-30 12:00:00 MDT", "2017-07-31 04:00:00 MDT", "2017-07-31 15:00:00 MDT", "2017-08-03 18:30:00 MDT", 
     "2017-08-03 23:30:00 MDT", "2017-08-09 05:00:00 MDT", "2017-08-09 20:00:00 MDT", "2017-08-14 09:00:00 MDT", 
     "2017-08-16 05:00:00 MDT", "2017-08-16 07:00:00 MDT", "2017-08-16 19:00:00 MDT", "2017-08-17 18:00:00 MDT", 
     "2017-08-20 05:00:00 MDT", "2017-08-23 06:00:00 MDT", "2017-08-23 14:00:00 MDT", "2017-08-24 17:00:00 MDT", 
     "2017-08-28 00:00:00 MDT")) 

END<-as.POSIXct(c("2017-07-21 06:00:00 MDT", "2017-07-21 14:00:00 MDT", "2017-07-24 11:00:00 MDT", "2017-07-24 12:00:00 MDT", 
    "2017-07-25 05:00:00 MDT", "2017-07-25 17:00:00 MDT", "2017-07-26 12:00:00 MDT", "2017-07-30 12:00:00 MDT", 
    "2017-07-31 04:00:00 MDT", "2017-07-31 15:00:00 MDT", "2017-08-03 18:30:00 MDT", "2017-08-03 23:30:00 MDT", 
    "2017-08-09 05:00:00 MDT", "2017-08-09 20:00:00 MDT", "2017-08-14 09:00:00 MDT", "2017-08-16 05:00:00 MDT", 
    "2017-08-16 07:00:00 MDT", "2017-08-16 19:00:00 MDT", "2017-08-17 18:00:00 MDT", "2017-08-20 05:00:00 MDT", 
    "2017-08-23 06:00:00 MDT", "2017-08-23 14:00:00 MDT", "2017-08-24 17:00:00 MDT", "2017-08-28 00:00:00 MDT", 
    "2017-09-28 13:00:00 MDT")) 

RATE<-c(1485, 0, 1485, 880, 1485, 0, 1485, 1100, 1485, 0, 1485, 1483, 1485, 0, 1485, 1419, 880, 0, 1419, 1485, 1419, 0, 1100, 419, 1100) 

DF<-data.frame(START, END, RATE) 

：

私はのように見えるのデータフレームを持っています。 ggplotや別のプロットパッケージでこれを行うのに良い方法がありますか？

注：終了日は、次のレートが開始される直前です。また、私はこれを折れ線グラフにしたいと思います。

Answer 1

私はこれはそれを行うだろうと思います...

library(ggplot2) 
ggplot(DF)+ 
    geom_rect(aes(xmin=as.POSIXct(as.character(START)), 
        xmax=as.POSIXct(as.character(END)), 
        ymin=0, 
        ymax=RATE)) 

また、ラインプロットのために、

ggplot(DF)+ 
    geom_segment(aes(x=as.POSIXct(as.character(START)), 
        xend=as.POSIXct(as.character(END)), 
        y=RATE, 
        yend=RATE), size=2)