Trabajo Final

Trabajo Final con Latinobarómetro

Primero voy a explorar la base de datos

str(lat1995)

## Error in str(lat1995): object 'lat1995' not found

Tengo 203 variables (p1, p2, p3…) y 9069 observaciones. Me coloca algunas categorias de las variables (“int” cuando son variables numéricas y, “chr” cuando son variables nominales

Voy a explorar las categorías variable “p27m” “confianza en el gobierno”

table(lat1995$p27m)

## Error in table(lat1995$p27m): object 'lat1995' not found

La variable tiene seis categorias y, la mayoria de los entrevistados en la region latinoamericana tiene poca confianza en el gobierno.

Ahora, explorare las variables que hacen referencia al aumento o disminucion de fenómenos sociales como la pobreza, el narcotrafico y la delicuencia.

sapply(lat1995[, c(19:21)], table)

## Error in lapply(X = X, FUN = FUN, ...): object 'lat1995' not found

Se aprecia que las tres variables son cualitativas ordinales, la pobreza (p15a), El narcotràfico (p15b) y la delincuencia (p15c). Sin embargo, las categorías de las variables no estan ordenadas logicamente, de menor a mayor presencia, colocando de última “no sabe” o “no contesta”

Vamos a realizar unas correciones

Con la variable pobreza (p15a)

lat1995$p15a <- factor(lat1995$p15a,levels = c("Ha aumentado mucho",
                                "Ha aumentado poco",
                                "Se ha mantenido",
                                "Ha disminuido mucho",
                                "Ha disminuido poco",
                                "No sabe",
                                "No contesta"))

## Error in factor(lat1995$p15a, levels = c("Ha aumentado mucho", "Ha aumentado poco", : object 'lat1995' not found

Con la variable narcotráfico (p15b)

lat1995$p15b <- factor(lat1995$p15b,levels = c("Ha aumentado mucho",
                                "Ha aumentado poco",
                                "Se ha mantenido",
                                "Ha disminuido mucho",
                                "Ha disminuido poco",
                                "No sabe",
                                "No contesta"))

## Error in factor(lat1995$p15b, levels = c("Ha aumentado mucho", "Ha aumentado poco", : object 'lat1995' not found

Con la variable delincuencia (p15c)

lat1995$p15c <- factor(lat1995$p15c,levels = c("Ha aumentado mucho",
                                "Ha aumentado poco",
                                "Se ha mantenido",
                                "Ha disminuido mucho",
                                "Ha disminuido poco",
                                "No sabe",
                                "No contesta"))

## Error in factor(lat1995$p15c, levels = c("Ha aumentado mucho", "Ha aumentado poco", : object 'lat1995' not found

Visualizo si funciono

Pobreza (p15a)

table(lat1995$p15a)

## Error in table(lat1995$p15a): object 'lat1995' not found

Narcotráfico (p15b)

table(lat1995$p15b)

## Error in table(lat1995$p15b): object 'lat1995' not found

Delincuencia (p15c)

table(lat1995$p15c)

## Error in table(lat1995$p15c): object 'lat1995' not found

sapply(lat1995[, c(19:21)], table)

## Error in lapply(X = X, FUN = FUN, ...): object 'lat1995' not found

¡FUNIONO!

Ahora todas las categorías tienen un orden lógico.

Uso del paquete Likert

Para trabajar con likert se deben tener variables cuyas categorías sean similares. En este caso, trabajaremos con tres variables ordenadas en el punto anterior: aumento o disminución de la pobreza (p15a), el narcotrafico (p15b) y la delincuencia (p15c). Las tres tienen el mismo sistema de categorías: ha aumentado mucho, ha aumentado poco, se ha mantenido, ha disminuido mucho, ha disminuido poco, no sabe y No contesta.

subimos el paquete

library(likert)

## Loading required package: ggplot2

## Loading required package: xtable

library(ggplot2)
library(xtable)

sapply(lat1995[, c(19:21)], table)

## Error in lapply(X = X, FUN = FUN, ...): object 'lat1995' not found

Extraigo las variables a estudiar

items1<-lat1995[,c(19:21)]

## Error in eval(expr, envir, enclos): object 'lat1995' not found

renombro las variables

names(items1)<- c("Pobreza", "Narcotráfico", "Delincuencia")

## Error in names(items1) <- c("Pobreza", "Narcotráfico", "Delincuencia"): object 'items1' not found

Transformo el Tibble en data.frame

items1<-data.frame(items1)

## Error in data.frame(items1): object 'items1' not found

Genero la escala de likert

l1 <- likert(items1)

## Error in "data.frame" %in% class(items): object 'items1' not found

Visualizo

summary(l1)

## Error in summary(l1): object 'l1' not found

Genero el gráfico y le Coloco titulo

title <- "¿... Ha aumentado o disminuido?"
plot(l1, center=1.5, wrap=30) + ggtitle(title)

## Error in plot(l1, center = 1.5, wrap = 30): object 'l1' not found

¡LISTO!

En el gráfico se puede apreciar como entre 54% y 63% de las personas encuestadas en los diferentes países de latinoamerica coinciden en que los tres fenómenos: pobreza, narcotráfico y delincuencia han aumentado mucho.