環(huán)圖

一.安裝方式：

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

aq$Date

aq$Day

aq$Month

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í)間軸(帶有動(dòng)態(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

names(titanic)

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

a=c(68, 29, 3))

g %

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

cars

names(cars)

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

基本上常用的數(shù)據(jù)圖表展示recharts都可以很方便和很酷炫的展示，作者只是挑選了幾個(gè)比較常用的圖表類型做了拋磚迎玉，具體的細(xì)節(jié)各位可以去查看具體的文檔：https://madlogos.github.io/recharts/index_cn.html#-en

總結(jié)

以上是生活随笔為你收集整理的r语言echarts画箱线图_R语言之数据可视化---交互式图表recharts的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。