PARTE INDIVIDUAL R5

## EJE Liberal-Autoritario, Noelia Perfecto

Para analizar el Eje liberal-Autoritario en Perú, he elegido los partidos Frente Popular y Perú Libre.

```{r}

ches4 <- ches_la_2020_expert_level_v01_1_ %>%

filter(party_id %in% c(“5906”, “5913”))

ggplot(ches4, aes(x = lrecon, y = party_id, fill = party)) + geom_bar(stat = “identity”,show.legend=F) + labs(title = “EJE LIBERAL-AUTORITARIO”, x = “Ideología autoritaria”,  y = “expertos políticos”, fill=“partidos políticos”) + facet_wrap(. ~ party) +

  theme_minimal()

```

```{r}

ches4 <- ches_la_2020_expert_level_v01_1_ %>%

filter(party_id %in% c(“5906”, “5913”))

ggplot(ches4, aes(x = redistribution, y = party_id, fill = party)) + geom_bar(stat = “identity”,show.legend=F) + labs(title = “EJE LIBERAL-AUTORITARIO”, x = “DISTRIBUCIÓN DE LA RIQUEZA”,  y = “expertos políticos”, fill=“partidos políticos”) + facet_wrap(. ~ party) +

  theme_minimal()