COVID-19 in Lubbock
What is this?
This is an R notebook to help visualize the numbers regarding COVID-19 in Lubbock, TX. I’ve been keeping this data in JSON format as press releases come out from the City of Lubbock. The code for this notebook can be found here -> https://github.com/jreina/lubbock-covid.
Last Updated: 2020-12-02 11:31:49
library('jsonlite')
cases <- as.data.frame(fromJSON("./data/cases.json"))
dates <-as.Date(cases$date, "%m/%d/%Y")
cases$difference = c(0, diff(cases$confirmed))
dailyDeaths <- diff(c(0, cases$deaths))
cases <- cases[, c(1, 3, 7, 4, 5, 6, 7)]
newCases <- cases$confirmed - cases$recovered - cases$deathsActive cases vs recoveries by date
plot.new()
plot(x = dates, y = newCases,
xlim = range(dates), ylim = range(c(newCases, cases$recovered)),
xlab = 'Date', ylab = 'Count',
type = 'l', lwd = 2.5, col = 'red', lty = 1,
main = 'Active Cases vs. Cumulative Recoveries')
lines(x = dates, y = cases$recovered, lwd = 2.5, col = 'blue', lty = 1)
legend('topleft', legend = c('Active cases', 'Recoveries'), col = c('red', 'blue'), lty = 1, lwd = 2.5)
New confirmed cases by date
plot.new()
plot(x = dates, y = cases$difference,
xlim = range(dates), ylim = range(cases$difference),
xlab = 'Date', ylab = 'Count',
type = 'l', lwd = 2.5, col = 'blue', lty = 1,
main = 'New Cases')
legend('topleft', legend = c('New cases'),
col = c('blue'), lty = 1, lwd = 2.5)
Deaths by date
plot.new()
plot(x = dates, y = dailyDeaths,
xlim = range(dates), ylim = range(dailyDeaths),
xlab = 'Date', ylab = 'Count',
type = 'l', lwd = 2.5, col = 'blue', lty = 1,
main = 'New Deaths')
legend('topleft', legend = c('New deaths'),
col = c('blue'), lty = 1, lwd = 2.5)
Daily cases vs daily deaths
plot.new()
plot(x = dates, y = cases$difference,
xlim = range(dates), ylim = range(cases$difference),
xlab = 'Date', ylab = 'Count',
type = 'l', lwd = 2.5, col = 'red', lty = 1,
main = 'Daily cases vs daily deaths')
par(new = TRUE)
plot(x = dates, y = dailyDeaths, col = 'blue', axes = FALSE, xlab = 'Date', ylab = 'Count',
type = 'l', lwd = 2)
axis(side = 4, at = pretty(range(dailyDeaths)))
legend('topleft', legend = c('New cases', 'deaths'), col = c('red', 'blue'), lty = 1, lwd = 2.5)
Cumulative statistics by date
plot(x = dates,
y = cases$confirmed,
xlim = range(dates),
ylim = range(cases$confirmed),
xlab = 'Date',
ylab = 'Count',
col = 'black',
type = 'l',
lwd = 2.5,
main = 'Cumulative Statistics (Lubbock County)')
lines(dates, cases$recovered, col = "green", lwd = 2.5)
lines(dates, cases$deaths, col = "red", lwd = 2.5)
lines(x = dates, y = cases$difference, lwd = 1, col = 'purple', lty = 2)
legend('topleft', legend = c('Confirmed', 'Recovered', 'Deaths', 'Difference'),
col = c('black', 'green', 'red', 'purple'), lty = c(1, 1, 1, 2), lwd = c(2.5, 2.5, 2.5, 1))
Data
library(xtable)
print(xtable(cases), type = "html")Disclaimer
This data likely varies from official data since it is based on press releases instead of aggregated health department data from the State of Texas. This data is provided purely for informational purposes.
LS0tDQp0aXRsZTogIkNPVklELTE5IGluIEx1YmJvY2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KIyMgV2hhdCBpcyB0aGlzPw0KVGhpcyBpcyBhbiBSIG5vdGVib29rIHRvIGhlbHAgdmlzdWFsaXplIHRoZSBudW1iZXJzIHJlZ2FyZGluZyBDT1ZJRC0xOSBpbiBMdWJib2NrLCBUWC4gSSd2ZSBiZWVuIGtlZXBpbmcgdGhpcyBkYXRhIGluIEpTT04gZm9ybWF0IGFzIHByZXNzIHJlbGVhc2VzIGNvbWUgb3V0IGZyb20gdGhlIFtDaXR5IG9mIEx1YmJvY2tdKGh0dHBzOi8vdHdpdHRlci5jb20vY2l0eW9mbHViYm9jaykuIFRoZSBjb2RlIGZvciB0aGlzIG5vdGVib29rIGNhbiBiZSBmb3VuZCBoZXJlIC0+IFtodHRwczovL2dpdGh1Yi5jb20vanJlaW5hL2x1YmJvY2stY292aWRdKGh0dHBzOi8vZ2l0aHViLmNvbS9qcmVpbmEvbHViYm9jay1jb3ZpZCkuDQoNCkxhc3QgVXBkYXRlZDogYHIgU3lzLnRpbWUoKWANCg0KYGBge3IsIHJlc3VsdHM9J2hpZGUnLCBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQ0KbGlicmFyeSgnanNvbmxpdGUnKQ0KDQpjYXNlcyA8LSBhcy5kYXRhLmZyYW1lKGZyb21KU09OKCIuL2RhdGEvY2FzZXMuanNvbiIpKQ0KZGF0ZXMgPC1hcy5EYXRlKGNhc2VzJGRhdGUsICIlbS8lZC8lWSIpDQpjYXNlcyRkaWZmZXJlbmNlID0gYygwLCBkaWZmKGNhc2VzJGNvbmZpcm1lZCkpDQpkYWlseURlYXRocyA8LSBkaWZmKGMoMCwgY2FzZXMkZGVhdGhzKSkNCmNhc2VzIDwtIGNhc2VzWywgYygxLCAzLCA3LCA0LCA1LCA2LCA3KV0NCm5ld0Nhc2VzIDwtIGNhc2VzJGNvbmZpcm1lZCAtIGNhc2VzJHJlY292ZXJlZCAtIGNhc2VzJGRlYXRocw0KYGBgDQoNCiMjIEFjdGl2ZSBjYXNlcyB2cyByZWNvdmVyaWVzIGJ5IGRhdGUNCmBgYHtyLCByZXN1bHRzPSdoaWRlJywgbWVzc2FnZT1GQUxTRSwgd2FybmluZz1GQUxTRX0NCnBsb3QubmV3KCkNCg0KcGxvdCh4ID0gZGF0ZXMsIHkgPSBuZXdDYXNlcywNCiAgICAgeGxpbSA9IHJhbmdlKGRhdGVzKSwgeWxpbSA9IHJhbmdlKGMobmV3Q2FzZXMsIGNhc2VzJHJlY292ZXJlZCkpLA0KICAgICB4bGFiID0gJ0RhdGUnLCB5bGFiID0gJ0NvdW50JywNCiAgICAgdHlwZSA9ICdsJywgbHdkID0gMi41LCBjb2wgPSAncmVkJywgbHR5ID0gMSwNCiAgICAgbWFpbiA9ICdBY3RpdmUgQ2FzZXMgdnMuIEN1bXVsYXRpdmUgUmVjb3ZlcmllcycpDQpsaW5lcyh4ID0gZGF0ZXMsIHkgPSBjYXNlcyRyZWNvdmVyZWQsIGx3ZCA9IDIuNSwgY29sID0gJ2JsdWUnLCBsdHkgPSAxKQ0KDQpsZWdlbmQoJ3RvcGxlZnQnLCBsZWdlbmQgPSBjKCdBY3RpdmUgY2FzZXMnLCAnUmVjb3ZlcmllcycpLCBjb2wgPSBjKCdyZWQnLCAnYmx1ZScpLCBsdHkgPSAxLCBsd2QgPSAyLjUpDQpgYGANCg0KIyMgTmV3IGNvbmZpcm1lZCBjYXNlcyBieSBkYXRlDQpgYGB7ciwgcmVzdWx0cz0naGlkZScsIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0V9DQpwbG90Lm5ldygpDQoNCnBsb3QoeCA9IGRhdGVzLCB5ID0gY2FzZXMkZGlmZmVyZW5jZSwNCiAgICAgeGxpbSA9IHJhbmdlKGRhdGVzKSwgeWxpbSA9IHJhbmdlKGNhc2VzJGRpZmZlcmVuY2UpLA0KICAgICB4bGFiID0gJ0RhdGUnLCB5bGFiID0gJ0NvdW50JywNCiAgICAgdHlwZSA9ICdsJywgbHdkID0gMi41LCBjb2wgPSAnYmx1ZScsIGx0eSA9IDEsDQogICAgIG1haW4gPSAnTmV3IENhc2VzJykNCg0KbGVnZW5kKCd0b3BsZWZ0JywgbGVnZW5kID0gYygnTmV3IGNhc2VzJyksDQogICAgICAgY29sID0gYygnYmx1ZScpLCBsdHkgPSAxLCBsd2QgPSAyLjUpDQpgYGANCg0KDQojIyBEZWF0aHMgYnkgZGF0ZQ0KYGBge3IsIHJlc3VsdHM9J2hpZGUnLCBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQ0KcGxvdC5uZXcoKQ0KDQpwbG90KHggPSBkYXRlcywgeSA9IGRhaWx5RGVhdGhzLA0KICAgICB4bGltID0gcmFuZ2UoZGF0ZXMpLCB5bGltID0gcmFuZ2UoZGFpbHlEZWF0aHMpLA0KICAgICB4bGFiID0gJ0RhdGUnLCB5bGFiID0gJ0NvdW50JywNCiAgICAgdHlwZSA9ICdsJywgbHdkID0gMi41LCBjb2wgPSAnYmx1ZScsIGx0eSA9IDEsDQogICAgIG1haW4gPSAnTmV3IERlYXRocycpDQoNCmxlZ2VuZCgndG9wbGVmdCcsIGxlZ2VuZCA9IGMoJ05ldyBkZWF0aHMnKSwNCiAgICAgICBjb2wgPSBjKCdibHVlJyksIGx0eSA9IDEsIGx3ZCA9IDIuNSkNCmBgYA0KDQojIyBEYWlseSBjYXNlcyB2cyBkYWlseSBkZWF0aHMNCmBgYHtyLCByZXN1bHRzPSdoaWRlJywgbWVzc2FnZT1GQUxTRSwgd2FybmluZz1GQUxTRX0NCnBsb3QubmV3KCkNCg0KcGxvdCh4ID0gZGF0ZXMsIHkgPSBjYXNlcyRkaWZmZXJlbmNlLA0KICAgICB4bGltID0gcmFuZ2UoZGF0ZXMpLCB5bGltID0gcmFuZ2UoY2FzZXMkZGlmZmVyZW5jZSksDQogICAgIHhsYWIgPSAnRGF0ZScsIHlsYWIgPSAnQ291bnQnLA0KICAgICB0eXBlID0gJ2wnLCBsd2QgPSAyLjUsIGNvbCA9ICdyZWQnLCBsdHkgPSAxLA0KICAgICBtYWluID0gJ0RhaWx5IGNhc2VzIHZzIGRhaWx5IGRlYXRocycpDQoNCnBhcihuZXcgPSBUUlVFKQ0KcGxvdCh4ID0gZGF0ZXMsIHkgPSBkYWlseURlYXRocywgY29sID0gJ2JsdWUnLCBheGVzID0gRkFMU0UsIHhsYWIgPSAnRGF0ZScsIHlsYWIgPSAnQ291bnQnLA0KICAgICB0eXBlID0gJ2wnLCBsd2QgPSAyKQ0KYXhpcyhzaWRlID0gNCwgYXQgPSBwcmV0dHkocmFuZ2UoZGFpbHlEZWF0aHMpKSkNCmxlZ2VuZCgndG9wbGVmdCcsIGxlZ2VuZCA9IGMoJ05ldyBjYXNlcycsICdkZWF0aHMnKSwgY29sID0gYygncmVkJywgJ2JsdWUnKSwgbHR5ID0gMSwgbHdkID0gMi41KQ0KYGBgDQoNCiMjIEN1bXVsYXRpdmUgc3RhdGlzdGljcyBieSBkYXRlDQoNCmBgYHtyLCByZXN1bHRzPSdoaWRlJywgbWVzc2FnZT1GQUxTRSwgd2FybmluZz1GQUxTRX0NCnBsb3QoeCA9IGRhdGVzLA0KICAgICB5ID0gY2FzZXMkY29uZmlybWVkLA0KICAgICB4bGltID0gcmFuZ2UoZGF0ZXMpLA0KICAgICB5bGltID0gcmFuZ2UoY2FzZXMkY29uZmlybWVkKSwNCiAgICAgeGxhYiA9ICdEYXRlJywNCiAgICAgeWxhYiA9ICdDb3VudCcsDQogICAgIGNvbCA9ICdibGFjaycsDQogICAgIHR5cGUgPSAnbCcsDQogICAgIGx3ZCA9IDIuNSwNCiAgICAgbWFpbiA9ICdDdW11bGF0aXZlIFN0YXRpc3RpY3MgKEx1YmJvY2sgQ291bnR5KScpDQoNCmxpbmVzKGRhdGVzLCBjYXNlcyRyZWNvdmVyZWQsIGNvbCA9ICJncmVlbiIsIGx3ZCA9IDIuNSkNCmxpbmVzKGRhdGVzLCBjYXNlcyRkZWF0aHMsIGNvbCA9ICJyZWQiLCBsd2QgPSAyLjUpDQpsaW5lcyh4ID0gZGF0ZXMsIHkgPSBjYXNlcyRkaWZmZXJlbmNlLCBsd2QgPSAxLCBjb2wgPSAncHVycGxlJywgbHR5ID0gMikNCg0KbGVnZW5kKCd0b3BsZWZ0JywgbGVnZW5kID0gYygnQ29uZmlybWVkJywgJ1JlY292ZXJlZCcsICdEZWF0aHMnLCAnRGlmZmVyZW5jZScpLCANCiAgICAgICBjb2wgPSBjKCdibGFjaycsICdncmVlbicsICdyZWQnLCAncHVycGxlJyksIGx0eSA9IGMoMSwgMSwgMSwgMiksIGx3ZCA9IGMoMi41LCAyLjUsIDIuNSwgMSkpDQpgYGANCg0KIyMgRGF0YQ0KDQpgYGB7ciwgcmVzdWx0cz0nYXNpcycsIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0V9DQpsaWJyYXJ5KHh0YWJsZSkNCnByaW50KHh0YWJsZShjYXNlcyksIHR5cGUgPSAiaHRtbCIpDQpgYGANCg0KIyMjIERpc2NsYWltZXINClRoaXMgZGF0YSBsaWtlbHkgdmFyaWVzIGZyb20gb2ZmaWNpYWwgZGF0YSBzaW5jZSBpdCBpcyBiYXNlZCBvbiBwcmVzcyByZWxlYXNlcyBpbnN0ZWFkIG9mIGFnZ3JlZ2F0ZWQgaGVhbHRoIGRlcGFydG1lbnQgZGF0YSBmcm9tIHRoZSBTdGF0ZSBvZiBUZXhhcy4gVGhpcyBkYXRhIGlzIHByb3ZpZGVkIHB1cmVseSBmb3IgaW5mb3JtYXRpb25hbCBwdXJwb3Nlcy4NCg==