首先,加载recharts
:
library(recharts)
仪表盘gauge也叫dashboard。
关键是:
x
y
facet
可获得多个仪表盘t
,让仪表盘动起来echartr(data, x, y, <series>, <facet>, <t>, <type>)
参数 | 要求 |
---|---|
data |
数据框格式的源数据 |
x |
文本型自变量。如提供多个变量,只传入前两个。 |
y |
数值型应变量。如提供多个变量,只传入第一个。 |
series |
转为因子后计算。 |
facet |
转为因子后计算。 |
t |
时间轴变量,转为因子后计算。如提供多个变量,只传入第一个。 |
type |
‘gauge’ |
下面是一个虚构数据集。
data = data.frame(x=rep(c('KR/min', 'Kph'), 2), y=c(6.3, 54, 7.5, 82),
z=c(rep('t1', 2), rep('t2', 2)))
knitr::kable(data)
x | y | z |
---|---|---|
KR/min | 6.3 | t1 |
Kph | 54.0 | t1 |
KR/min | 7.5 | t2 |
Kph | 82.0 | t2 |
echartr(data, x, y, type='gauge')
echartr(data, x, y, facet=x, type='gauge')
echartr(data, x, y, facet=x, t=z, type='gauge')
接下来可以配置控件、添加标注点/标注线,以及美化成图。
参考相关函数,尽情探索吧。