Week 4 Application
January 12nd, 2021
Date
January 12, 2021
- Get Data This plot visualizes COVID-19 deaths in the U.S per state. Data is taken from:
https://coronavirus-resources.esri.com/datasets/628578697fb24d8ea4c32fa0c5ae1843_0
library(shiny)
library(dplyr)
library(ggplot2)
df <- read.csv(url("https://opendata.arcgis.com/datasets/628578697fb24d8ea4c32fa0c5ae1843_0.csv"))
head(df)
ï..X Y OBJECTID Province_State Country_Region
1 -86.64408 32.53953 1 Alabama US
2 -87.72207 30.72775 2 Alabama US
3 -85.38713 31.86826 3 Alabama US
4 -87.12511 32.99642 4 Alabama US
5 -86.56791 33.98211 5 Alabama US
6 -85.71266 32.10031 6 Alabama US
Last_Update Lat Long_ Confirmed Recovered Deaths Active
1 2021/01/15 01:22:16+00 32.53953 -86.64408 5075 0 55 5020
2 2021/01/15 01:22:16+00 30.72775 -87.72207 15841 0 177 15664
3 2021/01/15 01:22:16+00 31.86826 -85.38713 1696 0 36 1660
4 2021/01/15 01:22:16+00 32.99642 -87.12511 2113 0 47 2066
5 2021/01/15 01:22:16+00 33.98211 -86.56791 5219 0 80 5139
6 2021/01/15 01:22:16+00 32.10031 -85.71266 971 0 28 943
Admin2 FIPS Combined_Key Incident_Rate People_Tested
1 Autauga 1001 Autauga, Alabama, US 9083.749 NA
2 Baldwin 1003 Baldwin, Alabama, US 7096.141 NA
3 Barbour 1005 Barbour, Alabama, US 6870.291 NA
4 Bibb 1007 Bibb, Alabama, US 9435.563 NA
5 Blount 1009 Blount, Alabama, US 9025.352 NA
6 Bullock 1011 Bullock, Alabama, US 9612.910 NA
People_Hospitalized UID ISO3
1 NA 84001001 USA
2 NA 84001003 USA
3 NA 84001005 USA
4 NA 84001007 USA
5 NA 84001009 USA
6 NA 84001011 USA
Filter to a specific state
filtered_df <- subset(df, df$Province_State == 'Texas')
head(filtered_df)
ï..X Y OBJECTID Province_State Country_Region
2633 -95.65355 31.81535 2658 Texas US
2634 -102.63765 32.30469 2659 Texas US
2635 -94.60901 31.25457 2660 Texas US
2636 -96.99950 28.10556 2661 Texas US
2637 -98.68755 33.61570 2662 Texas US
2638 -101.35749 34.96507 2663 Texas US
Last_Update Lat Long_ Confirmed Recovered Deaths
2633 2021/01/15 01:22:16+00 31.81535 -95.65355 5542 0 73
2634 2021/01/15 01:22:16+00 32.30469 -102.63765 1558 0 34
2635 2021/01/15 01:22:16+00 31.25457 -94.60901 6552 0 185
2636 2021/01/15 01:22:16+00 28.10556 -96.99950 848 0 26
2637 2021/01/15 01:22:16+00 33.61570 -98.68755 680 0 8
2638 2021/01/15 01:22:16+00 34.96507 -101.35749 117 0 6
Active Admin2 FIPS Combined_Key Incident_Rate People_Tested
2633 5416 Anderson 48001 Anderson, Texas, US 9507.231 NA
2634 1524 Andrews 48003 Andrews, Texas, US 8329.324 NA
2635 6367 Angelina 48005 Angelina, Texas, US 7555.786 NA
2636 822 Aransas 48007 Aransas, Texas, US 3606.976 NA
2637 672 Archer 48009 Archer, Texas, US 7950.427 NA
2638 111 Armstrong 48011 Armstrong, Texas, US 6200.318 NA
People_Hospitalized UID ISO3
2633 NA 84048001 USA
2634 NA 84048003 USA
2635 NA 84048005 USA
2636 NA 84048007 USA
2637 NA 84048009 USA
2638 NA 84048011 USA
Selecting States
To use the application, select the state from the dropdown and wait a few seconds.
The application will update the bar graph with data from the particular state.
Plot the state deaths by city.
NOTE: This plot will look different than the app. Plotly does not work on presentations
