Tarea 1
Rafael Vargas
9/9/2021
library(rio)## Warning: package 'rio' was built under R version 4.0.5OPPOL21=("https://docs.google.com/spreadsheets/d/e/2PACX-1vSCrzkD_9wAMbi5OicBUlvo3AiF7MxzxeIMuFhOqmvIumiLRG-S6vDknnvFogT9WkzlR1S98wfE80-g/pub?gid=1963263979&single=true&output=csv")
OPPOL21=read.csv(OPPOL21)OPPOL21<-OPPOL21[,-1]str(OPPOL21)## 'data.frame': 18 obs. of 7 variables:
## $ ESPECPOL : chr "Derecha" "No precisa" "No precisa" "No precisa" ...
## $ APOYOGOB : chr "Si" "No" "Si" "No" ...
## $ VACANCIAPDTE : chr "Si" "No" "No" "Si" ...
## $ ELECMINISTROS: chr "Muy insatisfecho" "Muy insatisfecho" "Muy insatisfecho" "Muy insatisfecho" ...
## $ CONFIANZAGAB : chr "Si" "Si" "Si" "No" ...
## $ APRUEBAEJE : int 3 2 3 1 3 2 4 1 2 1 ...
## $ ACTUACONGRE : chr "Insatisfecho" "Satisfecho" "Insatisfecho" "Satisfecho" ...OPPOL21$ESPECPOL = as.factor(OPPOL21$ESPECPOL)
OPPOL21$APOYOGOB = as.factor(OPPOL21$APOYOGOB)
OPPOL21$VACANCIAPDTE = as.factor(OPPOL21$VACANCIAPDTE)
OPPOL21$ELECMINISTROS = as.ordered (OPPOL21$ELECMINISTROS)
OPPOL21$CONFIANZAGAB = as.factor(OPPOL21$CONFIANZAGAB)
OPPOL21$APRUEBAEJE = as.numeric(OPPOL21$APRUEBAEJE)
OPPOL21$ACTUACONGRE = as.ordered (OPPOL21$ACTUACONGRE)
str(OPPOL21)## 'data.frame': 18 obs. of 7 variables:
## $ ESPECPOL : Factor w/ 3 levels "Derecha","Izquierda",..: 1 3 3 3 3 3 2 3 1 1 ...
## $ APOYOGOB : Factor w/ 2 levels "No","Si": 2 1 2 1 2 2 2 1 1 1 ...
## $ VACANCIAPDTE : Factor w/ 2 levels "No","Si": 2 1 1 2 2 2 1 2 2 1 ...
## $ ELECMINISTROS: Ord.factor w/ 2 levels "Insatisfecho"<..: 2 2 2 2 2 2 1 2 2 2 ...
## $ CONFIANZAGAB : Factor w/ 2 levels "No","Si": 2 2 2 1 1 1 2 2 2 1 ...
## $ APRUEBAEJE : num 3 2 3 1 3 2 4 1 2 1 ...
## $ ACTUACONGRE : Ord.factor w/ 3 levels "Insatisfecho"<..: 1 3 1 3 1 3 1 3 3 2 ...summary(OPPOL21)## ESPECPOL APOYOGOB VACANCIAPDTE ELECMINISTROS CONFIANZAGAB
## Derecha :9 No:11 No:11 Insatisfecho : 1 No: 6
## Izquierda :1 Si: 7 Si: 7 Muy insatisfecho:17 Si:12
## No precisa:8
##
##
##
## APRUEBAEJE ACTUACONGRE
## Min. :1.000 Insatisfecho : 5
## 1st Qu.:1.000 Muy satisfecho: 3
## Median :2.000 Satisfecho :10
## Mean :1.944
## 3rd Qu.:2.750
## Max. :4.000- ENCUESTA:
La encuesta Opción Política 2021, que se realizó en un grupo de estudiantes de la PUCP, arrojó que:
tablagen =table(OPPOL21$ESPECPOL)
tablagen##
## Derecha Izquierda No precisa
## 9 1 8pie(tablagen, main = "¿Con qué espectro político se identifica?", radius = 1, cex = 1.2)
INTERPRETACIÓN: En la pregunta “¿Con qué espectro político se identifica?”, los resultados arrojan que la mitad de los encuestados se identifican con la derecha, y mientras que el segundo mayor grupo no precisa, la minoría se identifica con la izquierda. De esto se puede decir que, primero, no se trata de un grupo de alumnos políticamente homogéneo y que, segundo, se trata de un grupo de alumnos en formación política, debido a la gran cantidad de aquellos que no precisan identificarse con algún espectro.
boxplot(OPPOL21$APRUEBAEJE)
summary(OPPOL21$APRUEBAEJE)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 1.000 1.000 2.000 1.944 2.750 4.000INTERPRETACIÓN: En la pregunta “del 1 al 5, ¿cuánto aprueba al ejecutivo?”, los resultados arrojaron que, en promedio, el grupo de alumnos de la PUCP no se encuentra conforme con el ejecutivo. De hecho, el dato máximo es de 4, siendo que ninguno aprueba al ejecutivo en su totalidad. Por otro lado, la media es de 1.94, siendo que la mayoría de los alumnos del grupo en cuestión desaprueban al ejecutivo.
barplot(table(OPPOL21$CONFIANZAGAB),
main="¿Está de acuerdo con que se otorgue la confianza al gabinete Bellido?",
xlab="",
ylab="",
border="red",
col="blue",
density=10,
ylim=c(0,15)
)
INTERPRETACIÓN: Sobre la pregunta "¿Está de acuerdo con que se otorgue la confianza al gabinete Bellido?, los resultados de la encuesta arrojan que un tercio del grupo de alumnos no lo está. Esta es una cantidad considerable que funciona como segunda evidencia de que el grupo encuestado no es un grupo políticamente homogéneo, pues sus preferencias para con el gabinete son distintas.
tabla3 <- as.data.frame(prop.table(table(OPPOL21$ACTUACONGRE, OPPOL21$ESPECPOL), 2)*100)
tabla3## Var1 Var2 Freq
## 1 Insatisfecho Derecha 11.11111
## 2 Muy satisfecho Derecha 33.33333
## 3 Satisfecho Derecha 55.55556
## 4 Insatisfecho Izquierda 100.00000
## 5 Muy satisfecho Izquierda 0.00000
## 6 Satisfecho Izquierda 0.00000
## 7 Insatisfecho No precisa 37.50000
## 8 Muy satisfecho No precisa 0.00000
## 9 Satisfecho No precisa 62.50000library(ggplot2)## Warning: package 'ggplot2' was built under R version 4.0.5ggplot(data=tabla3, aes(x=Var2, y=Freq, fill=Var1, ymax=100))+
geom_bar(position="stack", stat="identity")+
geom_text(aes(label=paste(round(Freq, 1), "%", sep="")),
position=position_stack(), vjust=2)+
labs(fill="Satisfacción con el actuar del congreso")+
ylab("Porcentaje")+
xlab("Espectro político con el que se identifica")
INTERPRETACIÓN: Conforme a las preguntas “¿Con qué espectro político te identificas?” y “¿Qué tan satisfecho está con el actuar del congreso?” con las opciones muy insatisfecho, insatisfecho, satisfecho y muy satisfecho, los resultados arrojaron lo siguiente: entre los encuestados del grupo de alumnos de PUCP que se identifican con la derecha, se sintieron mayormente satisfechos (55.6%) y muy satisfechos (33.3%), por lo que se puede decir que el actuar del congreso los representa y actúa conforme lo esperaban en las elecciones. Respecto a los encuestados que se identifican con la izquierda, la totalidad de los mismos se declaró insatisfecho, de lo cual se puede concluir que las iniciativas planteadas en el congreso no son las que esperaban. Por último, del grupo de alumnos que no precisa identificarse con algún espectro político, el 62% declara sentirse satisfecho, de lo cual se puede decir que, si bien no se identifican con un espectro político en su totalidad, sí que pueden estar de acuerdo con ciertos actores políticos y con cómo actúan en el congreso.