How to draw race bar?

General
1

How to draw a race bar chart using higcharter or ramcharts on gapminder data simillar to this chart

image
image965×486 38.3 KB

library(tidyverse)
library(gapminder)
dataset <- gapminder::gapminder %>% 
  dplyr::filter(continent == "Asia") %>% 
  dplyr::group_by(country) %>%
  tidyr::complete(year = full_seq(year, 1)) %>%
  mutate(pop = spline(x = year, y = pop, xout = year)$y) %>%
  group_by(year) %>%
  mutate(rank = min_rank(-pop) * 1) %>%
  ungroup()
2

This topic was automatically closed 42 days after the last reply. New replies are no longer allowed.

If you have a query related to it or one of the replies, start a new topic and refer back with a link.