Work in progress. World data visualizations. Mined and string matched data from WHO database and Google map coordinates.

server.R

library(shiny)
library(ggplot2)
library(maps)
data <- read.csv("world_dat.csv")
all_country<-map_data("world")
#function for limiting data

data <- read.csv("world_dat.csv")
all_country<-map_data("world")

#function for limiting data

shinyServer(function(input, output) {
  #Data for plots
  ####Death data
  dat1<-reactive(function(){
    #subset data by year if necessary
    if((input$d70)&(input$d90)&(input$d10)){
      data<-subset(data,(Year==1970)|(Year==1990)|(Year==2010))
    }else if((input$d70)&(input$d90)&!(input$d10)){
      data<-subset(data,(Year==1970)|(Year==1990))
    }else if((input$d70)&!(input$d90)&(input$d10)){
      data<-subset(data,(Year==1970)|(Year==2010))
    }else if(!(input$d70)&(input$d90)&(input$d10)){
      data<-subset(data,(Year==1990)|(Year==2010))
    }else if((input$d70)&!(input$d90)&!(input$d10)){
      data<-subset(data,(Year==1970))
    }else if(!(input$d70)&!(input$d90)&(input$d10)){
      data<-subset(data,(Year==2010))
    }else if(!(input$d70)&(input$d90)&!(input$d10)){
      data<-subset(data,(Year==1990))
    }else{
    }
    
    #subset data by region for zoom
    data<-subset(data,(latitude>=input$min_lat)&(latitude<=input$max_lat)&(longitude>=input$min_long)&(longitude<=input$max_long))
  })
  ########################################
  #plot continents 
  ####################################################
  
  output$plot <- reactivePlot(function() {
    data<-dat1()
    p<-ggplot()+geom_polygon(data=all_country,aes(x=long,y=lat,group=group),colour="white", fill="darkgreen",alpha=.70)+geom_point(data=data, aes(x=longitude, y=latitude, size=Value,colour=factor(Year)),alpha=.5)
    p<-p+xlim(input$min_long,input$max_long)+ylim(input$min_lat, input$max_lat)+opts(panel.background = theme_rect(fill='dodgerblue', colour='blue'))
    print(p)
  })
  ######
  #output stats for region
  #######
  output$summary <- reactivePrint(function() {
    data<-dat1()
    summary(data$Value)
  })
  ####
  #plot for mean value
  #####
  output$plot_mean <- reactivePlot(function() {
    data<-dat1()
    ###Subset data by year
    d_1970<-subset(data,Year==1970)
    mean1<-mean(d_1970$Value)
    d_1990<-subset(data,Year==1990)
    mean2<-mean(d_1990$Value)
    d_2010<-subset(data,Year==2010)
    mean3<-mean(d_2010$Value)
    #Means for the year
    plot_dat<-c(mean1,mean2,mean3)
    year<-c(1970,1990,2010)
    dat<-data.frame(year,plot_dat)
    p<-ggplot(data=dat,aes(x=year,y=plot_dat))+geom_point(size=4)+geom_smooth()
    print(p)
  })
  output$summary_2 <- reactivePrint(function() {
    data<-dat1()
    ###Subset data by year
    d_1970<-subset(data,Year==1970)
    mean1<-mean(d_1970$Value)
    d_1990<-subset(data,Year==1990)
    mean2<-mean(d_1990$Value)
    d_2010<-subset(data,Year==2010)
    mean3<-mean(d_2010$Value)
    #Means for the year
    plot_dat<-c(mean1,mean2,mean3)
  })

})

ui.R

library(shiny)
library(ggplot2)
library(maps)

shinyUI(pageWithSidebar(
  
  # Application title
  headerPanel("World Maps"),  
  #Change Coordinates for zoom
  sidebarPanel(
    wellPanel(
      numericInput("min_lat", "Min lat:",min=-90,max=90,value=-90),
      numericInput("max_lat","Max lat",min=-90,max=90,value=90),
      numericInput("min_long", "Min long:",min=-200,max=200,value=-200),
      numericInput("max_long","Max long",min=-200,max=200,value=200)
    ),
    wellPanel(
      checkboxInput(inputId = "d70",
                    label = strong("1970"),
                    value = T),
      checkboxInput(inputId = "d90",
                    label = strong("1990"),
                    value = T),
      checkboxInput(inputId = "d10",
                    label = strong("2010"),
                    value = T)
      )
    ),
  
  # Tabset for App
  mainPanel(
    tabsetPanel(
      tabPanel("Plot", plotOutput("plot"),verbatimTextOutput("summary")),
      tabPanel("Plot2", plotOutput("plot_mean"),verbatimTextOutput("summary_2"))
    )
  )
))

world_dat.csv