문제 106번 질문 코드

[19기_이현서]

# plotly 패키지 로드
library(plotly)

# 작업 디렉토리 설정
setwd("c:\\data")

# 데이터 로드
data <- read.csv("korea2.csv", header = TRUE)
data #year는 년도, birth_rate는 출생율

j_data <- read.csv("japan2.csv", header = TRUE)
j_data #year는 년도, birth_rate는 출생율

kj_data <- merge(data,j_data, by="k_year")
kj_data

# plotly를 사용한 라인 그래프 생성 (승차수 라인만 출력)
fig <- plot_ly(kj_data, x = ~k_year) %>%
  add_trace(y = ~birth_rate.x, name = '한국', type = 'scatter', mode = 'lines+markers', line = list(color = 'skyblue')) %>%
  add_trace(y= ~birth_rate.y,name ='일본',type='scatter',mode='lines+markers', line=list(color='pink'))

# 그래프 출력
fig