数据可视化:R与Echarts

发表于   |   分类于

简介

R中可用于数据可视化图形创建的包很多，比如ggplot2,plotly都是大家耳熟能详的包。
但在工作中我发现有时用Echarts创建的图表反而更容易为人接受，所以就使用htmlwidgets创建了一个Recharts包，便于平时使用Echarts。
这边文章讲的并不是如何使用htmlwidgets创建包，而是如何使用Recharts包创建图形。

Recharts

安装

1
2
3
require(devtools)
require(jsonlite)
devtools::install_github("xizhiming/Recharts")

使用

Eplot:画图

首先需要使用Eplot函数创建一个图形，Eplot函数目前支持折线图(line)、柱状图(bar)、饼图(pie)、漏斗图(funnel)、地图(map)等五种类型的图形。
下面我们使用用Eplot创建一个折现图作为例子：

1
2
3
4
5
6
7
8
library(Recharts)
library(jsonlite)
data_line_bar <- data.frame('最高'=c(35,45,40,35,55),
                            '中间'=c(25,35,30,25,45),
                            '最低'=c(15,25,20,15,35))
row.names(data_line_bar) <- c('3-1','3-2','3-3','3-4','3-5')
# series_rectangular_itemStyle参数为TRUE表示折现图中显示数据
Eplot(type="line",data=data_line_bar,series_rectangular_itemStyle=TRUE)

renderEplot:输出图形

如果我们是在shiny中使用Eplot，那么画好图后，我们需要再server.R中调用renderEplot将图形输出至ui端。

1
2
3
output$data_line_bar_1 <- renderEplot({
      Eplot(type="line",data=data_line_bar,series_rectangular_itemStyle=TRUE)
    })

EplotOutput:展示图形

server.R中使用renderEplot将图形输出至ui端之后，我们需要在ui.R中使用EplotOutput进行图形的展示。

1
EplotOutput("data_line_bar_1")

完整代码:shiny中使用Recharts

server.R

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
library(Recharts)
library(jsonlite)
shinyServer(
  function(input,output,session){
    data_line_bar <- data.frame('最高'=c(35,45,40,35,55),
                                '中间'=c(25,35,30,25,45),
                                '最低'=c(15,25,20,15,35))
    row.names(data_line_bar) <- c('3-1','3-2','3-3','3-4','3-5')
    
    data_line_bar_2 <- data.frame('最高'=c(35,45,40,35,55))
    row.names(data_line_bar_2) <- c('3-1','3-2','3-3','3-4','3-5')
    #饼图数据
    data_pie <- data.frame('直接访问'=100,
                           'SEO'=200,
                           'SEM'=180,
                           'REF'=234
    )
    #漏斗图数据
    data_funnel <- data.frame('点击'=100,
                              '下单'=50,
                              '支付'=20,
                              '收货'=19)
    #地图数据
    data_map_china <- data.frame("上海"=1200,"北京"=500)
    data_map_BJ <- data.frame("黄浦区"=120,"浦东新区"=300)
    
    # 折线图
    output$data_line_bar_1 <- renderEplot({
      Eplot(type="line",data=data_line_bar,series_rectangular_itemStyle=TRUE)
    })
    
    # 柱状图
    output$data_line_bar_2 <- renderEplot({
      Eplot(type="bar",data=data_line_bar_2)
    })
    
    # 饼图
    output$data_pie <- renderEplot({
      Eplot(type="pie",data=data_pie)
    })
    
    # 漏斗图
    output$data_funnel <- renderEplot({
      Eplot(type="funnel",data=data_funnel)
    })
    
    # 地图：中国地图
    output$data_map_china <- renderEplot({
      Eplot(type="map",data=data_map_china,
            mapType="china",visualMap_max=5000
      )
    })
    
    # 地图：上海地图
    output$data_map_BJ <- renderEplot({
      Eplot(type="map",data=data_map_BJ,
            mapType="上海",visualMap_max=150
      )
    })
  })

ui.R

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
library(shinydashboard)
library(Recharts)
body <- dashboardBody(
  fluidRow(
    column(6,EplotOutput("data_line_bar_1")),
    column(6,EplotOutput("data_line_bar_2"))
  ),
  fluidRow(
    column(6,EplotOutput("data_pie")),
    column(6,EplotOutput("data_funnel"))
  ),
  fluidRow(
    column(6,EplotOutput("data_map_china")),
    column(6,EplotOutput("data_map_BJ"))
  )
)
shinyUI(
  dashboardPage(
    dashboardHeader(title="百度Echart测试"),
    dashboardSidebar(disable = TRUE),
    body
  )
)

That’s all.
Happy writing!