R语言echarts4r包图表类型(下)

本文包含echarts4r包中的饼图、圆圈图、玫瑰图、朝阳图、树形图、日历图、雷达图等

载入包

library(echarts4r)
library(tidyverse)
-- Attaching packages --------------------------------------- tidyverse 1.3.0 --
√ ggplot2 3.3.1     √ purrr   0.3.4
√ tibble  3.0.1     √ dplyr   1.0.0
√ tidyr   1.1.0     √ stringr 1.4.0
√ readr   1.3.1     √ forcats 0.5.0
-- Conflicts ------------------------------------------ tidyverse_conflicts() --
x dplyr::filter() masks stats::filter()
x dplyr::lag()    masks stats::lag()

饼图

mtcars %>% 
    head() %>% 
    rownames_to_column() %>% 
    e_charts(rowname) %>% 
    e_pie(carb) %>% 
    e_title("饼图")

e_pie函数绘制饼图

圆圈图

mtcars %>% 
    head() %>% 
    rownames_to_column() %>% 
    e_charts(rowname) %>% 
    e_pie(carb,radius = c('50%','70%')) %>% 
    e_title("圆圈图")

e_pie函数对参数radius赋值

玫瑰图

mtcars %>% 
    head() %>% 
    rownames_to_column() %>% 
    e_charts(rowname) %>% 
    e_pie(hp,roseType = "radius")

朝阳图

data <- tibble(
    科目 = c('文科','文科','理科','理科','理科'),
    课程 = c('历史','地理','生物','化学','物理'),
    分值 = c(20,20,30,35,40)
)
data
# A tibble: 5 x 3
  科目  课程   分值
    
1 文科  历史     20
2 文科  地理     20
3 理科  生物     30
4 理科  化学     35
5 理科  物理     40
data %>% 
    e_charts() %>% 
    e_sunburst(科目,课程,分值) %>% 
    e_title("朝阳图")

树形图

data %>% 
    e_charts() %>% 
    e_treemap(科目,课程,分值) %>% 
    e_title("树形图")

树图

tree <- tibble(
    parent = c('boss','boss','文官','文官','武将','武将'),
    child  = c('文官','武将','文官1号','文官2号','武将1号','武将2号')
)
tree
# A tibble: 6 x 2
  parent child  
      
1 boss   文官   
2 boss   武将   
3 文官   文官1号
4 文官   文官2号
5 武将   武将1号
6 武将   武将2号
tree %>% 
    e_charts() %>% 
    e_tree(parent,child) %>% 
    e_title("树图")

河流图

dates <- seq.Date(Sys.Date() - 30, Sys.Date(), by = "day")

river <- data.frame(
    dates = dates,
    apples = runif(length(dates)),
    bananas = runif(length(dates)),
    pears = runif(length(dates))
)
river %>% 
    e_charts(dates) %>% 
    e_river(apples) %>% 
    e_river(bananas) %>% 
    e_river(pears) %>% 
    e_tooltip(trigger = "axis") %>% 
    e_title("River charts", "(Streamgraphs)")

引用官网数据。e_tooltip函数内参数打开了数值显示。

日历图

dates <- seq.Date(as.Date("2017-01-01"), as.Date("2018-12-31"), by = "day")
values <- rnorm(length(dates), 20, 6)
year <- data.frame(date = dates, values = values)
year %>% 
  e_charts(date) %>% 
  e_calendar(range = "2018") %>% 
  e_heatmap(values, coord_system = "calendar") %>% 
  e_visual_map(max = 30) %>% 
  e_title("Calendar", "Heatmap")

引用官网数据。图片过长显示不完全

仪表盘

e_charts() %>% 
    e_gauge(75,'阅读进度') %>% 
    e_title('仪表盘')

适合结合shiny使用，平时作用不大

雷达图

df <- tibble(
    指标 = c('生命','攻击','防御','移速','法力'),
    孙尚香 = c(100,150,70,30,20),
    钟馗   = c(170,120,80,25,100)
)
df
# A tibble: 5 x 3
  指标  孙尚香  钟馗
     
1 生命     100   170
2 攻击     150   120
3 防御      70    80
4 移速      30    25
5 法力      20   100
df %>% 
    e_charts(指标) %>% 
    e_radar(孙尚香,max = 200,name = '孙尚香') %>% 
    e_radar(钟馗, max = 200,name = '钟馗' ) %>% 
    e_tooltip(trigger = 'item')

e_radar函数绘制雷达图。

词云

library(wordcloud2)
demoFreq %>% 
    e_charts() %>% 
    e_cloud(word,freq,shape = 'circle')

中文版本没有试过。demoFreq来自wordcloud2包。还可以结合e_color_range函数让颜色多变一些

水球图

liuquid = tibble(
    val = c(0.5,0.4,0.3)
)
liuquid %>% 
    e_charts() %>% 
    e_liquid(val)

适合结合shiny使用，平时作用不大

---