21/06/08 36일차 인공지능 교육

#지도에 구청위치 표시

 

 install.packages("googleVis")
 loc <- read.csv("서울시구청위치정보_new.csv",header=T)
 loc
 class(loc)
 str(loc)
 head(loc)
 #데이터프레임,위도:경도, 요약정보
hoffice <- gvisMap(loc, "LATLON" , "name",
    options=list(showTip=TRUE, showLine=TRUE, enableScrollWheel=TRUE,
           mapType='normal', useMapTypeControl=TRUE,
           width=1000,height=400))
plot(hoffice)

 

 

글씨가 깨지는 것은 페이지 소스 보기를 눌러 내부적으로 들어가 HTML코드를 고쳐야한다.

 

---

#인터랙티브 그래프

:마우스 움직임에 반응하여 실시간으로 형태가 변하는 그래프

인터랙티브 그래프를 만들시 그래프를 자유롭게 조작하면서 관심 있는 부분을 자세히 살펴볼수 있으며, HTML포맷으로 저장하면, 일반사용자들도 웹 브라우저를 이용해 그래프를 조작할 수 있음

 

#0 패키지 준비

install.packages("plotly")

library(plotly)

library(ggplot2)

 

#1데이터 선정 및 배경

ggplot(
  data=mpg, aes(x=displ, y=hwy, col=drv))

#2데이터 선정 및 배경 + 그래프 선정

p <- ggplot(
  data=mpg, aes(x=displ, y=hwy, col=drv)) +
  geom_point()

ggplotly(p)

 

 

 

커서를 갖다대면 값이 나타나고 마우스를 드래그하면 특정 영역을 확대할수 있음