Re: 문제139. 여러분들이 사는 동네에 지도를 구글 지도로 시각화 하시오 !

[19기_이동근]

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

# 데이터 로드 (학교 위경도 정보 파일 경로를 정확히 지정)
school <- read.csv("school.csv", header = TRUE, fileEncoding = "euc-kr")

# 중심점 계산
center <- c(mean(126.86556982413006), mean(37.550756909912735))

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

# 지도 시각화
kor.map <- ggmap(kor) + 
  geom_point(aes(x = 126.86556982413006, y = 37.550756909912735), size = 4, shape = 21, fill = "red", color = "black", alpha = 0.7)

# 지도 출력
print(kor.map)