#------------------------------------------------------R Package--------------

library(readxl)

library(tidyverse)

library(expss)

library(ggthemes)

#

# Data Source:# https://github.com/ahshanulhaque/MyData/raw/main/MyData.xlsx

#

mydata%

select(main_id,v024,v025,v190, bmi)

#

A1 %>%

ggplot(aes(v025, bmi)) +

geom_boxplot(fill="bisque2",color="bisque3" )+

geom_boxplot(aes(fill = v024), alpha=.5)+

xlab("Place of residence")+

ylab("Maternal BMI")+

labs(fill = "Wealth index")+

theme(axis.text=element_text(size=12, colour="black"),

axis.title=element_text(size=12, colour="black"),

plot.background = element_rect(fill = "white"),

panel.background = element_rect(fill = "white"),

axis.line = element_line(color = "gray"),

)+

annotate("text", x = 1.3, y = 48,

label = "Mean diff. between Urban vs Rural [0.91 (95%CI: 88, 95)]",

color="black")