schluedj

{
 "metadata": {
  "name": "Summer Project"
 },
 "nbformat": 3,
 "nbformat_minor": 0,
 "worksheets": [
  {
   "cells": [
    {

schluedj

{
 "metadata": {
  "name": "Summer Project"
 },
 "nbformat": 3,
 "nbformat_minor": 0,
 "worksheets": [
  {
   "cells": [
    {

schluedj

#####################################
#Life expectancy data visualization
###################################
library(ggplot2)
library(mapproj)
library(ggmap)
###############################################
#Code for obtaining lat and longitude of countries
#This goes into google to get coordinates from google earth
####################################################

schluedj

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")

schluedj

library(shiny)
library(ggplot2)

team_season <- read.csv("zteam_season.csv")
#function for limiting data

shinyServer(function(input, output) {
  #Data for plots
  dat1<-reactive(function(){
    #subset team by checkbox