ANALISIS ESTADISTICO PREGUNTAS 6-10 ENCUESTA:HAGAMOS DE LA UNIVALLE UN JARDIN

Integrantes: -Anyela Tatiana Toro -Sandra Lorena Ibarguen -Wilmar Andres Trochez

library(readxl) X <- read_excel(“datos codificados jardin.csv.xlsx”) View(datos_codificados_jardin_csv)

PREGUNTA 6

library(ggplot2)
library(scales)
PMV<-X$PMV
newdata <- na.omit(PMV)
ggplot(data=data.frame(newdata),aes(x=newdata))+
geom_bar(aes(y = (..count..)),colour = "red",fill= "blue",width = .5)+
geom_text(aes(y = (..count..),label =   ifelse((..count..)==0,"",scales::percent((..count..)/sum(..count..)))), stat="bin",colour="black",vjust=-0.25)+
xlab("")+ 
ylab("Cantidad")+ theme(
axis.title.y = element_text(color="black", size=14, face="bold"))+ scale_x_continuous(breaks=c(0,1,2,3), labels=c("De acuerdo", "En desacuerdo","No tiene relevancia","No responde"))

PREGUNTA 7

pregunta_7<-X$IR
hist(pregunta_7, breaks = 4,main = "IR",col = "cadetblue2")

vector <- c(262/298, 4/298, 32/298) 
lbls <- c("Positivo", "Negativo","No tiene relevancia")
pct <- round(vector*100)
lbls <- paste(lbls, pct) # add percents to labels 
lbls <- paste(lbls,"%",sep="") # ad % to labels 
pie(vector,labels = lbls, col=rainbow(length(lbls)),
    main="IR")

PREGUNTA 8

pregunta_8<-X$TE
hist(pregunta_8, breaks = 4,main = "TE",col = "cadetblue2")

#vector <- c(xxx/298, xxx/298) 
lbls <- c("Abierto", "Cerrado")
pct <- round(vector*100)
lbls <- paste(lbls, pct) # add percents to labels 
lbls <- paste(lbls,"%",sep="") # ad % to labels 
pie(vector,labels = lbls, col=rainbow(length(lbls)),
    main="TE")

PREGUNTA 9

pregunta_9<-X$PAP
hist(pregunta_9, breaks = 4,main = "PAP",col = "cadetblue2")

vector <- c(230/298, 9/298,34/298, 25/298) 
lbls <- c("Positivo", "Negativo","Ni positivo, Ni negativo","No sabría")
pct <- round(vector*100)
lbls <- paste(lbls, pct) # add percents to labels 
lbls <- paste(lbls,"%",sep="") # ad % to labels 
pie(vector,labels = lbls, col=rainbow(length(lbls)),
    main="PAP")

PREGUNTA 10

pregunta_10<-X$AZV
hist(pregunta_10, breaks = 4,main = "AZV",col = "cadetblue2")

vector <- c(229/298, 68/298) 
lbls <- c("Si", "No")
pct <- round(vector*100)
lbls <- paste(lbls, pct) # add percents to labels 
lbls <- paste(lbls,"%",sep="") # ad % to labels 
pie(vector,labels = lbls, col=rainbow(length(lbls)),
    main="AZV")