## Covid Cases
setwd("D:/From Syncplicity/Bulk_Papers/03142019/covid/NY_TrafficCrash/covid-19-data-master")
library(formattable)
marchNY <- read.csv("NY_Mar2020_Crash_Covid.csv")
formattable(marchNY[,-c(2, 4, 9:14)], list(
DailyCase = color_tile("white", "orange"),
DailyDeath = color_tile("white", "orange"),
MarchCrash= color_tile("white", "orange"),
MarchPersonInj = color_tile("white", "orange"),
MarchPersonKil = color_tile("white", "orange")
))| Date | DailyDeath | DailyCase | MarchCrash | MarchPersonInj | MarchPersonKil |
|---|---|---|---|---|---|
| 3/1/2020 | 0 | 0 | 389 | 109 | 1 |
| 3/2/2020 | 0 | 1 | 523 | 159 | 0 |
| 3/3/2020 | 0 | 0 | 501 | 160 | 0 |
| 3/4/2020 | 0 | 0 | 499 | 150 | 0 |
| 3/5/2020 | 0 | 3 | 490 | 154 | 1 |
| 3/6/2020 | 0 | 7 | 616 | 159 | 0 |
| 3/7/2020 | 0 | 0 | 469 | 149 | 0 |
| 3/8/2020 | 0 | 1 | 369 | 147 | 0 |
| 3/9/2020 | 0 | 7 | 489 | 148 | 0 |
| 3/10/2020 | 0 | 6 | 419 | 109 | 0 |
| 3/11/2020 | 0 | 30 | 434 | 126 | 0 |
| 3/12/2020 | 0 | 40 | 409 | 107 | 0 |
| 3/13/2020 | 0 | 59 | 499 | 135 | 0 |
| 3/14/2020 | 1 | 115 | 340 | 114 | 4 |
| 3/15/2020 | 0 | 0 | 308 | 117 | 0 |
| 3/16/2020 | 6 | 194 | 345 | 75 | 0 |
| 3/17/2020 | 0 | 351 | 343 | 86 | 0 |
| 3/18/2020 | 4 | 1057 | 279 | 64 | 0 |
| 3/19/2020 | 15 | 2083 | 306 | 69 | 0 |
| 3/20/2020 | 3 | 1197 | 275 | 57 | 0 |
| 3/21/2020 | 16 | 2379 | 215 | 62 | 0 |
| 3/22/2020 | 18 | 2124 | 130 | 28 | 0 |
| 3/23/2020 | 36 | 2651 | 209 | 61 | 1 |
| 3/24/2020 | 32 | 2599 | 189 | 52 | 0 |
| 3/25/2020 | 68 | 2952 | 152 | 32 | 0 |
| 3/26/2020 | 82 | 4017 | 168 | 40 | 0 |
| 3/27/2020 | 85 | 3700 | 176 | 44 | 0 |
| 3/28/2020 | 306 | 4203 | 158 | 33 | 0 |
| 3/29/2020 | 104 | 3992 | 86 | 24 | 0 |
| 3/30/2020 | 138 | 3685 | 151 | 30 | 0 |
| 3/31/2020 | 182 | 5666 | 137 | 34 | 0 |
formattable(marchNY[,-c(2, 4)], list(
DailyCase = color_tile("white", "orange"),
DailyDeath = color_tile("white", "orange"),
MarchCrash= color_tile("white", "orange"),
MarchPersonInj = color_tile("white", "orange"),
MarchPersonKil = color_tile("white", "orange"),
MarchPedInj = color_tile("white", "orange"),
MarchPedKil = color_tile("white", "orange"),
MarchCycInj = color_tile("white", "orange"),
MarchCycKil = color_tile("white", "orange"),
MarchMotoInj = color_tile("white", "orange"),
MarchMotoKil = color_tile("white", "orange")
))| Date | DailyDeath | DailyCase | MarchCrash | MarchPersonInj | MarchPersonKil | MarchPedInj | MarchPedKil | MarchCycInj | MarchCycKil | MarchMotoInj | MarchMotoKil |
|---|---|---|---|---|---|---|---|---|---|---|---|
| 3/1/2020 | 0 | 0 | 389 | 109 | 1 | 16 | 1 | 8 | 0 | 85 | 0 |
| 3/2/2020 | 0 | 1 | 523 | 159 | 0 | 33 | 0 | 11 | 0 | 115 | 0 |
| 3/3/2020 | 0 | 0 | 501 | 160 | 0 | 38 | 0 | 10 | 0 | 112 | 0 |
| 3/4/2020 | 0 | 0 | 499 | 150 | 0 | 28 | 0 | 10 | 0 | 112 | 0 |
| 3/5/2020 | 0 | 3 | 490 | 154 | 1 | 30 | 1 | 10 | 0 | 114 | 0 |
| 3/6/2020 | 0 | 7 | 616 | 159 | 0 | 44 | 0 | 5 | 0 | 110 | 0 |
| 3/7/2020 | 0 | 0 | 469 | 149 | 0 | 28 | 0 | 11 | 0 | 110 | 0 |
| 3/8/2020 | 0 | 1 | 369 | 147 | 0 | 18 | 0 | 10 | 0 | 119 | 0 |
| 3/9/2020 | 0 | 7 | 489 | 148 | 0 | 34 | 0 | 15 | 0 | 99 | 0 |
| 3/10/2020 | 0 | 6 | 419 | 109 | 0 | 20 | 0 | 8 | 0 | 81 | 0 |
| 3/11/2020 | 0 | 30 | 434 | 126 | 0 | 24 | 0 | 8 | 0 | 94 | 0 |
| 3/12/2020 | 0 | 40 | 409 | 107 | 0 | 25 | 0 | 9 | 0 | 73 | 0 |
| 3/13/2020 | 0 | 59 | 499 | 135 | 0 | 31 | 0 | 18 | 0 | 86 | 0 |
| 3/14/2020 | 1 | 115 | 340 | 114 | 4 | 23 | 3 | 8 | 0 | 83 | 1 |
| 3/15/2020 | 0 | 0 | 308 | 117 | 0 | 17 | 0 | 11 | 0 | 89 | 0 |
| 3/16/2020 | 6 | 194 | 345 | 75 | 0 | 7 | 0 | 8 | 0 | 60 | 0 |
| 3/17/2020 | 0 | 351 | 343 | 86 | 0 | 10 | 0 | 5 | 0 | 71 | 0 |
| 3/18/2020 | 4 | 1057 | 279 | 64 | 0 | 11 | 0 | 5 | 0 | 48 | 0 |
| 3/19/2020 | 15 | 2083 | 306 | 69 | 0 | 11 | 0 | 5 | 0 | 53 | 0 |
| 3/20/2020 | 3 | 1197 | 275 | 57 | 0 | 13 | 0 | 9 | 0 | 35 | 0 |
| 3/21/2020 | 16 | 2379 | 215 | 62 | 0 | 9 | 0 | 4 | 0 | 49 | 0 |
| 3/22/2020 | 18 | 2124 | 130 | 28 | 0 | 1 | 0 | 3 | 0 | 24 | 0 |
| 3/23/2020 | 36 | 2651 | 209 | 61 | 1 | 10 | 0 | 2 | 0 | 49 | 1 |
| 3/24/2020 | 32 | 2599 | 189 | 52 | 0 | 8 | 0 | 7 | 0 | 37 | 0 |
| 3/25/2020 | 68 | 2952 | 152 | 32 | 0 | 3 | 0 | 3 | 0 | 26 | 0 |
| 3/26/2020 | 82 | 4017 | 168 | 40 | 0 | 11 | 0 | 2 | 0 | 27 | 0 |
| 3/27/2020 | 85 | 3700 | 176 | 44 | 0 | 5 | 0 | 3 | 0 | 36 | 0 |
| 3/28/2020 | 306 | 4203 | 158 | 33 | 0 | 7 | 0 | 1 | 0 | 25 | 0 |
| 3/29/2020 | 104 | 3992 | 86 | 24 | 0 | 2 | 0 | 0 | 0 | 22 | 0 |
| 3/30/2020 | 138 | 3685 | 151 | 30 | 0 | 2 | 0 | 3 | 0 | 25 | 0 |
| 3/31/2020 | 182 | 5666 | 137 | 34 | 0 | 9 | 0 | 2 | 0 | 23 | 0 |