This page tells about the recent pandemic and where all it has been spread across varies countries. Each location has been marked on the map. The dataset has been collected from Kaggle website.

Preprocessing

covid <- read.csv("covid-19-all.csv")
covid <- covid[(!is.na(covid$Longitude)),]
new_covid <- covid %>% group_by(Country.Region) %>% filter(row_number()==1)
head(new_covid)
library(leaflet)
my_map <- leaflet() %>%
  addTiles() %>%
  addMarkers(lng = new_covid$Longitude, lat = new_covid$Latitude, 
             clusterOptions = markerClusterOptions())
my_map