Creating dist plot for China province

China_province_dist.R

province_vec <- coronavirus %>% 
  dplyr::filter(type == "confirmed", Country.Region == "Mainland China") %>%
  dplyr::group_by(Province.State) %>%
  dplyr::summarise(total = sum(cases, na.rm = TRUE)) %>%
  dplyr::arrange(-total) %>%
  dplyr::select(province = Province.State) 


coronavirus %>% 
  dplyr::filter(type == "confirmed", Country.Region == "Mainland China") %>%
  dplyr::group_by(date, Province.State) %>%
  dplyr::summarise(total = sum(cases, na.rm = TRUE)) %>%
  dplyr::ungroup() %>%
  dplyr::mutate(province = Province.State) %>%
  dplyr::mutate(province = factor(province, levels = province_vec$province)) %>%
  plotly::plot_ly(
                  type = "scatter",
                  x = ~ date, y = ~ total,
                  color = ~ province,
                  mode = "lines",
                  fill = "tonexty",
                  groupnorm = 'percent',
                  stackgroup = 'one') %>%
  plotly::layout(title = "",
                 xaxis = list(title = "",
                              showgrid = FALSE),
                 yaxis = list(title = "",
                              showgrid = FALSE,
                              ticksuffix = '%',
                              hoverformat = '.2f'))