Practica de histograma por genero

file_path <- ("C:/Users/Hp/OneDrive/Documents/Clases II Semestre 2024/Analisis Econometrico I/Semana 4/cps_ch3.xlsx")
cps_ch3 <- read_excel (file_path)

ggplot(data=cps_ch3 , aes(x=ahe08, fill=a_sex)) +
  geom_histogram()+
  facet_wrap(~ a_sex) +
  theme_classic()

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.