서울시 지하철 2호선 역위치를 지도 위에 표시하기
csv 파일 만들기
1. 구글 지도에서 역찾아서 해당역에 마우스 우측버튼 중앙으로 위치
2. 좌측 상단의 링크 버튼 클릭 후 링크 복사 해서 메모장에 붙여넣고
3. 첫번째 ll 값을 csv 파일에 저장한다.
> library(ggplot2)
> library(ggmap)
> loc <- read.csv("서울시지하철2호선위치정보.csv",header=T)
> loc
> kor <- get_map("seoul", zoom=11, maptype="roadmap")
> kor.map <- ggmap(kor) + geom_point(data=loc, aes(x=LON, y=LAT), size=5, alpha=0.7)
> kor.map + geom_text(data=loc, aes(x = LON, y = LAT+0.005, label=역명), size=3)
> ggsave("d:/yul/temp/line2.png", dpi=500)
제주도 여행 코스 지도에 표시하기
제주 국제 공항 → 점심 돔베돈 → 공룡랜드 → 협재해수욕장/한림공원 → 유리의 성 → 오설록티뮤지엄 → 테디베어뮤지엄 →
저녁 오성식당 → 중문관광단지 → 서귀포 KAL 호텔
> library(ggplot2)
> library(ggmap)
> loc <- read.csv("제주도여행코스정보.csv",header=T)
> loc
> kor <- get_map("hallasan", zoom=10, maptype="roadmap")
> kor.map <- ggmap(kor) + geom_point(data=loc, aes(x=LON, y=LAT), size=3, alpha=0.7, col="red")
> kor.map + geom_path(data=loc, aes(x=LON, y=LAT), size=3, alpha=0.7, col="red") + geom_text(data=loc, aes(x = LON, y = LAT+0.005, label=장소), size=2)
> ggsave("d:/yul/temp/jeju.png", dpi=700)
> library(ggplot2)
> library(ggmap)
> loc <- read.csv("서울지하철3호선정보.csv",header=T)
> loc
> kor <- get_map("seongbukku", zoom=11, maptype="roadmap")
> kor.map <- ggmap(kor) + geom_point(data=loc, aes(x=LON, y=LAT), size=3, alpha=0.7, col="red")
> kor.map + geom_path(data=loc, aes(x=LON, y=LAT), size=3, alpha=0.7, col="green") + geom_text(data=loc, aes(x = LON, y = LAT+0.005, label=역명), size=2)
> ggsave("d:/yul/temp/line3.png", dpi=700)