Pyramid graph

\[Pyramid~graph\]

The data is about of ocupation works positions by gender and the value of percent of each one.

data <- structure(list(occupation = c("C-suite", "C-suite", "SVP", "SVP", 
"EVP", "Director", "sr.Director", "AD", "EVP", "Director", "sr.Director", 
"AD", "Manger", "IC", "Manger", "Entry Level", "IC", "Entry Level"
), Gender = c("Male", "Female", "Female", "Male", "Female", "Female", 
"Female", "Female", "Male", "Male", "Male", "Male", "Female", 
"Female", "Male", "Male", "Male", "Female"), Values = c(10L, 
12L, 23L, 30L, 35L, 40L, 45L, 45L, 45L, 45L, 50L, 50L, 67L, 68L, 
70L, 70L, 72L, 78L)), row.names = c(NA, -18L), class = c("tbl_df", 
"tbl", "data.frame"))

head(data)

##   occupation Gender Values
## 1    C-suite   Male     10
## 2    C-suite Female     12
## 3        SVP Female     23
## 4        SVP   Male     30
## 5        EVP Female     35
## 6   Director Female     40

library(tidyverse)
library(scales)


ggplot(data = data, 
       mapping = aes(reorder(x = occupation,-Values),
         y = ifelse(Gender == "Male", Values, -Values), 
         fill = Gender,
         label=paste(round(Values*1, 0), "%", sep="")
       )) +
  geom_bar(stat = "identity") +
  geom_text(hjust=ifelse(data$Gender == "Male",  
                         yes = 1, no =-0.1), 
                         size=3, 
                        colour="#140A02") +
  scale_y_continuous(labels = abs, 
                     limits = max(data$Values) * c(-1,1) * 1) +
  scale_fill_manual(values=as.vector(c("#B8FF33","#33FFE0")))+
  coord_flip()+
  labs(title="Percent ocuppation by gender",
       y="",
       x="")+
  theme( 
    panel.grid.major = element_blank(), 
    panel.grid.minor = element_blank(),
    panel.background = element_blank(),
    axis.text.x=element_blank(),
    axis.ticks= element_blank(),
    legend.position="bottom",
    legend.text=element_text(size=15)
  )