R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

Project Description

Create a web page using R Markdown that features a map created with Leaflet.

Host your webpage on either GitHub Pages, RPubs, or NeoCities.

Your webpage must contain the date that you created the document, and it must contain a map created with Leaflet. We would love to see you show off your creativity!

My Submission

My Country’s state capitals and the federal capital Cities

Date created

date()
## [1] "Mon Jan  9 20:32:47 2023"

Loading libraries

library(leaflet)
library(htmltools)
## Warning: package 'htmltools' was built under R version 4.2.2
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

Brief of Nigeria states

There are 36 state capitals in Nigeria with Abuja being the capital of Nigeria. Each state has its own capital. These capitals I have plotted there coordinates.

NgStateScapital <- leaflet(width = "100%") %>% addTiles() %>%
  addMarkers(lat = 7.3964, lng = 3.9167, popup = "Ibadan") %>%
  addMarkers(lat = 9.0556, lng = 7.4914, popup = "Abuja") %>%
  addMarkers(lat = 4.7500, lng = 7.0000, popup = "Port-Harcourt") %>%
  addMarkers(lat = 6.4403, lng = 7.4942, popup = "Enugu") %>%
  addMarkers(lat = 4.9267, lng = 6.2676, popup = "Yenagoa") %>%
  addMarkers(lat = 5.4833, lng = 7.0333, popup = "Owerri") %>%
  addMarkers(lat = 12.0000, lng = 8.5167, popup = "Kano") %>%
  addMarkers(lat = 12.4504, lng = 4.1999, popup = "Birnin-Kebbi") %>%
  addMarkers(lat = 11.8283, lng = 9.3158, popup = "Dutse") %>%
  addMarkers(lat = 11.75, lng = 11.9667, popup = "Damaturu") %>%
  addMarkers(lat = 8.5, lng = 4.55, popup = "Ilorin") %>%
  addMarkers(lat = 7.73, lng = 8.53, popup = "Makurdi") %>%
  addMarkers(lat = 7.6167, lng = 5.2167, popup = "Ado-Ekiti") %>%
  addMarkers(lat = 4.95, lng = 8.325, popup = "Calabar") %>%
  addMarkers(lat = 7.25, lng = 5.195, popup = "Akure") %>% 
  addMarkers(lat = 7.7667, lng = 4.5667, popup = "Osogbo") %>%
  addMarkers(lat = 7.15, lng = 3.35, popup = "Abeokuta") %>%
  addMarkers(lat = 6.1833, lng = 6.75, popup = "Asaba") %>%
  addMarkers(lat = 6.3176, lng = 5.6145, popup = "Benin") %>%
  addMarkers(lat = 5.05, lng = 7.9333, popup = "Uyo") %>%
  addMarkers(lat = 6.2, lng = 7.0667, popup = "Awka") %>%
  addMarkers(lat = 5.5333, lng = 7.4833, popup = "Umuahia") %>%
  addMarkers(lat = 6.3249, lng = 8.1137, popup = "Abakaliki") %>%
  addMarkers(lat = 9.6139, lng = 6.5569, popup = "Minna") %>%
  addMarkers(lat = 7.8004, lng = 6.7399, popup = "Lokoja") %>%
  addMarkers(lat = 8.4904, lng = 8.52, popup = "Lafia") %>%
  addMarkers(lat = 9.9333, lng = 8.8833, popup = "Jos") %>%
  addMarkers(lat = 11.8333, lng = 13.15, popup = "Maiduguri") %>%
  addMarkers(lat = 10.2904, lng = 11.17, popup = "Gombe") %>%
  addMarkers(lat = 10.3158, lng = 9.8442, popup = "Bauchi") %>%
  addMarkers(lat = 10.5231, lng = 7.4403, popup = "Kaduna") %>%
  addMarkers(lat = 13.0622, lng = 5.2339, popup = "Sokoto") %>%
  addMarkers(lat = 12.1704, lng = 6.66, popup = "Gusau") %>%
  addMarkers(lat = 8.9004, lng = 11.36, popup = "Jalingo") %>%
  addMarkers(lat = 7.1694, lng = 9.2846, popup = "Katsina") %>%
  addMarkers(lat = 9.2, lng = 12.4833, popup = "Yola") %>%
  addMarkers(lat = 6.5965, lng = 3.3421, popup = "Ikeja")
NgStateScapital