서울시 초등학교 데이터입니다

[19기 경진우]

- 데이터 불러오기

library(plotly)

setwd("c:\\data")

sch <- read.csv("school.csv", header = TRUE,
                                     fileEncoding = "euc-kr")


- 학교 구분에 따른 색상 설정
colors <- ifelse ( sch$학교구분 == "과밀학교", "red", 
               ifelse ( sch$학교구분 == "적정학교", "lightgreen", "royalblue" ) )
         

- plotly를 사용한 산포도 그래프
fig <- plot_ly (
                      data = sch,
                      x = ~LONGITUDE,
                      y = ~LATITUDE,
                      type = 'scatter',
                     mode = 'markers',
                     marker = list(color = colors),
text = ~paste(
                        "위도: ", LATITUDE, "경도: ", LONGITUDE,
                        "\n학교 이름: ", S_NAME,
                        "\n학교 구분: ", 학교구분
                       ),
hoverinfo = "text"
)

fig <- layout(
                     fig,
                     title = '서울시 초등학교 분포',
                     xaxis = list(title = '경도'),
                     yaxis = list(title = '위도')
)

fig

school.csv

43.60KB