ENCUESTA JARDIN

J<-read.csv("DATOS_JARDIN.csv", sep = ";")
NSG<-as.data.frame(prop.table(table(J$NS))*100)
colnames(NSG)<-c("NS", "PORCENTAJE")
library(ggplot2)
ggplot(NSG, aes(x = NS, y = PORCENTAJE)) + geom_bar(stat = "identity", width = 0.5, fill = "dark red") + ggtitle("NIVEL DE SATISFACCIÓN DE LAS ZONAS VERDES") + xlab("NIVEL DE SATISFACCIÓN") + ylab("% ENCUESTADOS") + theme(plot.title = element_text(hjust = 0.5, size = 12)) + geom_text(aes(y = PORCENTAJE, label = paste(round(PORCENTAJE, 1), "%")), position = position_dodge(width = 0.5), size=4, vjust=-0.5, hjust=0.5) + scale_y_continuous(breaks = seq(0, 45, by = 5), limits = c(0,45)) 

J<-read.csv("DATOS_JARDIN.csv", sep = ";")
EN<-as.data.frame(prop.table(table(J$ENP))*100)
colnames(EN)<-c("ENP", "PORCENTAJE")
K<-c("El lago", "El bosque", "Un jardín", "Una zona verde", "Otro")
Z<-c("0", "1", "2", "3", "4")
library(ggplot2)
ggplot(EN, aes(x = ENP, y = PORCENTAJE, fill = ENP)) + geom_bar(stat = "identity", width = 0.5) + scale_fill_discrete(name = "", breaks = Z, labels = K) + theme(legend.position = "bottom", legend.background = element_rect(fill = "white", size = 0.5, linetype = "solid", colour = "black")) + ggtitle("ESPACIO NATURAL PREFERENTE PARA ESTUDIAR O TRABAJAR") + xlab("ESPACIOS") + ylab("% ENCUESTADOS") + theme(plot.title = element_text(hjust = 0.5)) + geom_text(aes(y = PORCENTAJE, label = paste(round(PORCENTAJE, 1), "%")), position = position_dodge(width = 0.5), size=4, vjust=0.5, hjust=-0.2) + scale_x_discrete(breaks = Z, labels = c("", "", "", "", "")) + scale_y_continuous(breaks = seq(0, 40, by = 10), limits = c(0,40)) + coord_flip()

EG<-as.data.frame(prop.table(table(J$EGP))*100)
colnames(EG)<-c("EGP", "PORCENTAJE")
K<-c("La biblioteca", "Centro de estudio", "Mesas", "Ninguna", "Otro")
Z<-c("0", "1", "2", "3", "4")
library(ggplot2)
ggplot(EG, aes(x = EGP, y = PORCENTAJE)) + geom_bar(stat = "identity", width = 0.5, fill = c("red", "yellow", "green", "blue", "orange")) + scale_fill_discrete(name = "", breaks = Z, labels = K) + theme(legend.position = "bottom", legend.background = element_rect(fill = "white", size = 0.5, linetype = "solid", colour = "black")) + ggtitle("ESPACIO GENERAL PREFERENTE PARA ESTUDIAR O TRABAJAR") + xlab("ESPACIOS") + ylab("% ENCUESTADOS") + theme(plot.title = element_text(hjust = 0.5, size = 12)) + geom_text(aes(y = PORCENTAJE, label = paste(round(PORCENTAJE, 1), "%")), position = position_dodge(width = 0.5), size=4, vjust=0.5, hjust=-0.2) + scale_x_discrete(breaks = Z, labels = K) + scale_y_continuous(breaks = seq(0, 60, by = 10), limits = c(0,60)) + coord_flip()

GFV<-as.data.frame(prop.table(table(J$GV))*100)
colnames(GFV)<-c("GV", "PORCENTAJE")
ggplot(GFV, aes(x="", y = PORCENTAJE, fill = GV)) + geom_bar(stat = "identity", width = 1) + coord_polar("y", start=0)+scale_fill_brewer(palette = "Set2", labels=c("Si","No"))+ labs(title = "AGRADO DE LA ZONAS VERDES DE UNIVALLE", x = NULL, y = NULL, fill = "")+scale_x_discrete(labels=NULL,breaks = NULL)+scale_y_discrete(labels=NULL,breaks = NULL)+ geom_text(aes(y = PORCENTAJE, label = paste(round(PORCENTAJE, 2), "%")), position = position_dodge(width = 0.5), size=4, vjust=0, hjust=1.2 ,col="black")+ylim(0, 100)+ theme(plot.title = element_text(hjust = 0.5)) + theme(legend.position = "right", legend.background = element_rect(fill = "white", size = 0.5, linetype = "solid", colour = "darkgrey"))

Scale for 'y' is already present. Adding another scale for 'y', which will
replace the existing scale.

AFV<-as.data.frame(prop.table(table(J$AVR))*100)
colnames(AFV)<-c("AVR", "PORCENTAJE")
ggplot(AFV, aes(x="", y = PORCENTAJE, fill = AVR)) + geom_bar(stat = "identity", width = 1) + coord_polar("y", start=0) + coord_polar("y", start=0)+scale_fill_brewer(palette = "Set2", labels=c("Si","No"))+ labs(title = "AFECTACIÓN DE LAS ZONAS VERDES EN EL RENDIMIENTO ACADÉMICO", x = NULL, y = NULL, fill = "")+scale_x_discrete(labels=NULL,breaks = NULL)+scale_y_discrete(labels=NULL,breaks = NULL)+ geom_text(aes(y = PORCENTAJE, label = paste(round(PORCENTAJE, 2), "%")), position = position_dodge(width = 0.5), size=4, vjust=-4, hjust=c(-2,2) ,col="black")+ylim(0, 100)+ theme(plot.title = element_text(hjust = 0.5, size = 11)) + theme(legend.position = "right", legend.background = element_rect(fill = "white", size = 0.5, linetype = "solid", colour = "darkgrey"))

Scale for 'y' is already present. Adding another scale for 'y', which will
replace the existing scale.