Informe de prueba

Introduccion a Markdown

Análisis Visual

Rutina 11

A continuación, el infrome final de la materia analisis de datos sobre la encuesta latino23, nos focalizaremos en la pregunta P18ST.A que indaga por la actitude de las personas entrevistadas frente a la democracia

La base de datos original puede se4r consultada en la página web de la corporción Latinobarometrohttps://www.latinobarometro.org/lat.jsp para ocultar los codigos se utiliza include= false al lado de la r si quiero poner en negrita una palabra, pondo dos asteriscos *si quiero óner cursiva, pongo un solo asterico al ambos lados de la palabra

datos <- read.csv("LATINO23.csv")
dim(datos)
## [1] 19205   274
table(datos$P18ST.A)
## 
##    1    2    3    4 
## 3623 9076 4836 1077
mean(datos$P18ST.A, na.rm=T)
## [1] 2.180905
library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.4.3
democracia <- as.data.frame(table(datos$P18ST.A))
colnames(democracia)<- c( "opinion", "frecuencia")
  
  # Barplot
  ggplot(democracia, aes(x=opinion, y=frecuencia)) + 
  geom_bar(stat = "identity") +
  coord_flip()

Including Plots

You can also embed plots, for example:

library(ggplot2)

democracia <- as.data.frame(table(datos$P18ST.A))
colnames(democracia)<- c( "opinion", "frecuencia")
  
  # Barplot
  ggplot(democracia, aes(x=opinion, y=frecuencia)) + 
  geom_bar(stat = "identity") +
  coord_flip()

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.