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