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')