pacman::p_load(readr,dplyr,xlsx)
fra.lforce <- read_csv("Books/xls2R/data/labor-force-stats.csv",
                        show_col_types = FALSE)
#Summarize LFS data by gender
by.gender <- fra.lforce%>%
  group_by(gender)%>%
  summarise(across(where(is.numeric),sum))
by.gender.tot <- (fra.lforce %>%
  summarise(across(where(is.numeric),sum)) %>%
  mutate(gender="All"))[,c(5,1:4)]
by.gender <- rbind(by.gender.tot,by.gender)

#Summarize LFS by age
by.age <-fra.lforce%>%
  group_by(age)%>%
  summarise(across(where(is.numeric),sum))
by.age.tot <- (fra.lforce %>%
  summarise(across(where(is.numeric),sum)) %>%
  mutate(age="All"))[,c(5,1:4)]
by.age <- rbind(by.age.tot,by.age)

#-- Creating the workbook containing statistics by gender and age
wb <- createWorkbook()
sht.byage <- createSheet(wb, sheetName="byage")
sht.bysex <- createSheet(wb, sheetName="bysex")
addDataFrame(as.data.frame(by.gender), sht.bysex,row.names = FALSE)
addDataFrame(as.data.frame(by.age), sht.byage,row.names = FALSE)
saveWorkbook(wb, "Books/xls2R/data/labor force data analysis1.xlsx")