Re: 오늘의 마지막 문제. 오늘 그린 그래프들을 이용해서 SQL 포트폴리오 데이터를 이용해서...

[19기_이동근]

# 라이브러리 불러오기
library(plotly)

# 경로 설정 및 데이터 불러오기
setwd("c://data")
ty <- read.csv("ty_all.csv", header = T)
head(ty)

# 태풍 데이터에서 연도와 이름 뽑고 중복 제거
ty$tyear <- substr(ty$TY_DATE, 1, 4)
ty2 <- unique(ty[ , c("tyear", "TY_NAME")])

# 연도를 기준으로 카운트해서 년도별 영향 태풍 갯수 세기
tyear_cnt <- table(ty2$tyear)

# 색상 목록 정의
colors <- c("#5D3787", "#240C3E", "#8C62B9", "#B98EE6", "#5D3787", "#D7B2FF" )

# plotly를 사용한 원형 그래프 생성
fig <- plot_ly(labels = names(tyear_cnt),
               values = as.numeric(tyear_cnt),
               type = 'pie',
               marker = list(colors = colors))
               
fig <- fig %>% layout(title = '18~23년 태풍 발생 수 비율', margin = 4)
               
fig