# NOT RUN {
d <- div_fake_team()
tbl_gender_div <- table(d$gender, d$grade) %>%
apply(2, diversity, prior = c(50.2, 49.8)) %>%
tibble(value = ., label = paste("Grade", names(.)))
div_gauge_plot(tbl_gender_div, ncol = 2, nbrSize = 4)
# }
Run the code above in your browser using DataLab