環(huán)圖
REmap包的github鏈接地址：https://github.com/taiyun/recharts
幾個(gè)樣例demo：http://xwj.565tech.com/jianshu/recharts/ring.html
http://xwj.565tech.com/jianshu/recharts/dashboard.html
http://xwj.565tech.com/jianshu/recharts/bubble.html
一.安裝方式：
if (!require(devtools)) library(devtools)
install_github("madlogos/recharts")
二.使用方法：
1.散點(diǎn)圖/氣泡圖
echartr(iris, x=SepalWidth, y=PetalWidth)
多個(gè)維度：series控制
echartr(iris, x=SepalWidth, y=PetalWidth, series=Species)
氣泡圖：type:標(biāo)簽控制
> echartr(iris, SepalWidth, PetalWidth,series = Species, weight=PetalLength, type='bubble')
sandian.png
ECharts.png
ECharts(1).png
2.管道操作
echartr(iris, SepalWidth, PetalWidth, weight=PetalLength) %>%
setDataRange(calculable=TRUE, splitNumber=0, labels=c('Big','Small'),
color=c('red', 'yellow', 'green'), valueRange=c(0, 2.5))
ECharts(2).png
3.折線圖
先改造下內(nèi)置數(shù)據(jù)集：
aq <- airquality
aq$Date <- as.Date(paste('1973', aq$Month, aq$Day, sep='-'))
aq$Day <- as.character(aq$Day)
aq$Month <- factor(aq$Month, labels=c("May", "Jun", "Jul", "Aug", "Sep"))
echartr(aq, Date, Temp, type='line') %>%
setTitle('NY Temperature May - Sep 1973') %>% setSymbols('none')
含有分類屬性：
echartr(aq, Day, Temp, Month, type='line') %>%
setTitle('NY Temperature May - Sep 1973, by Month') %>%
setSymbols('emptycircle')
帶有時(shí)間軸（帶有動態(tài)效果哦~~~）：
echartr(aq, Day, Temp, t=Month, type='line') %>%
setTitle('NY Temperature May - Sep 1973, by Month') %>%
setSymbols('emptycircle')
也可畫面積圖：type屬性控制
echartr(aq, Day, Temp, Month, type='area', subtype='stack') %>%
setTitle('NY Temperature May - Sep 1973, by Month') %>%
setSymbols('emptycircle')
NY Temperature May - Sep 1973.png
NY Temperature May - Sep 1973, by Month.png
NY Temperature May - Sep 1973, by Month (Month_ Jul).png
NY Temperature May - Sep 1973, by Month(1).png
4.餅圖
重構(gòu)內(nèi)置數(shù)據(jù)集
titanic <- data.table::melt(apply(Titanic, c(1,4), sum))
names(titanic) <- c('Class', 'Survived', 'Count')
knitr::kable(titanic)
畫餅圖，可以和漏斗圖切換
echartr(titanic, Class, Count, type='pie') %>%
setTitle('Titanic: N by Cabin Class')
多個(gè)餅圖：
echartr(titanic, Survived, Count, facet=Class, type='pie') %>%
setTitle('Titanic: Survival Outcome by Cabin Class')
環(huán)圖：
echartr(titanic, Survived, Count, facet=Class, type='ring') %>%
setTitle('Titanic: Survival Outcome by Cabin Class')
信息圖樣環(huán)圖：
ds <- data.frame(q=c('68% feel good', '29% feel bad', '3% have no feelings'),
a=c(68, 29, 3))
g <- echartr(ds, q, a, type='ring', subtype='info') %>%
setTheme('macarons', width=800, height=600) %>%
setTitle('How do you feel?','ring_info',
pos=c('center','center', 'horizontal'))
g
南丁格爾玫瑰圖：
echartr(titanic, Class, Count, facet=Survived, type='rose', subtype='radius') %>%
setTitle('Titanic: Survival Outcome by Cabin Class')
Titanic_ N by Cabin Class.png
Titanic_ N by Cabin Class(1).png
Titanic_ Survival Outcome by Cabin Class.png
Titanic_ Survival Outcome by Cabin Class(1).png
How do you feel_.png
Titanic_ Survival Outcome by Cabin Class(2).png
5.雷達(dá)圖：
重構(gòu)內(nèi)置數(shù)據(jù)集
cars = mtcars[c('Merc 450SE','Merc 450SL','Merc 450SLC'),
c('mpg','disp','hp','qsec','wt','drat')]
cars$model <- rownames(cars)
cars <- data.table::melt(cars, id.vars='model')
names(cars) <- c('model', 'indicator', 'Parameter')
knitr::kable(cars)
單個(gè)雷達(dá)圖
echartr(cars, indicator, Parameter, model, type='radar', sub='fill') %>%
setTitle('Merc 450SE vs 450SL vs 450SLC')
多個(gè)雷達(dá)圖：
echartr(cars, indicator, Parameter, facet=model, type='radar') %>%
setTitle('Merc 450SE vs 450SL vs 450SLC')
Merc 450SE vs 450SL vs 450SLC.png
Merc 450SE vs 450SL vs 450SLC(1).png
6.比較有趣的dashboard
構(gòu)造一個(gè)數(shù)據(jù)集：
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)
echartr(data, x, y, type='gauge')
多個(gè)dashboard：
echartr(data, x, y, facet=x, type='gauge')
帶時(shí)間軸：
echartr(data, x, y, facet=x, t=z, type='gauge')
ECharts(3).png
ECharts(4).png
ECharts(5).png
