Re: 오늘의 마지막 문제. SQL 포트폴리오 데이터 중에 하나로 Plotly 로 막대 그래프로 시각화 하시오 !

[19기 경진우]

< 학교 구분별 인원수를 막대 그래프로 시각화 하시오 >

#1 데이터 프레임 생성

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

#2 학교 구분별 건수 출력
sch_count <- table( sch$학교구분 )
sch_count

#3 plotly를 사용해 막대 그래프 생성
fig <- plot_ly ( x = names(sch_count),
                 y = as.numeric(sch_count),
                 type = 'bar',
                 marker = list(color = colors) )

#4 그래프 출력
fig