Course: Developing Data Products
Provider: Johns Hopkins University
Platform: Coursera
Activity Goals:
library(leaflet)## Warning: package 'leaflet' was built under R version 4.3.3library(htmltools)## Warning: package 'htmltools' was built under R version 4.3.3library(tidyverse)## Warning: package 'tidyverse' was built under R version 4.3.3## Warning: package 'ggplot2' was built under R version 4.3.3## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr 1.1.4 ✔ readr 2.1.5
## ✔ forcats 1.0.0 ✔ stringr 1.5.1
## ✔ ggplot2 3.5.1 ✔ tibble 3.2.1
## ✔ lubridate 1.9.3 ✔ tidyr 1.3.1
## ✔ purrr 1.0.2
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errorsmy_map <- leaflet() %>%
addTiles()
my_map <- my_map %>%
addMarkers(lat=53.466843,
lng= -2.234597,
popup="The University of Manchester")
my_mapThis data was downloaded from: https://www.kaggle.com/datasets/ujwalkandi/unesco-world-heritage-sites?resource=download
data <- read.csv("whc-sites-2019.csv",
header = TRUE,
sep = ",")
head(data,
n = 3)## category states_name_en region_en unique_number id_no rev_bis
## 1 Cultural Afghanistan Asia and the Pacific 230 208 Rev
## 2 Cultural Afghanistan Asia and the Pacific 234 211 Rev
## 3 Cultural Albania Europe and North America 1590 569 Bis
## name_en
## 1 Cultural Landscape and Archaeological Remains of the Bamiyan Valley
## 2 Minaret and Archaeological Remains of Jam
## 3 Historic Centres of Berat and Gjirokastra
## short_description_en
## 1 The cultural landscape and archaeological remains of the Bamiyan Valley represent the artistic and religious developments which from the 1st to the 13th centuries characterized ancient Bakhtria, integrating various cultural influences into the Gandhara school of Buddhist art. The area contains numerous Buddhist monastic ensembles and sanctuaries, as well as fortified edifices from the Islamic period. The site is also testimony to the tragic destruction by the Taliban of the two standing Buddha statues, which shook the world in March 2001.
## 2 The 65m-tall Minaret of Jam is a graceful, soaring structure, dating back to the 12th century. Covered in elaborate brickwork with a blue tile inscription at the top, it is noteworthy for the quality of its architecture and decoration, which represent the culmination of an architectural and artistic tradition in this region. Its impact is heightened by its dramatic setting, a deep river valley between towering mountains in the heart of the Ghur province.
## 3 Berat and Gjirokastra are inscribed as rare examples of an architectural character typical of the Ottoman period. Located in central Albania, Berat bears witness to the coexistence of various religious and cultural communities down the centuries. It features a castle, locally known as the Kala, most of which was built in the 13th century, although its origins date back to the 4th century BC. The citadel area numbers many Byzantine churches, mainly from the 13th century, as well as several mosques built under the Ottoman era which began in 1417. Gjirokastra, in the Drinos river valley in southern Albania, features a series of outstanding two-story houses which were developed in the 17th century. The town also retains a bazaar, an 18th-century mosque and two churches of the same period.
## justification_en
## 1 <em>Criterion (i):</em> The Buddha statues and the cave art in Bamiyan Valley are an outstanding representation of the Gandharan school in Buddhist art in the Central Asian region. \n <em>Criterion (ii)</em> : The artistic and architectural remains of Bamiyan Valley, and an important Buddhist centre on the Silk Road, are an exceptional testimony to the interchange of Indian, Hellenistic, Roman, Sasanian influences as the basis for the development of a particular artistic expression in the Gandharan school. To this can be added the Islamic influence in a later period. \n <em>Criterion (iii):</em> The Bamiyan Valley bears an exceptional testimony to a cultural tradition in the Central Asian region, which has disappeared. \n <em>Criterion (iv):</em> The Bamiyan Valley is an outstanding example of a cultural landscape which illustrates a significant period in Buddhism. \n <em>Criterion (vi):</em> The Bamiyan Valley is the most monumental expression of the western Buddhism. It was an important centre of pilgrimage over many centuries. Due to their symbolic values, the monuments have suffered at different times of their existence, including the deliberate destruction in 2001, which shook the whole world.
## 2 <em>Criterion (ii):</em> The innovative architecture and decoration of the Minaret of Jam played a significant role in the development of the arts and architecture of the Indian sub-continent and beyond. \n <em>Criterion (iii): </em>The Minaret of Jam and its associated archaeological remains constitute exceptional testimony to the power and quality of the Ghurid civilization that dominated its region in the 12th and 13th centuries. \n <em>Criterion (iv): </em>The Minaret of Jam is an outstanding example of Islamic architecture and ornamentation in this region and played a significant role in their further dissemination.
## 3
## date_inscribed secondary_dates danger date_end danger_list longitude latitude
## 1 2003 1 NA Y 2003 67.82525 34.84694
## 2 2002 1 NA Y 2002 64.51589 34.39642
## 3 2005 2008 0 NA 20.13333 40.06944
## area_hectares criteria_txt category_short iso_code udnp_code
## 1 158.9265 (i)(ii)(iii)(iv)(vi) C af afg
## 2 70.0000 (ii)(iii)(iv) C af afg
## 3 58.9000 (iii)(iv) C al alb
## transboundary
## 1 0
## 2 0
## 3 0## Generating the map
mymap <- data.frame(Type = data$category,
Name = data$name_en,
Country = data$states_name_en,
Latitude = data$latitude,
Longitude = data$longitude
)## Activating the map
map <- mymap %>%
leaflet() %>%
addTiles() %>%
addMarkers(popup=paste
("<br>Country: ",
htmlEscape(mymap$Country),
"<br>Name: ",
htmlEscape(mymap$Name),
"<br>Type: ",
htmlEscape(mymap$Type)
)
)## Assuming "Longitude" and "Latitude" are longitude and latitude, respectively## Show the map
map