Measuring the Average Distance Between Hospitals
Using OpenStreetMap

## Warning: st_centroid assumes attributes are constant over geometries

leaflet() |> 
  addTiles() |> 
  addCircleMarkers(data = all_hosp, 
                   lng = st_coordinates(all_hosp)[,1], 
                   lat = st_coordinates(all_hosp)[,2], 
                   popup = ~name,
                   color = "blue", radius = 5)

# Ensure the geometry is in sf format
all_hosp <- st_as_sf(all_hosp)

## [1] "Rata-rata jarak antar rumah sakit adalah 2.6 km"

Menambahkan buffer 1 km untuk melihat cakupan layanan setiap rumah sakit

## [1] "Peta telah diekspor sebagai HTML: peta_rumah_sakit_pasar_rebo.html"

---

Direktorat Statistik Kesejahteraan Rakyat, BPS, saptahas@bps.go.id