철도

30DayMapChallenge 25일–26일: “Hexagons”와 “Transports” beeveephoto가 제공한 CC BY-SA 라이선스 하에, 이번 게시물에서는 프랑스 철도선의 소멸을 추정해 보았습니다. 아래 코드에서는 R의 sf, glue, ggplot2 패키지를 사용합니다. library(sf) library(glue) library(ggplot2) 먼저, 철도 데이터 파일을 읽어옵니다. railways <- st_read("data/railways_france.shp") 그 다음, 각 연도별 철도 선의 길이를 계산하고, 소멸률을 추정합니다. # 연도별 길이 계산 예시 railways_yearly <- railways %% mutate(year = as.numeric(gsub(".*_(\\d{4})\\.shp$", "\\1", file_path))) %% group_by(year) %% summarise(length_km = sum(st_length(geometry))/1000) # 소멸률 계산 decline_rate <- diff(railways_yearly$length_km) / railways_yearly$length_km[-nrow(railways_yearly)] 마지막으로, 결과를 시각화합니다. ggplot(railways_yearly, aes(x = year, y = length_km)) + geom_line(color = "steelblue") + geom_point(color = "steelblue") + labs(title = "프랑스 철도선 길이 변동", x = "연도", y = "길이 (km)") + theme_minimal() 위와 같은 과정을 통해 프랑스 철도선이 시간이 지남에 따라 어떻게 감소하고 있는지를 확인할 수 있습니다. 데이터와 코드를 활용하여 추가적인 분석을 진행해 보세요.