Re: 오늘의 마지막 문제. 오늘배운 히스토그램, 박스 그래프, 워드 클라우드 등을 이용해서..

[19기_이동근]

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

# 데이터 불러오기
ty <- read.csv("ty_all.csv", header = T)

# 쁘라삐룬과 카눈의 관측 시간대별 최대풍속 뽑아서 새 데이터 프레임 생성
t1 <- ty[(ty$TY_NAME == '쁘라삐룬')&(ty$EXP_TIME == 0), c("TY_DATE", "TY_NAME", "V_KMH")]
t2 <- ty[(ty$TY_NAME == '카눈')&(ty$EXP_TIME == 0), c("TY_DATE", "TY_NAME", "V_KMH")]

# 최대풍속 데이터만 추출
x1 <- t1$V_KMH
x2 <- t2$V_KMH

# 최대풍속으로 박스 그래프 생성
fig1 <- plot_ly(y = ~x1, type = "box", name = "18년 쁘라삐룬 최대풍속")
fig2 <- plot_ly(y = ~x2, type = "box", name = "23년 카눈 최대풍속")

# 쁘라삐룬의 박스 그래프와 카눈 박스 그래프 하나로 합치기
fig <- subplot(fig1, fig2, nrows = 1, titleX = TRUE, titleY = TRUE)

# 레이아웃 업데이트 (y축 범위 통일)
fig <- fig %>% layout(title = "18년에 온 쁘라삐룬과 5년 후 23년에 온 카눈의 최대풍속 비교~~",
                      margin = 0,
                      yaxis = list(range = c(min(c(x1, x2)), max(c(x1, x2))))
                      )

fig