From a67f4228330ae91eb08d523b3eed6acdbb1b5696 Mon Sep 17 00:00:00 2001 From: nmonin Date: Fri, 9 Sep 2022 21:33:36 -0300 Subject: [PATCH 1/7] tp 2 --- informe.Rmd | 53 ++++++++++++++++++++++++++++++++++++++++++++++++++-- informe.html | 9 +++++++++ 2 files changed, 60 insertions(+), 2 deletions(-) diff --git a/informe.Rmd b/informe.Rmd index 4168059..09426af 100644 --- a/informe.Rmd +++ b/informe.Rmd @@ -10,6 +10,8 @@ knitr::opts_chunk$set(echo = TRUE) library(readr) library(dplyr) +library(tidyverse) + ``` @@ -151,6 +153,53 @@ No se observan valores faltantes. # Hipótesis -1. Una de las consecuencias de las políticas implementadas durante el gobierno de Mauricio Macri (2015-2019) es la reducción de la tasa de actividad masculina. +1. **Durante el período 2015-2019 hubo una reducción de la tasa de actividad masculiuna.** + + ```{r} + periodo <- filter(tasa_act_varones, anio>=2015) + + ggplot(periodo) + + geom_col(aes(x=anio, + y= tasa_actividad, fill=factor(tasa_actividad)))+ + scale_y_continuous(breaks=seq(0, 75, by=25)) + + + labs(x= "Año", + y= "Tasa de actividad", + title= "Tasa de actividad masculina 2015-2019", + caption = "Fuente: Ministerio de Economía y Finanzas. Dirección General de Estadística y Censos. GCBA") + + guides(fill = guide_legend(title="Tasa de Actividad")) + + theme_minimal() + + theme(panel.border = element_rect(color = "black", fill = NA))+ + theme(title = element_text(size = 12, face = "bold")) + + -2. Existe una brecha de género en la tasa de actividad. La tasa de actividad promedio de las mujeres es menor que la tasa de actividad promedio de los varones. Esto puede estar relacionado a que son las mujeres las que se encuentran a cargo de las tareas de cuidado y esto les dificulta la inserción en el mercado laboral. + ``` + + Como se puede observar en el gráfico durante el período 2015-2019 se produce una baja de la tasa de actividad masculina. + +2. **Existe una brecha de género en la tasa de actividad. La tasa de actividad promedio de las mujeres es menor que la tasa de actividad promedio de los varones. Esto puede estar relacionado a que son las mujeres las que se encuentran a cargo de las tareas de cuidado y esto les dificulta la inserción en el mercado laboral.** + +```{r} +tasa_resumen <- datos_tp %>% + group_by(sexo) %>% + summarise(tasa_actividad = mean(tasa_actividad)) + +tasa_filtrada <- filter(tasa_resumen, sexo != "TOTAL") + +ggplot(tasa_filtrada)+ + geom_col(aes(x=sexo, + y= tasa_actividad, fill=factor(tasa_actividad)))+ + +labs(x= "Sexo", + y= "Tasa de actividad", + title= "Tasa de actividad promedio por sexo", + caption = "Fuente: Ministerio de Economía y Finanzas. Dirección General de Estadística y Censos. GCBA") + + guides(fill = guide_legend(title="Tasa de Actividad")) + + theme_minimal() + + theme(panel.border = element_rect(color = "black", fill = NA))+ + theme(title = element_text(size = 12, face = "bold")) + + + +``` diff --git a/informe.html b/informe.html index 9eaabf2..c895cf8 100644 --- a/informe.html +++ b/informe.html @@ -491,6 +491,15 @@

Hipótesis

mujeres las que se encuentran a cargo de las tareas de cuidado y esto les dificulta la inserción en el mercado laboral.

+
datos_tp |> 
+  group_by(sexo) |> 
+  summarise(tasa_actividad = mean(tasa_actividad))
+
## # A tibble: 3 × 2
+##   sexo  tasa_actividad
+##   <chr>          <dbl>
+## 1 m               55.2
+## 2 TOTAL           62.4
+## 3 v               71.1
From c28ed2e34092ef588ed8273910e8a28fc81d5400 Mon Sep 17 00:00:00 2001 From: nmonin Date: Fri, 9 Sep 2022 23:02:42 -0300 Subject: [PATCH 2/7] tp 2 version final --- informe.Rmd | 8 +++---- informe.html | 61 +++++++++++++++++++++++++++++++++++++--------------- 2 files changed, 48 insertions(+), 21 deletions(-) diff --git a/informe.Rmd b/informe.Rmd index 09426af..171b64c 100644 --- a/informe.Rmd +++ b/informe.Rmd @@ -1,5 +1,5 @@ --- -title: Trabajo Práctico I +title: Trabajo Práctico II author: Constanza Guerrini output: html_document --- @@ -170,13 +170,13 @@ No se observan valores faltantes. guides(fill = guide_legend(title="Tasa de Actividad")) + theme_minimal() + theme(panel.border = element_rect(color = "black", fill = NA))+ - theme(title = element_text(size = 12, face = "bold")) + theme(title = element_text(size = 10, face = "bold")) ``` - Como se puede observar en el gráfico durante el período 2015-2019 se produce una baja de la tasa de actividad masculina. + Como se puede observar en el gráfico, durante el período 2015-2019 se produce una baja de la tasa de actividad masculina. 2. **Existe una brecha de género en la tasa de actividad. La tasa de actividad promedio de las mujeres es menor que la tasa de actividad promedio de los varones. Esto puede estar relacionado a que son las mujeres las que se encuentran a cargo de las tareas de cuidado y esto les dificulta la inserción en el mercado laboral.** @@ -198,7 +198,7 @@ labs(x= "Sexo", guides(fill = guide_legend(title="Tasa de Actividad")) + theme_minimal() + theme(panel.border = element_rect(color = "black", fill = NA))+ - theme(title = element_text(size = 12, face = "bold")) + theme(title = element_text(size = 10, face = "bold")) diff --git a/informe.html b/informe.html index c895cf8..7bb3e12 100644 --- a/informe.html +++ b/informe.html @@ -482,24 +482,51 @@

Observaciones por cada grupo

Hipótesis

    -

  1. Una de las consecuencias de las políticas implementadas durante -el gobierno de Mauricio Macri (2015-2019) es la reducción de la tasa de -actividad masculina.

    2. -

  2. Existe una brecha de género en la tasa de actividad. La tasa de -actividad promedio de las mujeres es menor que la tasa de actividad -promedio de los varones. Esto puede estar relacionado a que son las -mujeres las que se encuentran a cargo de las tareas de cuidado y esto -les dificulta la inserción en el mercado laboral.

    3. +

  3. Durante el período 2015-2019 hubo una reducción de la +tasa de actividad masculiuna.

    +
     periodo <- filter(tasa_act_varones, anio>=2015) 
+
+   ggplot(periodo) +
+   geom_col(aes(x=anio,
+                y= tasa_actividad, fill=factor(tasa_actividad)))+
+  scale_y_continuous(breaks=seq(0, 75, by=25)) +
+
+   labs(x= "Año",
+       y= "Tasa de actividad",
+       title= "Tasa de actividad masculina 2015-2019",
+       caption = "Fuente: Ministerio de Economía y Finanzas. Dirección General de Estadística y Censos. GCBA") +
+  guides(fill = guide_legend(title="Tasa de Actividad")) +
+  theme_minimal() +
+  theme(panel.border = element_rect(color = "black", fill = NA))+
+  theme(title = element_text(size = 12, face = "bold"))
    +

    +

    Como se puede observar en el gráfico durante el período 2015-2019 se +produce una baja de la tasa de actividad masculina.

    4. +

  4. Existe una brecha de género en la tasa de actividad. La +tasa de actividad promedio de las mujeres es menor que la tasa de +actividad promedio de los varones. Esto puede estar relacionado a que +son las mujeres las que se encuentran a cargo de las tareas de cuidado y +esto les dificulta la inserción en el mercado laboral.

-
datos_tp |> 
-  group_by(sexo) |> 
-  summarise(tasa_actividad = mean(tasa_actividad))
-
## # A tibble: 3 × 2
-##   sexo  tasa_actividad
-##   <chr>          <dbl>
-## 1 m               55.2
-## 2 TOTAL           62.4
-## 3 v               71.1
+
tasa_resumen <- datos_tp %>% 
+  group_by(sexo) %>%
+  summarise(tasa_actividad = mean(tasa_actividad))
+
+tasa_filtrada <- filter(tasa_resumen, sexo  != "TOTAL")
+
+ggplot(tasa_filtrada)+
+  geom_col(aes(x=sexo,
+                y= tasa_actividad, fill=factor(tasa_actividad)))+
+
+labs(x= "Sexo",
+       y= "Tasa de actividad",
+       title= "Tasa de actividad promedio por sexo",
+       caption = "Fuente: Ministerio de Economía y Finanzas. Dirección General de Estadística y Censos. GCBA") +
+  guides(fill = guide_legend(title="Tasa de Actividad")) +
+  theme_minimal() +
+  theme(panel.border = element_rect(color = "black", fill = NA))+
+  theme(title = element_text(size = 12, face = "bold"))
+

From fbf52b52c44e2569a68a1993954c00910406e7f5 Mon Sep 17 00:00:00 2001 From: nmonin Date: Thu, 29 Sep 2022 22:05:52 -0300 Subject: [PATCH 3/7] entrega final parcial --- informe.Rmd | 69 +++++++++++++--------------------------------------- informe.html | 14 +++++------ 2 files changed, 24 insertions(+), 59 deletions(-) diff --git a/informe.Rmd b/informe.Rmd index 171b64c..0dca7f9 100644 --- a/informe.Rmd +++ b/informe.Rmd @@ -44,55 +44,25 @@ summary(datos_tp) ``` -### [***Valores Medios y Desvío Estándar - [General]***]{.underline} - -```{r} -tasa_act_gral <- filter(datos_tp, sexo=="TOTAL") - -mean(tasa_act_gral$tasa_actividad) - -``` - -Como se puede observar, la media de la tasa de actividad general (sin distinguir por género) es de 62.44706. Además, se observa un desvío estándar -en relación con esta tasa de actividad promedio- de 1.308681 - -```{r} -sd(tasa_act_gral$tasa_actividad) -``` - -### [**Valores Medios y Desvío Estándar - [Por sexo]**]{.underline} - -[***Femenino***]{.underline} - -```{r} - -tasa_act_mujeres <- filter(datos_tp, sexo=="m") - -mean(tasa_act_mujeres$tasa_actividad) - -``` - -En el caso de la tasa de actividad femenina, se observa un promedio (media) de 55.16945. La desviación estándar en relación con esa tasa de actividad media es de 1.925619. +### [***Valores Medios y Desvío Estándar***]{.underline} ```{r} +media <- datos_tp |> + group_by(sexo) |> + summarise(tasa_actividad = mean(tasa_actividad)) -sd(tasa_act_mujeres$tasa_actividad) ``` -[***Masculino***]{.underline} +Como se puede observar, la media de la tasa de actividad general (sin distinguir por género) es de 62.44706. En el caso de la tasa de actividad femenina, se observa un promedio (media) de 55.16945 y para el genero masculino, la media de la tasa de actividad es de 71.13577. ```{r} - -tasa_act_varones <- filter(datos_tp, sexo=="v") - -mean(tasa_act_varones$tasa_actividad) +sd <- datos_tp |> + group_by(sexo) |> + summarise(tasa_actividad = sd(tasa_actividad)) ``` -La media de la tasa de actividad masculina es de 71.13577. Además, se observa un desvío estándar -en relación con esa tasa media- de 1.040051. - -```{r} - -sd(tasa_act_varones$tasa_actividad) -``` +Se observa un desvío estándar -en relación con esta tasa de actividad promedio- de 1.308681. Por su parte, la desviación estándar en relación con la tasa de actividad media masculina es de 1.925619.\ +En cuanto a la tasa promedio femenina se observa un desvío estándar -en relación con esa tasa media- de 1.040051. La media de la tasa de actividad masculina supera por 15.96632 a la media de la tasa de actividad femenina. @@ -156,21 +126,16 @@ No se observan valores faltantes. 1. **Durante el período 2015-2019 hubo una reducción de la tasa de actividad masculiuna.** ```{r} - periodo <- filter(tasa_act_varones, anio>=2015) + periodo <- filter(datos_tp, anio>=2015 & sexo=='v') - ggplot(periodo) + - geom_col(aes(x=anio, - y= tasa_actividad, fill=factor(tasa_actividad)))+ - scale_y_continuous(breaks=seq(0, 75, by=25)) + - - labs(x= "Año", + ggplot(data = periodo, aes(x = anio , y = tasa_actividad)) + + geom_line() + + labs(x= "Año", y= "Tasa de actividad", title= "Tasa de actividad masculina 2015-2019", - caption = "Fuente: Ministerio de Economía y Finanzas. Dirección General de Estadística y Censos. GCBA") + - guides(fill = guide_legend(title="Tasa de Actividad")) + - theme_minimal() + - theme(panel.border = element_rect(color = "black", fill = NA))+ - theme(title = element_text(size = 10, face = "bold")) + caption = "Fuente: Ministerio de Economía y Finanzas. + Dirección General de Estadística y Censos. GCBA") + diff --git a/informe.html b/informe.html index 7bb3e12..41cf64e 100644 --- a/informe.html +++ b/informe.html @@ -12,7 +12,7 @@ -Trabajo Práctico I +Trabajo Práctico II