8000미터 봉우리

8000미터 급산K2 – CC BY-NC-ND by Marcelo Aguilar. 30DayMapChallenge 첫째 날: « Points ». 8000 m 이상인 정상(일명 “8000미터 급산”)을 지도에 표시합니다.필요 패키지library(httr) library(glue) library(dplyr) library(tidyr) library(purrr) library(tibble) library(stringr) library(sf) library(leaflet)데이터데이터를 얻기 위한 비정형적인 옵션이 여러 가지 있습니다. 영어 위키피디아에는 지리 좌표가 없으며(다른 언어 위키피디아는 제공), Wikidata에 대한 SPARQL 쿼리를 제대로 실행할 수 없었습니다(지식 부족). SPINACH Wikidata Agent의 도움을 받았지만 성공하지 못했습니다. OpenStreetMap에는 가져올 수 있는 간단한 relation도 없습니다. 결국 Overpass API를 직접 호출하기로 했으며, {osmdata} 패키지도 사용할 수 있었을 것입니다.히말라야와 카라코람 영역을 경계로 설정하고, 고도 8000 m 이상이며 위용(prominence) 500 m인 정상(주요 산)만을 유지했습니다(그렇지 않으면 여러 부차적인 정상들이 포함될 수 있습니다). 실행 시간은 약 1분 정도 걸릴 것입니다.overpass_query %>% map(enframe) %>% map(pivot_wider) %>% list_rbind() %>% rename_with(~ str_replace(x, "^tags\\.", "")) %>% st_as_sf(coords = c("lon", "lat"), crs = "EPSG:4326")표 1: 8000미터 급산Simple feature collection with 14 features and 2 fieldsGeometry type: POINT Dimension: XY Bounding box: xmin = 74.58954, ymin = 27.70301, xmax = 88.14748, ymax = 35.88168 Geodetic CRS: WGS 84# A tibble: 14 × 3 name elevation geometry 1 Mount Everest 8848.86 (86.92521 27.98806) 2 K2 8611 (76.51333 35.88168) 3 Kangchenjunga 8586 (88.14748 27.70301) 4 Lhotse 8516 (86.93250 27.96199) 5 Mount Makalu 8485 (87.08844 27.89144) 6 Cho Oyu 8201 (86.65963 28.09675) 7 Dhaulagiri 8167 (83.48949 28.69761) 8 Manaslu 8163 (84.55973 28.54998) 9 Nanga Parbat 8126 (74.58954 35.23846) 10 Annapurna I 8091 (83.81992 28.59581) 11 Gasherbrum I 8080 (76.69762 35.72468) 12 Broad Peak 8051 (76.56556 35.81369) 13 Gasherbrum II 8034 (76.65327 35.75773) 14 Shishapangma 8027 (85.78207 28.35176)지도 시각화summits_sf %>% leaflet() %>% addTiles(attribution = r"( r.iresmi.net. data and map: OpenStreetMap)") %>% addCircleMarkers(popup = ~ glue("{name} ({`name:en`}) {ele} m"), clusterOptions = markerClusterOptions())Figure 1: 8000미터 급산 지도