Weโre going to use Waffle package by the well-known boB Rudis.
# r
# devtools::install_github("hrbrmstr/waffle")
library(waffle)
## Loading required package: ggplot2
library(ggplot2)
# reference: https://www.kaggle.com/nulldata/hacker-women-in-tech-hackerrank-analysis
# eval=TRUE, echo=TRUE
hr_wo <- data.frame(
Gender = c("Male","Female"),
hr_percentage = c(183,17),
stringsAsFactors = FALSE)
hr_wo
## Gender hr_percentage
## 1 Male 183
## 2 Female 17
# eval=TRUE, echo=TRUE
ggplot(data = hr_wo,
aes(fill = Gender, values = hr_percentage)) +
geom_waffle(n_rows = 10, size = 0.5, colour = "#ffffff", flip = TRUE) +
scale_fill_manual(values = c("#f59cbf","#00daff")) +
coord_equal() +
theme_minimal() +
theme_enhance_waffle() +
labs(title = "% Male & Female - Survey Respondents ",
subtitle = "Hackerrank Developer Survey 2018",
caption = "Plot made using `waffle` - R package")
***