R語言之?dāng)?shù)據(jù)可視化---交互式圖表recharts

環(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

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

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末窟社,一起剝皮案震驚了整個(gè)濱河市,隨后出現(xiàn)的幾起案子,更是在濱河造成了極大的恐慌,老刑警劉巖恬涧,帶你破解...
    沈念sama閱讀 211,042評論 6 490
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件,死亡現(xiàn)場離奇詭異碴巾,居然都是意外死亡溯捆,警方通過查閱死者的電腦和手機(jī),發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 89,996評論 2 384
  • 文/潘曉璐 我一進(jìn)店門厦瓢,熙熙樓的掌柜王于貴愁眉苦臉地迎上來提揍,“玉大人,你說我怎么就攤上這事煮仇√夹猓” “怎么了?”我有些...
    開封第一講書人閱讀 156,674評論 0 345
  • 文/不壞的土叔 我叫張陵欺抗,是天一觀的道長售碳。 經(jīng)常有香客問我,道長绞呈,這世上最難降的妖魔是什么贸人? 我笑而不...
    開封第一講書人閱讀 56,340評論 1 283
  • 正文 為了忘掉前任,我火速辦了婚禮佃声,結(jié)果婚禮上艺智,老公的妹妹穿的比我還像新娘。我一直安慰自己圾亏,他們只是感情好十拣,可當(dāng)我...
    茶點(diǎn)故事閱讀 65,404評論 5 384
  • 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著志鹃,像睡著了一般夭问。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上曹铃,一...
    開封第一講書人閱讀 49,749評論 1 289
  • 那天缰趋,我揣著相機(jī)與錄音,去河邊找鬼陕见。 笑死秘血,一個(gè)胖子當(dāng)著我的面吹牛,可吹牛的內(nèi)容都是我干的评甜。 我是一名探鬼主播灰粮,決...
    沈念sama閱讀 38,902評論 3 405
  • 文/蒼蘭香墨 我猛地睜開眼,長吁一口氣:“原來是場噩夢啊……” “哼忍坷!你這毒婦竟也來了粘舟?” 一聲冷哼從身側(cè)響起红柱,我...
    開封第一講書人閱讀 37,662評論 0 266
  • 序言:老撾萬榮一對情侶失蹤,失蹤者是張志新(化名)和其女友劉穎蓖乘,沒想到半個(gè)月后,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體韧骗,經(jīng)...
    沈念sama閱讀 44,110評論 1 303
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡嘉抒,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 36,451評論 2 325
  • 正文 我和宋清朗相戀三年,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了袍暴。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片些侍。...
    茶點(diǎn)故事閱讀 38,577評論 1 340
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡,死狀恐怖政模,靈堂內(nèi)的尸體忽然破棺而出岗宣,到底是詐尸還是另有隱情,我是刑警寧澤淋样,帶...
    沈念sama閱讀 34,258評論 4 328
  • 正文 年R本政府宣布耗式,位于F島的核電站,受9級特大地震影響趁猴,放射性物質(zhì)發(fā)生泄漏刊咳。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 39,848評論 3 312
  • 文/蒙蒙 一儡司、第九天 我趴在偏房一處隱蔽的房頂上張望娱挨。 院中可真熱鬧,春花似錦捕犬、人聲如沸跷坝。這莊子的主人今日做“春日...
    開封第一講書人閱讀 30,726評論 0 21
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽柴钻。三九已至,卻和暖如春垢粮,著一層夾襖步出監(jiān)牢的瞬間顿颅,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 31,952評論 1 264
  • 我被黑心中介騙來泰國打工足丢, 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留粱腻,地道東北人。 一個(gè)月前我還...
    沈念sama閱讀 46,271評論 2 360
  • 正文 我出身青樓斩跌,卻偏偏與公主長得像绍些,于是被迫代替她去往敵國和親。 傳聞我的和親對象是個(gè)殘疾皇子耀鸦,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 43,452評論 2 348

推薦閱讀更多精彩內(nèi)容

  • **2014真題Directions:Read the following text. Choose the be...
    又是夜半驚坐起閱讀 9,429評論 0 23
  • 鵬澍 | 2014.10.09 偌大的北京城柬批,卻是一個(gè)人喝酒啸澡,一個(gè)人坐地鐵,一個(gè)人吃飯氮帐,一個(gè)人走著熟悉的街道嗅虏,留下...
    鵬澍閱讀 553評論 0 50
  • 李斯功也昭昭,過也煌煌上沐。前半身雄才大展皮服,后半身似欲做慫。最后終于陷于萬劫不復(fù)之境地参咙。不僅后期被趙高玩弄于鼓掌龄广,而且...
    蕞亻閱讀 380評論 0 0