shiny动态仪表盘——360度全空间无死角拖拉换肤功能的旋转地球

生活需要仪式感，图表亦是如此！

今天给大家分享的这个图表案例就充满了仪式感，它可以呈现空间投影下360度全空间无死角的视觉体验（当然我没有设置颗粒度那么细的滑动条参数，理论上是的，只需将滑动条的单位参数设置的足够细就可以了）。

我给图表提供了五套源于ColorBrewer的双向渐变离散配色方案。所以你看到的图表样纸大概有：

5*13*25*25

种面貌！！！

倘若给数据添加一个时间维度或者其他的业务维度，那么这个图表是可以继续增添任何你想要的呈现维度的！！！

这是一个shiny定制的动态图表，整体上制作过程分为三部分：

• 数据处理过程，为仪表盘提供可用数据源；

• 定制页面UI；

• 构建服务程序。

以下按照所列三个步骤分别展示：

library(ggplot2)

library(maps)  

library(plyr)    

library(grid)

library(xlsx)

library(RColorBrewer)

library(dplyr)

library(shiny)

library(shinythemes)

数据处理过程：

setwd("D:/R/mapdata/")

world_map<-map_data("world")

mydata<-read.csv("Word_State.csv",stringsAsFactors = FALSE,check.names = FALSE)  

world_map_data<-merge(world_map,mydata,all.x=TRUE)%>%arrange(group,order)

#因为我前期处理过此数据，所以这里仅需导入即可！

定制ui：

ui <-shinyUI(fluidPage(

theme=shinytheme("cerulean"), 

titlePanel("Data Control"),

    sidebarLayout(

      sidebarPanel(

        radioButtons("var1","palette",

                    list("PiYG"="PiYG",

                      "PuOr"="PuOr",

                      "RdBu"="RdBu",

                      "RdYlBu"="RdYlBu",

                      "RdYlGn"="RdYlGn"),inline=TRUE),

        br(),

        sliderInput("var2",

                    "latitude",

                     min=-90,

                     max=90,

                     value=0,

                     step=15),

        sliderInput("var3",

                    "longitude",

                    min=-180,

                    max=180,

                    value=0,

                    step=15),

        sliderInput("var4",

                    "angle",

                    min=-180,

                    max=180,

                    value=0,

                    step=15)

         ),

    mainPanel(h2('World Map'),plotOutput("distPlot"))

    )

))

ui的定制将决定这你的动态图表版面风格、输入工具排版布局、以及整体框架的分布。

构建服务端代码：

server<-shinyServer(function(input,output){

output$distPlot <- renderPlot({

ggplot()+

geom_polygon(data=world_map_data,aes(x=long,y=lat,group=group,fill=Address),colour="grey",size=.25)+

coord_map("ortho",orientation=c(input$var2,input$var3,input$var4))+

scale_y_continuous(breaks=(-6:6)*15) +

scale_x_continuous(breaks=(-12:12)*15)+

scale_fill_brewer(name="million($)",palette=input$var1)+

theme(

panel.background=element_rect(fill="white",colour=NA),

panel.grid.major = element_line(colour = "grey60",size=.25),

panel.grid.minor = element_line(colour = "grey60",size=.25),

axis.text=element_blank(),

axis.title=element_blank(),

axis.ticks=element_blank()

)

  })

})

服务端程序代码其实就是被一组服务程序函数包裹着的可视化图形对象，这里我用了ggplot来输出可视化对象，所用案例也即之前发送过的GIF动态地球。

运行app：

shinyApp(ui=ui,server=server)

动态效果呈现：

https://v.qq.com/txp/iframe/player.html?vid=p13181ghpnx&width=500&height=375&auto=0

ui.R和server.R部件会上传到群里供大家练习！

昨天花了一下午功夫，将之前的两个shinyapp部署到了我的个人shinyapp.io的在线仓库里了。

动态金字塔：

https://ljtyduyu.shinyapps.io/shinyapp/

旋转地球：

https://ljtyduyu.shinyapps.io/shinyapp_wordmap/

欢迎关注魔方学院QQ群

---