# NOT RUN {
data(covid19sf_geo)
head(covid19sf_geo)
library(sf)
# Ploting SF Covid19 counts using base plot function
plot(covid19sf_geo[which(covid19sf_geo$area_type == "Census Tract"),
c("rate", "geometry")],
main = "Covid19 Cases Rate per 10,000 by Census Tract")
# }
Run the code above in your browser using DataLab