Data COVID-19 Total Cases by County, 07-02 9:30 AM CST
DISCLAIMER: All data are provisional and are subject to change.
The top counties in the state of Texas with the most COVID-19 cases as of July 2nd, 2020 are listed below in the table.
Data Scource: https://www.dshs.texas.gov/coronavirus/additionaldata/
COVID-19 Data From Top Counties in Texas
library(tidyverse)## -- Attaching packages --------------------------------- tidyverse 1.3.0 --## v ggplot2 3.3.1 v purrr 0.3.4
## v tibble 3.0.1 v dplyr 1.0.0
## v tidyr 1.1.0 v stringr 1.4.0
## v readr 1.3.1 v forcats 0.5.0## -- Conflicts ------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()TexasData <- read.csv("C:/Users/rache/OneDrive/Desktop/TX_COVID_COUNTY_DATA.csv")
library(knitr)
kable(head(TexasData))| County | Longitude | Latitude | Population | Cases | County.Percentage |
|---|---|---|---|---|---|
| Harris | 29.7752 | 95.3103 | 4978845 | 32859 | 0.66% |
| Dallas | 32.8025 | 96.8351 | 2734111 | 21882 | 0.80% |
| Tarrant | 32.7732 | 97.3517 | 2143755 | 12950 | 0.60% |
| Bexar | 29.4201 | 98.5721 | 2093502 | 12504 | 0.60% |
| Travis | 30.2097 | 97.6982 | 1291502 | 10124 | 0.78% |
The top counties in the state of Texas with the most COVID-19 cases as of July 2nd, 2020 are located below in maps.
Click on the pop-up links to be directed to the latest data, news, and precautions to take for these counties.
library(tidyverse)
library(leaflet)
Hariss<-paste(sep = "<br/>",
"<b><a href='https://publichealth.harriscountytx.gov/Resources/2019-Novel-Coronavirus'>Hariss County
COVID19 Data</a></b>")
Dallas<-paste(sep = "<br/>",
"<b><a href='https://www.dallascounty.org/covid-19/'>Dallas County
COVID19 Data</a></b>")
Tarrant<-paste(sep = "<br/>",
"<b><a href='https://www.tarrantcounty.com/en/public-health/disease-control---prevention/coronaviruas.html'>Tarrant County
COVID19 Data</a></b>")
Bexar<-paste(sep = "<br/>",
"<b><a href='https://covid19.sanantonio.gov/Home'>Bexar County
COVID19 Data</a></b>")
Travis<-paste(sep = "<br/>",
"<b><a href='https://www.traviscountytx.gov/news/2020/1945-novel-coronavirus-covid-19-information'>Travis County
COVID19 Data</a></b>")
leaflet() %>% addTiles() %>%
addPopups(-95.3103, 29.7752, Hariss,
options = popupOptions(closeButton = TRUE))leaflet() %>% addTiles() %>%
addPopups(-96.8351, 32.8025, Dallas,
options = popupOptions(closeButton = TRUE))leaflet() %>% addTiles() %>%
addPopups(-97.3517, 32.7732, Tarrant,
options = popupOptions(closeButton = TRUE))leaflet() %>% addTiles() %>%
addPopups(-98.5721, 29.4201, Bexar,
options = popupOptions(closeButton = TRUE))leaflet() %>% addTiles() %>%
addPopups(-97.6982, 30.2097, Travis,
options = popupOptions(closeButton = TRUE))