R Notebook

library(leaflet)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

leaflet() %>%
  addTiles()

leaflet() %>%
  addTiles() %>%
  addMarkers(lng = 92.1389, lat = 21.2447,
             popup = "Home")

library(readr)
bangladesh <- read_csv ("C:/Users/ASUS/Downloads/bangladesh.csv")

## Warning: One or more parsing issues, call `problems()` on your data frame for details,
## e.g.:
##   dat <- vroom(...)
##   problems(dat)

## Rows: 6883 Columns: 35
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (18): osm_type, amenity, healthcare, name, operator, source, speciality,...
## dbl  (6): X, Y, osm_id, completeness, changeset_id, changeset_version
## lgl (11): operational_status, beds, staff_doctors, staff_nurses, health_amen...
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

leaflet(bangladesh) %>%
  addTiles() %>%
  addCircles(~X, ~Y, popup = bangladesh$name)

## Warning in validateCoords(lng, lat, funcName): Data contains 646 rows with
## either missing or invalid lat/lon values and will be ignored