今天发现了一个有用的R语言可视化包:timevis,主要用来做时间线,今天搞定的第一个有用的图。

源代码如下:

---

title: "气化炉日均负荷及停炉台账"

output: 

  flexdashboard::flex_dashboard:

    orientation: columns

    vertical_layout: fill

---


```{r}

library('flexdashboard')

library('RODBC')

library('plotly')

library('timevis')

conn <- odbcConnectAccess2007(access.file="F:/气化分厂工作相关/运行台账/气化运行台账.accdb")

qh<-sqlQuery(channel=conn,query='select * from 停车台账')

ms<-sqlQuery(channel=conn,query='select * from 煤锁气压缩停车台账')

close(conn)


```


气化炉停炉时间轴

=================



------------------


### 气化炉停炉时间轴


```{r}

qh1<-na.omit(qh)

c<-qh1[,7]

qh2<-data.frame(content=qh1[,5],

                start=qh1[,3],

                group=c

            

                )

timevis(qh2,groups=data.frame(id=1:16,content=c(211:218,221:228))) 


```