Re: 오늘의 마지막 문제. 오늘 배운 내용으로 시각화 하고 싶은 주제를 자유롭게 시각화 하시오 !

[19기_노승욱]

북한 지하철 위치를 나타낸 지도입니다.

# 필요한 패키지 설치
install.packages("ggplot2")
install.packages("ggmap") # 구글 지도 데이터를 시각화 하기 위한 패키지

# 패키지 로드
library(ggplot2)
library(ggmap)

# 구글 API 키 등록
register_google(key = "AIzaSyA5K8HMIbjPLPh72IWljls1k0FcrxoeCNQ")

# 데이터 로드 (서울 지하철 3호선 위경도 정보 파일 경로를 정확히 지정)
# 2호선 역의 위도와 경도 정보를 가지고 동그라미 표시를 위해
loc <- read.csv("북한.csv", header = TRUE,  fileEncoding ="euc-kr" )

# 중심점 계산
center <- c(mean(loc$Y좌표), mean(loc$X좌표))

# 구글 지도 가져오기
kor <- get_map(location = center, zoom = 7, maptype = "roadmap")
ggmap(kor)

# 지도 시각화(알파 = 투명도)
kor.map <- ggmap(kor) + 
  geom_point(data = loc, aes(x = Y좌표, y = X좌표), size = 3, alpha = 0.7, color = 'red')
# 지도 출력
print(kor.map)