오일 스필

오일드 버드 - 흑해 오일 유출 사건 (2007년 11월 12일) © Igor GOLUBENKOV (Marine Photobank) CC BY 30DayMapChallenge Day 28 – « Black » (이전) 리우, 인, 카이(Liu, Yin, and Cai)의 2025년 연구에 따르면 1967년부터 2023년까지의 전 세계 오일 유출 데이터셋이 존재합니다. library(glue) library(dplyr) library(sf) library(janitor) library(readxl) library(leaflet) library(leaflet.providers) library(leaflet.extras) # Data # https://figshare.com/ndownloader/files/55233773 if (!file.exists("enhanced_global_oil_spill_data_240711.xlsx")) { download.file("https://figshare.com/ndownloader/files/55233773", "enhanced_global_oil_spill_data_240711.xlsx") } oil %>% mutate(release_m3 = if_else(max_ptl_release_gallons == -1, NA_real_, round(0.00454609 * max_ptl_release_gallons))) %>% st_as_sf(coords = c("lon", "lat"), crs = "EPSG:4326") # Map oil %>% leaflet() %>% addTiles(attribution = r"( r.iresmi.net. data Liu et al. )") %>% addProviderTiles("Stadia.AlidadeSmoothDark") %>% addCircleMarkers(radius = ~ release_m3 / 1e3, color = "grey", popup = ~ glue("{name} {open_date} {commodity} - {release_m3} m³ {description}"), clusterOptions = markerClusterOptions()) %>% addFullscreenControl() Figure 1: Oil spills 1967-2023 References: Liu, Yiming, Zhuoli Yin, and Hua Cai. 2025. “Enhanced Global Oil Spill Dataset from 1967 to 2023 Based on Text-Form Incident Information.” Scientific Data 12 (1): 1394. https://doi.org/10.1038/s41597-025-05601-9