1 min read

dashboard构建,来自yihui的包

if (!require(devtools)) library(devtools)
# install_github("madlogos/recharts")
library(recharts)

if (!require(devtools)) library(devtools) 表示 如果没有library这个包,那么就library它, 很废的一个命令。

dashboard构建。

# 构造一个数据集:
data = data.frame(x=rep(c('KR/min', 'Kph'), 2), y=c(3.3, 56, 9.5, 88), 
                  z=c(rep('t1', 2), rep('t2', 2)))
knitr::kable(data)

这里 x自变量, y因变量。 type='gauge')表示要画dashboard。 facet很好理解,类似于ggplot的概念。 t时间轴。

echartr(data, x, y, type='gauge')
# 多个dashboard:
echartr(data, x, y, facet=x, type='gauge')
# 带时间轴:
echartr(data, x, y, facet=x, t=z, type='gauge')