R+ECharts2Shiny实现web动态交互式可视化数据(中)

欢迎关注天善智能，我们是专注于商业智能BI，人工智能AI，大数据分析与挖掘领域的垂直社区，学习，问答、求职一站式搞定！

对商业智能BI、大数据分析挖掘、机器学习，python，R等数据领域感兴趣的同学加微信：tstoutiao，邀请你进入数据爱好者交流群，数据爱好者们都在这儿。

作者：糖甜甜甜，R语言中文社区专栏作者

公众号：经管人学数据分析

前言

上篇文章中我们谈到R语言中shiny包用作企业业务数据轻量级web开发的好处，

R+ECharts2Shiny实现web动态交互式可视化数据(上)

，在这篇文章中我们推荐下在Shiny Gallery上的用shiny开发出来的优秀网站，部分网站有代码，大家可以在R中直接运行出来查看。

Shiny APP!

1.世界人口前景可视化web应用

  GitHub地址：https://github.com/PPgp/wppExplorer

2.城市交通实时可视化web应用

  GitHub地址：https://github.com/rstudio/shiny-examples/tree/master/086-bus-dashboard

3.美国非盈利大学可视化web应用

4.警力实时数据可视化web应用

  GitHub地址：https://github.com/trestletech/dallas-police/

web应用中的部分功能的实现

以下的代码可以直接复制粘贴在R中实现，通过从小功能的实现学习shiny包，平时爬取的数据可以选择自己用R或python搭一个轻量级的web，为数据提供更多的价值，并且这样的作品拿出来在面试数据分析职位会加不少分哟。

1.交互

在调用server函数，申明一个交互对象datasetInput，交互函数reactive用来对UI中的输入进行处理，依赖于input$dataset，然后被output调用，这里的数据可以是自己设定，excel、csv或者数据库都可以。

1library(shiny)
2
3# Define UI for dataset viewer app ----
4ui <- fluidPage(
5
6  # App title ----
7  titlePanel("Reactivity"),
8
9  # Sidebar layout with input and output definitions ----
10  sidebarLayout(
11
12    # Sidebar panel for inputs ----
13    sidebarPanel(
14
15      # Input: Text for providing a caption ----
16      textInput(inputId = "caption",
17                label = "Caption:",
18                value = "Data Summary"),
19
20      # Input: Selector for choosing dataset ----
21      selectInput(inputId = "dataset",
22