Philippines Employment by Sex Data Visualization

The aim of the application is to visualize the data collected by the World Bank group on the gap between males and females in terms of different indicators related to employment.

The app can be found here while the source code for the app and this presentation is here

The dataset was taken from World Bank Group Gender Indicators for the Philippines.

It has different indicators taken over different years that shows the the percentage of males in females as employers and employees in different sectors.

     Country Name Country.ISO3 Year
1382  Philippines          PHL 2020
1383  Philippines          PHL 2019
1384  Philippines          PHL 2018
                                                                             Indicator
1382 Employment in agriculture, female (% of female employment) (modeled ILO estimate)
1383 Employment in agriculture, female (% of female employment) (modeled ILO estimate)
1384 Employment in agriculture, female (% of female employment) (modeled ILO estimate)
                  Code  Value
1382 SL.AGR.EMPL.FE.ZS 13.174
1383 SL.AGR.EMPL.FE.ZS 13.778
1384 SL.AGR.EMPL.FE.ZS 14.361

Using the Indicator to get the subset of the data that the user wishes to visualize, a plot similar to the below is printed out upon clicking “Submit”.

The below code shows the sample plot with input variable defined as variable to mimic how the server.R code works.

plotSub <- df[df$ShortCode == variable,]
titleText <-unique(df[df$ShortCode == variable,]$ShortName)
gPlot <- ggplot(as.data.frame(plotSub), aes(x = Year, y = Value, color = Sex))+
  geom_point() +
  labs(title = titleText)
gPlot