CHES dataset

Este ejercicio del Reto consiste en un trabajo en grupo en el que exploraremos cómo se crean bases de datos a través de encuestas a expertos.

• Para empezar, generad el documento Html con el botón Knitr y leed detenidamente estas instrucciones.
• Este Quarto consta de tres apartados: Introducción, País y Ejes. El apartado Introducción y el apartado del País deberá escribirlo conjuntamente en grupo. En el apartado Ejes, cada estudiante deberá elegir un eje ideológico y de forma individual deberá generar un gráfico y describir su contenido.
• Eliminad todas las instrucciones de forma que al final sólo se genere el Html con vuestro trabajo.
• El objetivo es que el grupo genere un único trabajo, publicado en Html en la red mediante RPubs o Quarto Pubs.
• Una vez tengáis el Rmd rellenado y hayaís generado Html en Viewer, haced clic en el icono azul del Viewer (Publish -> Publish a Document) y seleccionad RPubs.
• Sólo es necesario que un estudiante genere el Html con RPubs. El estudiante en cuestión compartirá la dirección web con el resto de estudiantes del grupo. Cada estudiante adjuntará la dirección web del RPubs en el apartado correspondiente de la PEC. SOLO será necesario poner la dirección web.

Introducción

En este apartado, en grupo, debéis explicar (Máximo 250 palabras):

• Qué es la base de datos CHES.
• Realizar una descripción de su metodología (fuentes de información, sistema de agregación, etc.).
• Reflexionar sobre la transparencia de los datos, siguiendo lo que se ha aprendido en la asignatura.

País. FRANCIA

En este apartado debéis adaptar el código que se muestra a continuación y hacer una descripción de los datos que aparecen en la tabla (Máximo 250 palabras).

• Para encontrar información del país, los partidos políticos y las variables del marco de datos, consultad el libro de códigos y el cuestionario.
• Para visualizar los datos de vuestro país en el siguiente marco de datos, deberéis cambiar el nombre del país (“aus” = Australia) por el que corresponda con vuestro número de grupo.
• Dentro de la función select, introducid el nombre de cinco variables de modo que tengáis la columna del partido político y cinco variables más). Las variables deben ser relevantes para el país en concreto que estáis estudiando. Justificad la elección de las variables en la descripción de la tabla.

ches_p4 <- ches %>%
  filter(cname == "fra") |> 
  select(party_name, lrecon, russian_interference, sociallifestyle, civlib_laworder)
ches_p4 |> 
  group_by(party_name) |> 
  summarize(across(1:last_col(), ~ round(mean(., na.rm = TRUE), 1))) |>  
  kable()

party_name	lrecon	russian_interference	sociallifestyle	civlib_laworder
DLF	7.0	1.4	8.4	9.0
FI	0.9	2.5	1.0	1.9
FN/RN	6.9	2.3	7.8	9.2
LREM	6.3	4.8	2.5	6.0
PCF	1.1	1.5	1.6	2.5
PS	3.1	3.3	0.9	2.0
RPR/UMP	8.1	2.7	7.6	7.6
UDF/MODEM	6.2	3.0	4.2	4.6
VERTS	2.9	3.2	0.6	1.2

Nombre eje 1, Rodrigo Abadías Alacid

En este apartado, cada estudiante analizará cómo los expertos han puntuado dos partidos en un eje ideológico concreto, siguiendo el ejemplo que se muestra a continuación (Máximo 250 palabras por estudiante).

• Cada estudiante debe escoger un eje ideológico diferente. Se valorará que el estudiante seleccione unos partidos apropiados en el eje ideológico que está analizando.
• Los partidos escogidos pueden solaparse entre estudiantes del mismo grupo.
• Valorad cuestiones como la fiabilidad de los datos, validez, posibles sesgos, etc. (la bibliografía recomendada de Cherie Maestas, disponible en el aula, puede ser de gran ayuda para profundizar en esta parte).

Copiad y pegad el siguiente chunk tantas veces como corresponda

ches_p4 |> 
  filter(party_name %in% c("LREM", "FI")) |> 
  ggplot(aes(x = russian_interference, fill = party_name)) + 
  geom_bar(show.legend = F) +
  facet_wrap(. ~ party_name) +
  theme_minimal()

Warning: Removed 6 rows containing non-finite outside the scale range
(`stat_count()`).

Nombre eje 2, Avancini Handeland, Isabel

ches_p4 |> 
  filter(party_name %in% c("LREM", "FI")) |> 
  ggplot(aes(x = russian_interference, fill = party_name)) + 
  geom_bar(show.legend = F) +
  facet_wrap(. ~ party_name) +
  theme_minimal()

Warning: Removed 6 rows containing non-finite outside the scale range
(`stat_count()`).

Nombre eje 3, Casermeiro Siniakova, Alicia

ches_p4 |> 
  filter(party_name %in% c("LREM", "FI")) |> 
  ggplot(aes(x = russian_interference, fill = party_name)) + 
  geom_bar(show.legend = F) +
  facet_wrap(. ~ party_name) +
  theme_minimal()

Warning: Removed 6 rows containing non-finite outside the scale range
(`stat_count()`).

Nombre eje 4, García Cortés, Ángela

ches_p4 |> 
  filter(party_name %in% c("LREM", "FI")) |> 
  ggplot(aes(x = russian_interference, fill = party_name)) + 
  geom_bar(show.legend = F) +
  facet_wrap(. ~ party_name) +
  theme_minimal()

Warning: Removed 6 rows containing non-finite outside the scale range
(`stat_count()`).

Nombre eje 5, Huc Pascual, Aida

ches_p4 |> 
  filter(party_name %in% c("LREM", "FI")) |> 
  ggplot(aes(x = russian_interference, fill = party_name)) + 
  geom_bar(show.legend = F) +
  facet_wrap(. ~ party_name) +
  theme_minimal()

Warning: Removed 6 rows containing non-finite outside the scale range
(`stat_count()`).

Nombre eje 6, Miró Leal, Antoni

ches_p4 |> 
  filter(party_name %in% c("LREM", "FI")) |> 
  ggplot(aes(x = russian_interference, fill = party_name)) + 
  geom_bar(show.legend = F) +
  facet_wrap(. ~ party_name) +
  theme_minimal()

Warning: Removed 6 rows containing non-finite outside the scale range
(`stat_count()`).

Nombre eje 7, Pico Blanco, Clara

ches_p4 |> 
  filter(party_name %in% c("LREM", "FI")) |> 
  ggplot(aes(x = russian_interference, fill = party_name)) + 
  geom_bar(show.legend = F) +
  facet_wrap(. ~ party_name) +
  theme_minimal()

Warning: Removed 6 rows containing non-finite outside the scale range
(`stat_count()`).

Nombre eje 8, Vázquez Sánchez, Pilar

ches_p4 |> 
  filter(party_name %in% c("LREM", "FI")) |> 
  ggplot(aes(x = russian_interference, fill = party_name)) + 
  geom_bar(show.legend = F) +
  facet_wrap(. ~ party_name) +
  theme_minimal()

Warning: Removed 6 rows containing non-finite outside the scale range
(`stat_count()`).

Tenéis que hacer tantos ejes como estudiantes haya en el grupo:

• No se pueden repetir los ejes.

Referencias

¡¡No os olvidéis de referenciar las fuentes y bases de datos utilizadas!!