0. 우리나라 전국 댐 위치 - 지도에 원형으로 저수율 표현하기 in R

선행 블로깅

http://gigle.tistory.com/67

[결과물]

[코드]

[전국 댐 위치 시각화 with R]

:: 사용 코드

library(ggmap)

## ggmap이 버전이슈가 최근에 있어서 오류가 날지도 모른다.

## 그런 경우 install.packages("ggmap", type = "source") 를 통해 다시 설치하면 해결.

library(ggplot2)

a <- read.csv(file = "20170624.csv", sep = "," , header = TRUE)

## 파일을 불러오기

sub_a <- subset(a, TJL > 0, select = c("LON","LAT","TJL"))

## 위도와 경도만 가져와서 subset을 만듭니다.

str(sub_a)

cent <- c(lon = 127.8, lat = 35.8)

sub_a$test1 <- sub_a$TJL/1.7

sub_a

## 한국(남한)기준 위도 경도의 중심입니다.

map <- ggmap(get_googlemap(center = cent, zoom = 7, maptype='roadmap', color = 'bw'), extent = 'device')

## map 변수에 구글 지도(남한) 부분을 저장합니다.

map + geom_point(data = sub_a, aes(x=LON, y=LAT), colour = 'royalblue', alpha = 0.75, size = sub_a$TJL/1.3)

## size 변수를 통해 원의 크기를 조절 / alpha를 통해서 투명도를 조절 / data를 통해 사용할 데이터 가져오기