> install.packages("ggmap")
Installing package into ‘C:/Users/stu/Documents/R/win-library/3.0’
(as ‘lib’ is unspecified)
--- Please select a CRAN mirror for use in this session ---
trying URL 'http://cran.nexr.com/bin/windows/contrib/3.0/ggmap_2.3.zip'
Content type 'application/zip' length 4529152 bytes (4.3 Mb)
opened URL
downloaded 4.3 Mb
package ‘ggmap’ successfully unpacked and MD5 sums checked
The downloaded binary packages are in
C:\Users\stu\AppData\Local\Temp\RtmpgZ5tKd\downloaded_packages
> install.packages("ggplot2")
Installing package into ‘C:/Users/stu/Documents/R/win-library/3.0’
(as ‘lib’ is unspecified)
trying URL 'http://cran.nexr.com/bin/windows/contrib/3.0/ggplot2_0.9.3.1.zip'
Content type 'application/zip' length 2657759 bytes (2.5 Mb)
opened URL
downloaded 2.5 Mb
package ‘ggplot2’ successfully unpacked and MD5 sums checked
The downloaded binary packages are in
C:\Users\stu\AppData\Local\Temp\RtmpgZ5tKd\downloaded_packages
> library(ggplot2)
> library(ggmap)
> setwd("d:/yul/temp")
> loc <- read.csv("지역별장애인도서관정보.csv", header=T)
> loc
도서관코드 도서관명 자치구코드
1 74 하상시각장애인도서관 8
2 76 한국시각장애인복지재단점자도서관[이동도서관] 10
3 77 한국점자도서관 10
4 71 강서점자도서관 1
5 73 실로암점자도서관 5
6 70 서울점자도서관 22
7 870 영광시각장애인\n 모바일점자도서관 14
8 871 성북점자도서관 19
9 75 인성시각장애인도서관 9
10 873 한국학생점자도서관 17
11 68 종달새전화도서관 15
자치구명 주소 전화번호
1 강남구 서울 강남구 개포동 12-5 하상장애인복지회관 02-451-6000
2 강동구 서울 강동구 상일동 126 440-5201
3 강동구 서울 강동구 암사2동 510-23 3426-7411~4
4 강서구 서울 강서구 공항동 301-13 02-2661-2278,2291
5 관악구 서울특별시 관악구 남부순환로 1717 02-880-0500
6 노원구 서울 노원구 공릉2동 421-19 현대프라자 935-9696
7 서대문구 서울특별시 서대문구 북아현로 26-10 0
8 성북구 서울특별시 성북구 동소문로25가길 20 923-4555
9 송파구 송파구 마천동 211-90 422-6070
10 종로구 서울특별시 종로구 누하동 64 태평타운 402호 738-0890
11 중구 서울특별시 중구 퇴계로12길 17 02-736-3000
홈페이지 도서관구분 LAT LON
1 http://onsori.or.kr 장애인도서관 37.49251 127.0751
2 http://www.hsb.or.kr 장애인도서관 37.55106 127.1692
3 http://infor.kbll.or.kr 장애인도서관 37.55069 127.1248
4 http://www.ksbl.or.kr/ 장애인도서관 37.55736 126.8129
5 http://www.silwel.or.kr 장애인도서관 37.48395 126.9415
6 http://kbuwel.or.kr 장애인도서관 37.62691 127.0796
7 장애인도서관 37.55942 126.9570
8 www.sorimaeul.net 장애인도서관 37.59534 127.0192
9 http://hotlineworld.net/ 장애인도서관 37.49386 127.1552
10 http://www.silwel.or.kr 장애인도서관 37.57985 126.9685
11 http://www.jongdal.or.kr/ 장애인도서관 37.55878 126.9818
> kor <- get_map("seoul", zoom=11, maptype = "roadmap")
Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=seoul&zoom=11&size=%20640x640&scale=%202&maptype=roadmap&sensor=false
Google Maps API Terms of Service : http://developers.google.com/maps/terms
Information from URL : http://maps.googleapis.com/maps/api/geocode/json?address=seoul&sensor=false
Google Maps API Terms of Service : http://developers.google.com/maps/terms
> 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.05, label=자치구명),size=3)
> ggsave("d:/yul/temp/lib.png", dpi=700)
Saving 7 x 6.99 in image
- maptype = "roadmap"
- maptype = "terrain"
- maptype = "satellite"
