EPH 4T 2025

# Filtrar hogares del Gran Buenos Aires (AGLOMERADO == 32) con ingresos POSITIVOS
hogares_caba <- hogares_eph %>%
  filter(AGLOMERADO == 32) %>%
  filter(!is.na(ITF), ITF > 0)  # Excluye NA, ceros y negativos

# Verificar cantidad de hogares
cat("Hogares en GBA con ITF válido (>0):", format(nrow(hogares_caba), big.mark = "."), "\n")

## Hogares en GBA con ITF válido (>0): 372

# Verificar si hay datos suficientes (mínimo 10 hogares para deciles)
if(nrow(hogares_caba) >= 10) {
  
  # Calcular deciles
  hogares_caba <- hogares_caba %>%
    mutate(decil = ntile(ITF, 10))
  
  # Tabla resumen de deciles con formato argentino
  resumen_decilesCABA <- hogares_caba %>%
    group_by(decil) %>%
    summarise(
      Hogares = n(),
      Ingreso_minimo = min(ITF),
      Ingreso_maximo = max(ITF),
      Ingreso_promedio = mean(ITF),
      Ingreso_mediana = median(ITF),
      Participacion = n() / nrow(hogares_caba) * 100
    ) %>%
    mutate(
      Ingreso_minimo = dollar(Ingreso_minimo, prefix = "$", big.mark = ".", decimal.mark = ",", accuracy = 1),
      Ingreso_maximo = dollar(Ingreso_maximo, prefix = "$", big.mark = ".", decimal.mark = ",", accuracy = 1),
      Ingreso_promedio = dollar(Ingreso_promedio, prefix = "$", big.mark = ".", decimal.mark = ",", accuracy = 1),
      Ingreso_mediana = dollar(Ingreso_mediana, prefix = "$", big.mark = ".", decimal.mark = ",", accuracy = 1),
      Hogares = format(Hogares, big.mark = ".", scientific = FALSE),
      Participacion = format(round(Participacion, 2), decimal.mark = ",", nsmall = 2)
    )
  
  # Mostrar tabla con kable_styling
  resumen_decilesCABA %>%
    kable(
      caption = "Deciles de Ingreso Total Familiar - Ciudad Autónoma de Buenos Aires (Aglomerado 32) - Solo ingresos positivos",
      format = "html",
      align = c("c", "r", "r", "r", "r", "r", "r"),
      col.names = c("Decil", "Hogares", "Ingreso Mínimo", "Ingreso Máximo", 
                    "Ingreso Promedio", "Ingreso Mediana", "Participación (%)")
    ) %>%
    kable_styling(
      bootstrap_options = c("striped", "hover", "condensed", "responsive"),
      full_width = FALSE,
      position = "center",
      font_size = 12
    ) %>%
    add_header_above(c(" " = 1, "Estadísticas de Ingreso" = 5, " " = 1)) %>%
    footnote(
      general = "Fuente: Elaboración propia en base a EPH - INDEC",
      number = paste("Total de hogares con ingreso positivo:", format(nrow(hogares_caba), big.mark = ".")),
      footnote_as_chunk = FALSE,
      title_format = c("italic", "underline")
    ) %>%
    row_spec(0, bold = TRUE, background = "#D3D3D3") %>%
    column_spec(1, bold = TRUE)
    
} else {
  cat("No hay suficientes hogares con ingresos positivos para calcular deciles. Mínimo necesario: 10 hogares.")
}

Deciles de Ingreso Total Familiar - Ciudad Autónoma de Buenos Aires (Aglomerado 32) - Solo ingresos positivos

	Estadísticas de Ingreso
Decil	Hogares	Ingreso Mínimo	Ingreso Máximo	Ingreso Promedio	Ingreso Mediana	Participación (%)
1	38	$188.000	$680.000	$482.842	$497.500	10,22
2	38	$680.000	$960.000	$803.316	$800.000	10,22
3	37	$990.000	$1.200.000	$1.088.386	$1.076.300	9,95
4	37	$1.200.000	$1.500.000	$1.360.568	$1.400.000	9,95
5	37	$1.500.000	$1.800.000	$1.649.865	$1.600.000	9,95
6	37	$1.800.000	$2.112.000	$1.969.838	$2.000.000	9,95
7	37	$2.140.000	$2.600.000	$2.391.270	$2.400.000	9,95
8	37	$2.600.000	$3.430.000	$2.961.588	$2.980.000	9,95
9	37	$3.450.000	$4.870.000	$3.975.180	$3.950.000	9,95
10	37	$4.900.000	$15.600.000	$7.905.189	$7.000.000	9,95
Note:
Fuente: Elaboración propia en base a EPH - INDEC
1 Total de hogares con ingreso positivo: 372

# Filtrar hogares del Gran Buenos Aires (REGION == 01) con ingresos POSITIVOS
hogares_gba <- hogares_eph %>%
  filter(REGION == 01) %>%
  filter(!is.na(ITF), ITF > 0)  # Excluye NA, ceros y negativos

# Verificar cantidad de hogares
cat("Hogares en GBA con ITF válido (>0):", format(nrow(hogares_gba), big.mark = "."), "\n")

## Hogares en GBA con ITF válido (>0): 1.445

# Verificar si hay datos suficientes (mínimo 10 hogares para deciles)
if(nrow(hogares_gba) >= 10) {
  
  # Calcular deciles
  hogares_gba <- hogares_gba %>%
    mutate(decil = ntile(ITF, 10))
  
  # Tabla resumen de deciles con formato argentino
  resumen_decilesGBA <- hogares_gba %>%
    group_by(decil) %>%
    summarise(
      Hogares = n(),
      Ingreso_minimo = min(ITF),
      Ingreso_maximo = max(ITF),
      Ingreso_promedio = mean(ITF),
      Ingreso_mediana = median(ITF),
      Participacion = n() / nrow(hogares_gba) * 100
    ) %>%
    mutate(
      Ingreso_minimo = dollar(Ingreso_minimo, prefix = "$", big.mark = ".", decimal.mark = ",", accuracy = 1),
      Ingreso_maximo = dollar(Ingreso_maximo, prefix = "$", big.mark = ".", decimal.mark = ",", accuracy = 1),
      Ingreso_promedio = dollar(Ingreso_promedio, prefix = "$", big.mark = ".", decimal.mark = ",", accuracy = 1),
      Ingreso_mediana = dollar(Ingreso_mediana, prefix = "$", big.mark = ".", decimal.mark = ",", accuracy = 1),
      Hogares = format(Hogares, big.mark = ".", scientific = FALSE),
      Participacion = format(round(Participacion, 2), decimal.mark = ",", nsmall = 2)
    )
  
  # Mostrar tabla con kable_styling
  resumen_decilesGBA %>%
    kable(
      caption = "Deciles de Ingreso Total Familiar - Gran Buenos Aires (REGION 01) - Solo ingresos positivos",
      format = "html",
      align = c("c", "r", "r", "r", "r", "r", "r"),
      col.names = c("Decil", "Hogares", "Ingreso Mínimo", "Ingreso Máximo", 
                    "Ingreso Promedio", "Ingreso Mediana", "Participación (%)")
    ) %>%
    kable_styling(
      bootstrap_options = c("striped", "hover", "condensed", "responsive"),
      full_width = FALSE,
      position = "center",
      font_size = 12
    ) %>%
    add_header_above(c(" " = 1, "Estadísticas de Ingreso" = 5, " " = 1)) %>%
    footnote(
      general = "Fuente: Elaboración propia en base a EPH - INDEC",
      number = paste("Total de hogares con ingreso positivo:", format(nrow(hogares_gba), big.mark = ".")),
      footnote_as_chunk = FALSE,
      title_format = c("italic", "underline")
    ) %>%
    row_spec(0, bold = TRUE, background = "#D3D3D3") %>%
    column_spec(1, bold = TRUE)
    
} else {
  cat("No hay suficientes hogares con ingresos positivos para calcular deciles. Mínimo necesario: 10 hogares.")
}

Deciles de Ingreso Total Familiar - Gran Buenos Aires (REGION 01) - Solo ingresos positivos

	Estadísticas de Ingreso
Decil	Hogares	Ingreso Mínimo	Ingreso Máximo	Ingreso Promedio	Ingreso Mediana	Participación (%)
1	145	$3.000	$495.000	$337.015	$350.000	10,03
2	145	$500.000	$740.000	$626.648	$628.000	10,03
3	145	$740.000	$920.000	$832.366	$820.000	10,03
4	145	$920.000	$1.138.000	$1.024.961	$1.000.000	10,03
5	145	$1.140.000	$1.400.000	$1.266.597	$1.250.000	10,03
6	144	$1.400.000	$1.693.000	$1.530.108	$1.500.000	9,97
7	144	$1.700.000	$2.000.000	$1.864.653	$1.860.000	9,97
8	144	$2.000.000	$2.600.000	$2.321.314	$2.311.000	9,97
9	144	$2.600.000	$3.660.000	$3.081.014	$3.006.500	9,97
10	144	$3.660.000	$19.000.000	$5.785.879	$4.800.000	9,97
Note:
Fuente: Elaboración propia en base a EPH - INDEC
1 Total de hogares con ingreso positivo: 1.445

# Filtrar hogares inquilinos del Gran Buenos Aires (AGLOMERADO == 32) con ingresos POSITIVOS
hogares_caba_inquilinos <- hogares_eph %>%
  filter(AGLOMERADO == 32) %>%
  filter(II7 == 3) %>%  # Inquilinos: II7 = 3
  filter(!is.na(ITF), ITF > 0)

# Verificar cantidad de hogares
cat("Hogares inquilinos en CABA con ITF válido (>0):", format(nrow(hogares_caba_inquilinos), big.mark = "."), "\n")

## Hogares inquilinos en CABA con ITF válido (>0): 139

# Verificar si hay datos suficientes (mínimo 10 hogares para deciles)
if(nrow(hogares_caba_inquilinos) >= 10) {
  
  # Calcular deciles
  hogares_caba_inquilinos <- hogares_caba_inquilinos %>%
    mutate(decil = ntile(ITF, 10))
  
  # Tabla resumen de deciles con formato argentino
  resumen_decilesCABA_inquilinos <- hogares_caba_inquilinos %>%
    group_by(decil) %>%
    summarise(
      Hogares = n(),
      Ingreso_minimo = min(ITF),
      Ingreso_maximo = max(ITF),
      Ingreso_promedio = mean(ITF),
      Ingreso_mediana = median(ITF),
      Participacion = n() / nrow(hogares_caba_inquilinos) * 100
    ) %>%
    mutate(
      Ingreso_minimo = dollar(Ingreso_minimo, prefix = "$", big.mark = ".", decimal.mark = ",", accuracy = 1),
      Ingreso_maximo = dollar(Ingreso_maximo, prefix = "$", big.mark = ".", decimal.mark = ",", accuracy = 1),
      Ingreso_promedio = dollar(Ingreso_promedio, prefix = "$", big.mark = ".", decimal.mark = ",", accuracy = 1),
      Ingreso_mediana = dollar(Ingreso_mediana, prefix = "$", big.mark = ".", decimal.mark = ",", accuracy = 1),
      Hogares = format(Hogares, big.mark = ".", scientific = FALSE),
      Participacion = format(round(Participacion, 2), decimal.mark = ",", nsmall = 2)
    )
  
  # Mostrar tabla con kable_styling
  resumen_decilesCABA_inquilinos %>%
    kable(
      caption = "Deciles de Ingreso Total Familiar - Ciudad Autónoma de Buenos Aires (Aglomerado 32) - Solo Hogares Inquilinos (II7 = 3)",
      format = "html",
      align = c("c", "r", "r", "r", "r", "r", "r"),
      col.names = c("Decil", "Hogares", "Ingreso Mínimo", "Ingreso Máximo", 
                    "Ingreso Promedio", "Ingreso Mediana", "Participación (%)")
    ) %>%
    kable_styling(
      bootstrap_options = c("striped", "hover", "condensed", "responsive"),
      full_width = FALSE,
      position = "center",
      font_size = 12
    ) %>%
    add_header_above(c(" " = 1, "Estadísticas de Ingreso" = 5, " " = 1)) %>%
    footnote(
      general = "Fuente: Elaboración propia en base a EPH - INDEC",
      number = paste("Total de hogares inquilinos con ingreso positivo:", format(nrow(hogares_caba_inquilinos), big.mark = ".")),
      footnote_as_chunk = FALSE,
      title_format = c("italic", "underline")
    ) %>%
    row_spec(0, bold = TRUE, background = "#D3D3D3") %>%
    column_spec(1, bold = TRUE)
    
} else {
  cat("No hay suficientes hogares inquilinos con ingresos positivos para calcular deciles. Mínimo necesario: 10 hogares.")
}

Deciles de Ingreso Total Familiar - Ciudad Autónoma de Buenos Aires (Aglomerado 32) - Solo Hogares Inquilinos (II7 = 3)

	Estadísticas de Ingreso
Decil	Hogares	Ingreso Mínimo	Ingreso Máximo	Ingreso Promedio	Ingreso Mediana	Participación (%)
1	14	$188.000	$680.000	$488.071	$521.000	10,07
2	14	$700.000	$1.000.000	$861.429	$875.000	10,07
3	14	$1.000.000	$1.300.000	$1.118.736	$1.100.000	10,07
4	14	$1.300.000	$1.500.000	$1.408.571	$1.400.000	10,07
5	14	$1.500.000	$1.800.000	$1.668.214	$1.700.000	10,07
6	14	$1.800.000	$2.000.000	$1.903.357	$1.900.000	10,07
7	14	$2.000.000	$2.500.000	$2.309.286	$2.340.000	10,07
8	14	$2.500.000	$3.150.000	$2.770.462	$2.688.235	10,07
9	14	$3.200.000	$4.000.000	$3.551.857	$3.485.000	10,07
10	13	$4.500.000	$15.200.000	$6.224.615	$5.000.000	9,35
Note:
Fuente: Elaboración propia en base a EPH - INDEC
1 Total de hogares inquilinos con ingreso positivo: 139

# Filtrar hogares inquilinos del Gran Buenos Aires (REGION == 01) con ingresos POSITIVOS
hogares_gba_inquilinos <- hogares_eph %>%
  filter(REGION == 01) %>%
  filter(II7 == 3) %>%  # Inquilinos: II7 = 3
  filter(!is.na(ITF), ITF > 0)

# Verificar cantidad de hogares
cat("Hogares inquilinos en GBA con ITF válido (>0):", format(nrow(hogares_gba_inquilinos), big.mark = "."), "\n")

## Warning in prettyNum(.Internal(format(x, trim, digits, nsmall, width, 3L, :
## 'big.mark' y 'decimal.mark' son ambos '.', lo cual puede ser confuso

## Hogares inquilinos en GBA con ITF válido (>0): 326

# Verificar si hay datos suficientes (mínimo 10 hogares para deciles)
if(nrow(hogares_gba_inquilinos) >= 10) {
  
  # Calcular deciles
  hogares_gba_inquilinos <- hogares_gba_inquilinos %>%
    mutate(decil = ntile(ITF, 10))
  
  # Tabla resumen de deciles con formato argentino
  resumen_decilesGBA_inquilinos <- hogares_gba_inquilinos %>%
    group_by(decil) %>%
    summarise(
      Hogares = n(),
      Ingreso_minimo = min(ITF),
      Ingreso_maximo = max(ITF),
      Ingreso_promedio = mean(ITF),
      Ingreso_mediana = median(ITF),
      Participacion = n() / nrow(hogares_gba_inquilinos) * 100
    ) %>%
    mutate(
      Ingreso_minimo = dollar(Ingreso_minimo, prefix = "$", big.mark = ".", decimal.mark = ",", accuracy = 1),
      Ingreso_maximo = dollar(Ingreso_maximo, prefix = "$", big.mark = ".", decimal.mark = ",", accuracy = 1),
      Ingreso_promedio = dollar(Ingreso_promedio, prefix = "$", big.mark = ".", decimal.mark = ",", accuracy = 1),
      Ingreso_mediana = dollar(Ingreso_mediana, prefix = "$", big.mark = ".", decimal.mark = ",", accuracy = 1),
      Hogares = format(Hogares, big.mark = ".", scientific = FALSE),
      Participacion = format(round(Participacion, 2), decimal.mark = ",", nsmall = 2)
    )
  
  # Mostrar tabla con kable_styling
  resumen_decilesGBA_inquilinos %>%
    kable(
      caption = "Deciles de Ingreso Total Familiar - Gran Buenos Aires (REGION 01) - Solo Hogares Inquilinos (II7 = 3)",
      format = "html",
      align = c("c", "r", "r", "r", "r", "r", "r"),
      col.names = c("Decil", "Hogares", "Ingreso Mínimo", "Ingreso Máximo", 
                    "Ingreso Promedio", "Ingreso Mediana", "Participación (%)")
    ) %>%
    kable_styling(
      bootstrap_options = c("striped", "hover", "condensed", "responsive"),
      full_width = FALSE,
      position = "center",
      font_size = 12
    ) %>%
    add_header_above(c(" " = 1, "Estadísticas de Ingreso" = 5, " " = 1)) %>%
    footnote(
      general = "Fuente: Elaboración propia en base a EPH - INDEC",
      number = paste("Total de hogares inquilinos con ingreso positivo:", format(nrow(hogares_gba_inquilinos), big.mark = ".")),
      footnote_as_chunk = FALSE,
      title_format = c("italic", "underline")
    ) %>%
    row_spec(0, bold = TRUE, background = "#D3D3D3") %>%
    column_spec(1, bold = TRUE)
    
} else {
  cat("No hay suficientes hogares inquilinos con ingresos positivos para calcular deciles. Mínimo necesario: 10 hogares.")
}

## Warning: There was 1 warning in `mutate()`.
## ℹ In argument: `Hogares = format(Hogares, big.mark = ".", scientific = FALSE)`.
## Caused by warning in `prettyNum()`:
## ! 'big.mark' y 'decimal.mark' son ambos '.', lo cual puede ser confuso
## 'big.mark' y 'decimal.mark' son ambos '.', lo cual puede ser confuso

Deciles de Ingreso Total Familiar - Gran Buenos Aires (REGION 01) - Solo Hogares Inquilinos (II7 = 3)

	Estadísticas de Ingreso
Decil	Hogares	Ingreso Mínimo	Ingreso Máximo	Ingreso Promedio	Ingreso Mediana	Participación (%)
1	33	$70.000	$680.000	$422.515	$430.000	10,12
2	33	$680.000	$900.000	$802.091	$800.000	10,12
3	33	$900.000	$1.080.000	$992.767	$1.000.000	10,12
4	33	$1.098.000	$1.350.000	$1.209.576	$1.200.000	10,12
5	33	$1.350.000	$1.500.000	$1.452.455	$1.498.000	10,12
6	33	$1.545.000	$1.800.000	$1.664.545	$1.680.000	10,12
7	32	$1.800.000	$2.022.000	$1.938.188	$1.988.500	9,82
8	32	$2.090.000	$2.626.470	$2.364.265	$2.365.000	9,82
9	32	$2.650.000	$3.500.000	$3.108.100	$3.066.600	9,82
10	32	$3.660.000	$15.200.000	$5.209.130	$4.729.500	9,82
Note:
Fuente: Elaboración propia en base a EPH - INDEC
1 Total de hogares inquilinos con ingreso positivo: 326