Obesity Among Men & Women in Mexico

Packages and Data

library(tidyverse)

obm <- read.csv("obesity_mexico.csv")
str(obm)
head(obm)
summary(obm)

Boxplot

a <- ggplot(data=obm, mapping=aes(
  x=Obesity, y=Gender,
  color=Gender, fill=Gender)) + 
  geom_boxplot(alpha=0.5) + 
  geom_jitter(shape=21,fill="black",size=2) + 
  scale_x_continuous(name="",
                     breaks=seq(0,35,10),
                     labels=paste0(seq(0,35,10),"%")) + 
  scale_y_discrete(name="") + 
  theme_bw() + 
  scale_color_manual(values=c("#9C469D","#FF0058","#32517D")) + 
  scale_fill_manual(values=c("#9C469D","#FF0058","#32517D")) + 
  labs(title="Percentage of BMI Greater than 30kg/m^2 of Adults in Mexico",
       subtitle="Percentage of Obesity") + 
  theme(
    panel.grid.major.y=element_blank(),
    panel.grid.minor.y=element_blank(),
    legend.position="none",
    axis.text=element_text(size=11,color="gray5"),
    axis.title.x=element_text(color="gray5",size=14),
    axis.title.y=element_text(color="gray5",size=14))
a