b_21 <- aggregate(Tot_Suplr_Srvcs~Rfrg_Prvdr_Type, mdcr_21, sum) c_21 <- b_21[b_21$Rfrg_Prvdr_Type == 'Pulmonary Disease', c("Rfrg_Prvdr_Type","Tot_Suplr_Srvcs")] c_21$year <- 2021 c_21
mdcr_20 <- read.csv("mdcr_2020.csv",header=T) head(mdcr_20) b_20 <- aggregate(Tot_Suplr_Srvcs~Rfrg_Prvdr_Type, mdcr_20, sum) c_20 <- b_20[b_20$Rfrg_Prvdr_Type == 'Pulmonary Disease', c("Rfrg_Prvdr_Type","Tot_Suplr_Srvcs")] c_20$year <- 2020
c_20 mdcr_19 <- read.csv("mdcr_2019.csv",header=T) head(mdcr_19) b_19 <- aggregate(Tot_Suplr_Srvcs~Rfrg_Prvdr_Type, mdcr_19, sum) c_19 <- b_19[b_19$Rfrg_Prvdr_Type == 'Pulmonary Disease', c("Rfrg_Prvdr_Type","Tot_Suplr_Srvcs")] c_19$year <- 2019 c_19
# 각 년도를 하나로 묶기 c_data <- rbind(c_21, c_20) c_data d_data <- rbind(c_data, c_19) d_data
# 라인 그래프 생성 fig <- plot_ly(d_data, x = ~year) %>% add_trace(y = ~Tot_Suplr_Srvcs, type = 'scatter', mode = 'lines+markers', line = list(color = 'blue'))
# 그래프 출력 fig |