Informe de investigación

El propósito de esta investigacion es indagar la actitud de las personas sobre las democracia

la info proviene de la base de datos LATINO.csv

Negrita cursiva

code below:

library(readr)
LATINO23 <- read_csv("LATINO23.csv")
## Rows: 19205 Columns: 274
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr   (1): IDENPA
## dbl (273): NUMINVES, NUMENTRE, REG, CIUDAD, TAMCIUD, COMDIST, EDAD, SEXO, CO...
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
View(LATINO23)


dim(LATINO23$P18ST.A)
## NULL
tabla_frecuencia <- table(as.factor(LATINO23$P18ST.A))
View(tabla_frecuencia)

Def <- as.data.frame(table(LATINO23$P18ST.A))

colnames(Def) <- c("Actitud", "Frecuencia")

library(ggplot2)

# Create data
Def <- data.frame(
  Actitud=c("Muy de acuerdo", "De acuerdo", "En desacuerdo", "Muy en desacuerdo")  ,  
  Frecuencia=c(3623,9076,4836,1077)
)

Note : SUCKMYNUTS BITCH