Veamos como evoluciona PPERSONAL1 a lo largo del tiempo

graficos <- dfCompleta %>% 
  group_by(FECHA, PPERSONAL1) %>%
  summarise(n = n(), .groups = "drop") %>%
  group_by(FECHA) %>%
  mutate(porcentaje = n / sum(n) * 100) %>%
  ungroup() %>%
  split(.$PPERSONAL1) %>%
  map(~ {
    ggplot(.x, aes(x = FECHA, y = porcentaje)) +
      geom_line() +
      labs(
        title = paste("Evolución de", unique(.x$PPERSONAL1)),
        x = "Fecha",
        y = "Porcentaje de respuestas"
      )+coord_cartesian(ylim=c(0,50))
  })

graficos
## $`No procede`

## 
## $Paro

## 
## $Drogas

## 
## $`Inseguridad ciudadana`

## 
## $ETA

## 
## $Infraestructuras

## 
## $Sanidad

## 
## $Vivienda

## 
## $Economía

## 
## $Empleo

## 
## $`Agricultura, ganadería y pesca`

## 
## $`Corrupción y fraude`

## 
## $Pensiones

## 
## $`Políticos y partidos`

## 
## $Guerras

## 
## $Justicia

## 
## $`Problemas sociales`

## 
## $Racismo

## 
## $Inmigración

## 
## $`Violencia contra la mujer`

## 
## $Juventud

## 
## $`Crisis de valores`

## 
## $Educación

## 
## $Medioambiente

## 
## $`Gobierno y partidos`

## 
## $`Servicios públicos`

## 
## $Nacionalismos

## 
## $`Problemas relacionados con la mujer`

## 
## $`Terrorismo internacional`

## 
## $`Preocupaciones personales`

## 
## $`Estatutos de autonomía`

## 
## $`Negociaciones con ETA`

## 
## $`Reforma Laboral`

## 
## $Recortes

## 
## $Banca

## 
## $`Subida del IVA`

## 
## $Desahucios

## 
## $`Fraude fiscal`

## 
## $Hipotecas

## 
## $Monarquía

## 
## $Excarcelaciones

## 
## $`Ley del aborto`

## 
## $`Tarifas energéticas`

## 
## $Ébola

## 
## $Refugiados

## 
## $`Independencia de Cataluña`

## 
## $`La falta de acuerdos`

## 
## $Emigración

## 
## $Autónomos

## 
## $`Falta de inversión en industrias e ID`

## 
## $`Partidos políticos`

## 
## $`Problemas políticos en general`

## 
## $Extremismos

## 
## $COVID19

## 
## $`Incertidumbres ante el futuro`

## 
## $`Falta de civismo`

## 
## $`La falta de confianza en los políticosas y las instituciones`

## 
## $Despoblación

## 
## $Desigualdades

## 
## $Confinamiento

## 
## $`Limitaciones en las relaciones sociales`

## 
## $`Consecuencias sobre el empleo`

## 
## $`Problemas psicológicos`

## 
## $`Falta de movilidad`

## 
## $`Aumento de la crispación social`

## 
## $`Cambios de hábitos`

## 
## $`Falta claridad en las informaciones`

## 
## $`Uso de mascarillas y otras medidas de higiene`

## 
## $`Gestión de la vacunación`

## 
## $Democracia

## 
## $`Crisis con Marruecos,  Ceuta y Melilla`

## 
## $`Aumento de odio y agresiones homófobas`

## 
## $`Volcán de La Palma`

## 
## $`Falta de materias primas`

## 
## $`Guerra de Ucrania y Rusia`

## 
## $`Política exterior y relaciones internacionales`

## 
## $Desinformación

## 
## $`Preocupación sobre salud`

## 
## $`Bajada de impuestos a los más ricos`

## 
## $`Cambio climático`

## 
## $`La ocupación`

## 
## $`Sequía y agua`

## 
## $`Seguridad en tecnologías en los`

## 
## $`Gobierno y partidos de las CCAA`

## 
## $`El modelo productivo`

## 
## $Todos

## 
## $`Otras respuestas`

## 
## $Ninguno

## 
## $NS

## 
## $NC

## 
## $Ciberseguridad

## 
## $`Ley de Amnistía`

## 
## $Turismo

PPERSONAL1 comparando por SEXO

Para estas comparaciones ajustamos el eje Y a los valores mínimos y máximos observados a lo largo del tiempo.

graficos <- dfCompleta %>% 
  group_by(FECHA, SEXO, PPERSONAL1) %>%
  summarise(n = n(), .groups = "drop") %>%
  group_by(FECHA,SEXO) %>%
  mutate(porcentaje = n / sum(n) * 100) %>%
  ungroup() %>%
  split(.$PPERSONAL1) %>%
  map(~ {
    ggplot(.x, aes(x = FECHA, y = porcentaje,colour = SEXO)) +
      geom_line() +
      labs(
        title = paste("Evolución de", unique(.x$PPERSONAL1)),
        x = "Fecha",
        y = "Porcentaje de respuestas"
      )#+coord_cartesian(ylim=c(0,50))
  })

graficos
## $`No procede`

## 
## $Paro

## 
## $Drogas

## 
## $`Inseguridad ciudadana`

## 
## $ETA

## 
## $Infraestructuras

## 
## $Sanidad

## 
## $Vivienda

## 
## $Economía

## 
## $Empleo

## 
## $`Agricultura, ganadería y pesca`

## 
## $`Corrupción y fraude`

## 
## $Pensiones

## 
## $`Políticos y partidos`

## 
## $Guerras

## 
## $Justicia

## 
## $`Problemas sociales`

## 
## $Racismo

## 
## $Inmigración

## 
## $`Violencia contra la mujer`

## 
## $Juventud

## 
## $`Crisis de valores`

## 
## $Educación

## 
## $Medioambiente

## 
## $`Gobierno y partidos`

## 
## $`Servicios públicos`

## 
## $Nacionalismos

## 
## $`Problemas relacionados con la mujer`

## 
## $`Terrorismo internacional`

## 
## $`Preocupaciones personales`

## 
## $`Estatutos de autonomía`

## 
## $`Negociaciones con ETA`

## 
## $`Reforma Laboral`

## 
## $Recortes

## 
## $Banca

## 
## $`Subida del IVA`

## 
## $Desahucios

## 
## $`Fraude fiscal`

## 
## $Hipotecas

## 
## $Monarquía

## 
## $Excarcelaciones

## 
## $`Ley del aborto`

## 
## $`Tarifas energéticas`

## 
## $Ébola

## 
## $Refugiados

## 
## $`Independencia de Cataluña`

## 
## $`La falta de acuerdos`

## 
## $Emigración

## 
## $Autónomos

## 
## $`Falta de inversión en industrias e ID`

## 
## $`Partidos políticos`

## 
## $`Problemas políticos en general`

## 
## $Extremismos

## 
## $COVID19

## 
## $`Incertidumbres ante el futuro`

## 
## $`Falta de civismo`

## 
## $`La falta de confianza en los políticosas y las instituciones`

## 
## $Despoblación

## 
## $Desigualdades

## 
## $Confinamiento

## 
## $`Limitaciones en las relaciones sociales`

## 
## $`Consecuencias sobre el empleo`

## 
## $`Problemas psicológicos`

## 
## $`Falta de movilidad`

## 
## $`Aumento de la crispación social`

## 
## $`Cambios de hábitos`

## 
## $`Falta claridad en las informaciones`

## 
## $`Uso de mascarillas y otras medidas de higiene`

## 
## $`Gestión de la vacunación`

## 
## $Democracia

## 
## $`Crisis con Marruecos,  Ceuta y Melilla`

## 
## $`Aumento de odio y agresiones homófobas`

## 
## $`Volcán de La Palma`

## 
## $`Falta de materias primas`

## 
## $`Guerra de Ucrania y Rusia`

## 
## $`Política exterior y relaciones internacionales`

## 
## $Desinformación

## 
## $`Preocupación sobre salud`

## 
## $`Bajada de impuestos a los más ricos`

## 
## $`Cambio climático`

## 
## $`La ocupación`

## 
## $`Sequía y agua`

## 
## $`Seguridad en tecnologías en los`

## 
## $`Gobierno y partidos de las CCAA`

## 
## $`El modelo productivo`

## 
## $Todos

## 
## $`Otras respuestas`

## 
## $Ninguno

## 
## $NS

## 
## $NC

## 
## $Ciberseguridad

## 
## $`Ley de Amnistía`

## 
## $Turismo

EVOLUCION DE PPERSONAL 1 2 y 3 en Paralelo

agregar=dfCompleta %>% select(FECHA,SEXO,starts_with("PPERSONAL")) %>% 
pivot_longer(cols = starts_with("PPERSONAL"), 
           names_to = "PPERSONAL", 
           values_to = "PPERSONAL_value")


graficos <- agregar %>% group_by(FECHA, PPERSONAL,PPERSONAL_value) %>%
  summarise(n = n(), .groups = "drop") %>%
  group_by(FECHA,PPERSONAL) %>% 
  mutate(porcentaje = n / sum(n) * 100) %>%
  ungroup() %>% 
  split(.$PPERSONAL_value) %>%
  map(~ {
    ggplot(.x, aes(x = FECHA, y = porcentaje,colour = PPERSONAL)) +
      geom_line() +
      labs(
        title = paste("Evolución de", unique(.x$PPERSONAL_value)),
        x = "Fecha",
        y = "Porcentaje de respuestas"
      )#+coord_cartesian(ylim=c(0,50))
  })

graficos
## $`No procede`

## 
## $Paro

## 
## $Drogas

## 
## $`Inseguridad ciudadana`

## 
## $ETA

## 
## $Infraestructuras

## 
## $Sanidad

## 
## $Vivienda

## 
## $Economía

## 
## $Empleo

## 
## $`Agricultura, ganadería y pesca`

## 
## $`Corrupción y fraude`

## 
## $Pensiones

## 
## $`Políticos y partidos`

## 
## $Guerras

## 
## $Justicia

## 
## $`Problemas sociales`

## 
## $Racismo

## 
## $Inmigración

## 
## $`Violencia contra la mujer`

## 
## $Juventud

## 
## $`Crisis de valores`

## 
## $Educación

## 
## $Medioambiente

## 
## $`Gobierno y partidos`

## 
## $`Servicios públicos`

## 
## $Nacionalismos

## 
## $`Problemas relacionados con la mujer`

## 
## $`Terrorismo internacional`

## 
## $`Preocupaciones personales`

## 
## $`Estatutos de autonomía`

## 
## $`Negociaciones con ETA`

## 
## $`Reforma Laboral`

## 
## $Recortes

## 
## $Banca

## 
## $`Subida del IVA`

## 
## $Desahucios

## 
## $`Fraude fiscal`

## 
## $Hipotecas

## 
## $Monarquía

## 
## $Excarcelaciones

## 
## $`Ley del aborto`

## 
## $`Tarifas energéticas`

## 
## $Ébola

## 
## $Refugiados

## 
## $`Independencia de Cataluña`

## 
## $`La falta de acuerdos`

## 
## $Emigración

## 
## $Autónomos

## 
## $`Falta de inversión en industrias e ID`

## 
## $`Partidos políticos`

## 
## $`Problemas políticos en general`

## 
## $Extremismos

## 
## $COVID19

## 
## $`Incertidumbres ante el futuro`

## 
## $`Falta de civismo`

## 
## $`La falta de confianza en los políticosas y las instituciones`

## 
## $Despoblación

## 
## $Desigualdades

## 
## $Confinamiento

## 
## $`Limitaciones en las relaciones sociales`

## 
## $`Consecuencias sobre el empleo`

## 
## $`Problemas psicológicos`

## 
## $`Falta de movilidad`

## 
## $`Aumento de la crispación social`

## 
## $`Cambios de hábitos`

## 
## $`Falta claridad en las informaciones`

## 
## $`Uso de mascarillas y otras medidas de higiene`

## 
## $`Gestión de la vacunación`

## 
## $Democracia

## 
## $`Crisis con Marruecos,  Ceuta y Melilla`

## 
## $`Aumento de odio y agresiones homófobas`

## 
## $`Volcán de La Palma`

## 
## $`Falta de materias primas`

## 
## $`Guerra de Ucrania y Rusia`

## 
## $`Política exterior y relaciones internacionales`

## 
## $Desinformación

## 
## $`Preocupación sobre salud`

## 
## $`Bajada de impuestos a los más ricos`

## 
## $`Cambio climático`

## 
## $`La ocupación`

## 
## $`Sequía y agua`

## 
## $`Seguridad en tecnologías en los`

## 
## $`Gobierno y partidos de las CCAA`

## 
## $`El modelo productivo`

## 
## $Todos

## 
## $`Otras respuestas`

## 
## $Ninguno

## 
## $NS

## 
## $NC

## 
## $Ciberseguridad

## 
## $`Ley de Amnistía`

## 
## $Turismo

Veamos como evoluciona PESPANNA1 a lo largo del tiempo

graficos <- dfCompleta %>% 
  group_by(FECHA, PESPANNA1) %>%
  summarise(n = n(), .groups = "drop") %>%
  group_by(FECHA) %>%
  mutate(porcentaje = n / sum(n) * 100) %>%
  ungroup() %>%
  split(.$PESPANNA1) %>%
  map(~ {
    ggplot(.x, aes(x = FECHA, y = porcentaje)) +
      geom_line() +
      labs(
        title = paste("Evolución de", unique(.x$PESPANNA1)),
        x = "Fecha",
        y = "Porcentaje de respuestas"
      )+coord_cartesian(ylim=c(0,50))
  })

graficos
## $`No procede`

## 
## $Paro

## 
## $Drogas

## 
## $`Inseguridad ciudadana`

## 
## $ETA

## 
## $Infraestructuras

## 
## $Sanidad

## 
## $Vivienda

## 
## $Economía

## 
## $Empleo

## 
## $`Agricultura, ganadería y pesca`

## 
## $`Corrupción y fraude`

## 
## $Pensiones

## 
## $`Políticos y partidos`

## 
## $Guerras

## 
## $Justicia

## 
## $`Problemas sociales`

## 
## $Racismo

## 
## $Inmigración

## 
## $`Violencia contra la mujer`

## 
## $Juventud

## 
## $`Crisis de valores`

## 
## $Educación

## 
## $Medioambiente

## 
## $`Gobierno y partidos`

## 
## $`Servicios públicos`

## 
## $Nacionalismos

## 
## $`Problemas relacionados con la mujer`

## 
## $`Terrorismo internacional`

## 
## $`Situaciones personales`

## 
## $`Estatutos de autonomía`

## 
## $`Negociaciones con ETA`

## 
## $`Reforma Laboral`

## 
## $Recortes

## 
## $Bancos

## 
## $`Subida del IVA`

## 
## $Desahucios

## 
## $`Fraude fiscal`

## 
## $Hipotecas

## 
## $Monarquía

## 
## $Excarcelaciones

## 
## $`Ley del aborto`

## 
## $`Tarifas energéticas`

## 
## $Ébola
## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?

## 
## $Refugiados

## 
## $`La independencia de Cataluña`

## 
## $`La falta de acuerdos`

## 
## $Emigración

## 
## $Autónomos

## 
## $`Falta de inversión en industrias e ID`

## 
## $`Partidos políticos`

## 
## $`Problemas políticos en general`

## 
## $`Los extremismos`

## 
## $COVID19

## 
## $`Incertidumbres ante el futuro`

## 
## $`Falta de civismo`

## 
## $`Falta de confianza en las instituciones y políticos`

## 
## $Despoblación

## 
## $`Las desigualdades`

## 
## $Confinamiento

## 
## $`Limitaciones en las relaciones sociales`

## 
## $Políticos

## 
## $`Problemas psicológicos`

## 
## $`Crispación social`

## 
## $`Cambios de hábitos`

## 
## $`Falta claridad en las informaciones de la COVID19`

## 
## $`Mascarillas y otras medidas de higiene`

## 
## $`Gestión de la vacunación`

## 
## $`El funcionamiento de la democracia`

## 
## $`Crisis con Marruecos, Ceuta y Melilla`

## 
## $`Aumento de odio y agresiones homófobas`

## 
## $`Volcán de La Palma`

## 
## $`Desabastecimiento falta de materias primas`

## 
## $`Guerra de Ucrania y Rusia`

## 
## $`Política exterior y relaciones internacionales`

## 
## $Desinformación

## 
## $`Preocupación sobre salud`

## 
## $`Bajada de impuestos a los más ricos`

## 
## $`Cambio climático`

## 
## $`La ocupación`

## 
## $Sequía

## 
## $`Tecnologías en los adolescentes`

## 
## $`La falta de recursos suficientes para hacer frente a la pandemia`

## 
## $`Políticas de las CCAA`

## 
## $`Desequilibrios administrativos`

## 
## $`El modelo productivo`

## 
## $Todos

## 
## $`Otras respuestas`

## 
## $Ninguno

## 
## $NS

## 
## $NC

## 
## $Ciberseguridad

## 
## $`Ley de Amnistía`

## 
## $Turismo

PESPANNA1 comparando por SEXO

Para estas comparaciones ajustamos el eje Y a los valores mínimos y máximos observados a lo largo del tiempo.

graficos <- dfCompleta %>% 
  group_by(FECHA, SEXO, PESPANNA1) %>%
  summarise(n = n(), .groups = "drop") %>%
  group_by(FECHA,SEXO) %>%
  mutate(porcentaje = n / sum(n) * 100) %>%
  ungroup() %>%
  split(.$PESPANNA1) %>%
  map(~ {
    ggplot(.x, aes(x = FECHA, y = porcentaje,colour = SEXO)) +
      geom_line() +
      labs(
        title = paste("Evolución de", unique(.x$PESPANNA1)),
        x = "Fecha",
        y = "Porcentaje de respuestas"
      )#+coord_cartesian(ylim=c(0,50))
  })

graficos
## $`No procede`

## 
## $Paro

## 
## $Drogas

## 
## $`Inseguridad ciudadana`

## 
## $ETA

## 
## $Infraestructuras

## 
## $Sanidad

## 
## $Vivienda

## 
## $Economía

## 
## $Empleo

## 
## $`Agricultura, ganadería y pesca`

## 
## $`Corrupción y fraude`

## 
## $Pensiones

## 
## $`Políticos y partidos`

## 
## $Guerras

## 
## $Justicia

## 
## $`Problemas sociales`

## 
## $Racismo

## 
## $Inmigración

## 
## $`Violencia contra la mujer`

## 
## $Juventud

## 
## $`Crisis de valores`

## 
## $Educación

## 
## $Medioambiente

## 
## $`Gobierno y partidos`

## 
## $`Servicios públicos`

## 
## $Nacionalismos

## 
## $`Problemas relacionados con la mujer`

## 
## $`Terrorismo internacional`

## 
## $`Situaciones personales`

## 
## $`Estatutos de autonomía`

## 
## $`Negociaciones con ETA`

## 
## $`Reforma Laboral`

## 
## $Recortes

## 
## $Bancos

## 
## $`Subida del IVA`

## 
## $Desahucios

## 
## $`Fraude fiscal`

## 
## $Hipotecas

## 
## $Monarquía

## 
## $Excarcelaciones

## 
## $`Ley del aborto`

## 
## $`Tarifas energéticas`

## 
## $Ébola
## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?

## 
## $Refugiados

## 
## $`La independencia de Cataluña`

## 
## $`La falta de acuerdos`

## 
## $Emigración

## 
## $Autónomos

## 
## $`Falta de inversión en industrias e ID`

## 
## $`Partidos políticos`

## 
## $`Problemas políticos en general`

## 
## $`Los extremismos`

## 
## $COVID19

## 
## $`Incertidumbres ante el futuro`

## 
## $`Falta de civismo`

## 
## $`Falta de confianza en las instituciones y políticos`

## 
## $Despoblación

## 
## $`Las desigualdades`

## 
## $Confinamiento

## 
## $`Limitaciones en las relaciones sociales`

## 
## $Políticos

## 
## $`Problemas psicológicos`

## 
## $`Crispación social`

## 
## $`Cambios de hábitos`

## 
## $`Falta claridad en las informaciones de la COVID19`

## 
## $`Mascarillas y otras medidas de higiene`

## 
## $`Gestión de la vacunación`

## 
## $`El funcionamiento de la democracia`

## 
## $`Crisis con Marruecos, Ceuta y Melilla`

## 
## $`Aumento de odio y agresiones homófobas`

## 
## $`Volcán de La Palma`

## 
## $`Desabastecimiento falta de materias primas`

## 
## $`Guerra de Ucrania y Rusia`

## 
## $`Política exterior y relaciones internacionales`

## 
## $Desinformación

## 
## $`Preocupación sobre salud`

## 
## $`Bajada de impuestos a los más ricos`

## 
## $`Cambio climático`

## 
## $`La ocupación`

## 
## $Sequía

## 
## $`Tecnologías en los adolescentes`

## 
## $`La falta de recursos suficientes para hacer frente a la pandemia`

## 
## $`Políticas de las CCAA`

## 
## $`Desequilibrios administrativos`

## 
## $`El modelo productivo`

## 
## $Todos

## 
## $`Otras respuestas`

## 
## $Ninguno

## 
## $NS

## 
## $NC

## 
## $Ciberseguridad

## 
## $`Ley de Amnistía`

## 
## $Turismo

EVOLUCION DE PESPANNA 1 2 y 3 en Paralelo

agregar=dfCompleta %>% select(FECHA,SEXO,starts_with("PESPANNA")) %>% 
pivot_longer(cols = starts_with("PESPANNA"), 
           names_to = "PESPANNA", 
           values_to = "PESPANNA_value")


graficos <- agregar %>% group_by(FECHA, PESPANNA,PESPANNA_value) %>%
  summarise(n = n(), .groups = "drop") %>%
  group_by(FECHA,PESPANNA) %>% 
  mutate(porcentaje = n / sum(n) * 100) %>%
  ungroup() %>% 
  split(.$PESPANNA_value) %>%
  map(~ {
    ggplot(.x, aes(x = FECHA, y = porcentaje,colour = PESPANNA)) +
      geom_line() +
      labs(
        title = paste("Evolución de", unique(.x$PESPANNA_value)),
        x = "Fecha",
        y = "Porcentaje de respuestas"
      )#+coord_cartesian(ylim=c(0,50))
  })

graficos
## $`No procede`

## 
## $Paro

## 
## $Drogas

## 
## $`Inseguridad ciudadana`

## 
## $ETA

## 
## $Infraestructuras

## 
## $Sanidad

## 
## $Vivienda

## 
## $Economía

## 
## $Empleo

## 
## $`Agricultura, ganadería y pesca`

## 
## $`Corrupción y fraude`

## 
## $Pensiones

## 
## $`Políticos y partidos`

## 
## $Guerras

## 
## $Justicia

## 
## $`Problemas sociales`

## 
## $Racismo

## 
## $Inmigración

## 
## $`Violencia contra la mujer`

## 
## $Juventud

## 
## $`Crisis de valores`

## 
## $Educación

## 
## $Medioambiente

## 
## $`Gobierno y partidos`

## 
## $`Servicios públicos`

## 
## $Nacionalismos

## 
## $`Problemas relacionados con la mujer`

## 
## $`Terrorismo internacional`

## 
## $`Situaciones personales`

## 
## $`Estatutos de autonomía`

## 
## $`Negociaciones con ETA`

## 
## $`Reforma Laboral`

## 
## $Recortes

## 
## $Bancos

## 
## $`Subida del IVA`

## 
## $Desahucios

## 
## $`Fraude fiscal`

## 
## $Hipotecas

## 
## $Monarquía

## 
## $Excarcelaciones

## 
## $`Ley del aborto`

## 
## $`Tarifas energéticas`

## 
## $Ébola

## 
## $Refugiados

## 
## $`La independencia de Cataluña`

## 
## $`La falta de acuerdos`

## 
## $Emigración

## 
## $Autónomos

## 
## $`Falta de inversión en industrias e ID`

## 
## $`Partidos políticos`

## 
## $`Problemas políticos en general`

## 
## $`Los extremismos`

## 
## $COVID19

## 
## $`Incertidumbres ante el futuro`

## 
## $`Falta de civismo`

## 
## $`Falta de confianza en las instituciones y políticos`

## 
## $Despoblación

## 
## $`Las desigualdades`

## 
## $Confinamiento

## 
## $`Limitaciones en las relaciones sociales`

## 
## $Políticos

## 
## $`Problemas psicológicos`

## 
## $`Crispación social`

## 
## $`Cambios de hábitos`

## 
## $`Falta claridad en las informaciones de la COVID19`

## 
## $`Mascarillas y otras medidas de higiene`

## 
## $`Gestión de la vacunación`

## 
## $`El funcionamiento de la democracia`

## 
## $`Crisis con Marruecos, Ceuta y Melilla`

## 
## $`Aumento de odio y agresiones homófobas`

## 
## $`Volcán de La Palma`

## 
## $`Desabastecimiento falta de materias primas`

## 
## $`Guerra de Ucrania y Rusia`

## 
## $`Política exterior y relaciones internacionales`

## 
## $Desinformación

## 
## $`Preocupación sobre salud`

## 
## $`Bajada de impuestos a los más ricos`

## 
## $`Cambio climático`

## 
## $`La ocupación`

## 
## $Sequía

## 
## $`Tecnologías en los adolescentes`

## 
## $`La falta de recursos suficientes para hacer frente a la pandemia`
## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?

## 
## $`Políticas de las CCAA`

## 
## $`Desequilibrios administrativos`

## 
## $`El modelo productivo`

## 
## $Todos

## 
## $`Otras respuestas`

## 
## $Ninguno

## 
## $NS

## 
## $NC

## 
## $Ciberseguridad

## 
## $`Ley de Amnistía`

## 
## $Turismo