How to make Square (Pie) Charts for Infographics in R

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")

***