Corona confirmed map

#load libraries
library(readr)
library(leaflet)

## Warning: package 'leaflet' was built under R version 3.6.3

#@load data
data <- read_csv("C:/Users/iellis/Documents/datasciencecoursera/Module 9/CV_LatLon_21Jan_12Mar.csv")

## Warning: Missing column names filled in: 'X1' [1]

## Parsed with column specification:
## cols(
##   X1 = col_double(),
##   state = col_character(),
##   country = col_character(),
##   lat = col_double(),
##   lon = col_double(),
##   date = col_character(),
##   confirmed = col_double(),
##   recovered = col_double(),
##   death = col_double()
## )

my_map <- data %>%
  leaflet() %>%
  addTiles() %>%
  setView(lng = -85, lat = 40, zoom = 5) %>%
  
  addMarkers(popup = "Test", 
             lng = data$lat, 
             lat = data$lon)%>% 
  addCircles(weight=1,radius=sqrt(data$confirmed)*30000)

## Assuming "lon" and "lat" are longitude and latitude, respectively

my_map