JARDIN

JARDIN<-read.csv("JARDIN.csv", stringsAsFactors = F, header= TRUE)

RPZ<-as.data.frame(prop.table(table(JARDIN[,12]))*100)
colnames(RPZ)<-c("NUMERO", "PORCENTAJE")
ggplot(RPZ, aes(x= NUMERO, y = PORCENTAJE, fill = NUMERO)) + geom_bar(stat = "identity", width = 0.8) +scale_fill_brewer(palette = "Set1", labels=c("5 a 7 veces por semana","3 a 5 veces por semana","1 a 3 veces por semana","no lo pican los zancudo","no contesto"))+ labs(title = "Regularidad de picadura por zancudos\nen jardines de la Universidad", x = NULL, y = "porcentaje personas encuestadas", fill = "RPZ")+scale_x_discrete(labels=NULL)+scale_y_discrete(labels=NULL)+ geom_text(aes(y = PORCENTAJE, label = paste(round(PORCENTAJE, 2), "%")), position = position_dodge(width = 0.5), size=4, vjust=-0.5, hjust=-0.1 ,col="black")+ylim(0, 37)+coord_flip()

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

TEP<-as.data.frame(prop.table(table(JARDIN[,13]))*100)
colnames(TEP)<-c("NUMERO", "PORCENTAJE")
ggplot(TEP, aes(x= NUMERO, y = PORCENTAJE, fill = NUMERO)) + geom_bar(stat = "identity", width = 0.8) +scale_fill_brewer(palette = "Set1", labels=c("Sika","Dengue","Alergia","Ninguna de las anteriores","no contesto"))+ labs(title = "Tipo de enfermedades contraidas por picaduras\nde zancudos en los jardines de la Universidad", x = NULL, y = "porcentaje personas encuestadas", fill = "TEP")+scale_x_discrete(labels=NULL)+scale_y_discrete(labels=NULL)+ geom_text(aes(y = PORCENTAJE, label = paste(round(PORCENTAJE, 2), "%")), position = position_dodge(width = 0.5), size=4, vjust=-0.5, hjust=-0.1 ,col="black")+ylim(0,90)+coord_flip()

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

RAE<-as.data.frame(prop.table(table(JARDIN[,14]))*100)
colnames(RAE)<-c("NUMERO", "PORCENTAJE")
ggplot(RAE, aes(x= NUMERO, y = PORCENTAJE, fill = NUMERO)) + geom_bar(stat = "identity", width = 0.8) +scale_fill_brewer(palette = "Set1", labels=c("5 a 7 veces por semana","3 a 5 veces por semana","1 a 3 veces por semana","nunca lo encuentra \ncon aguas estancadas","no contesto"))+ labs(title = "Regularidad de aguas estancadas en jardines de ingeniería", x = NULL, y = "porcentaje personas encuestadas", fill = "RAE")+scale_x_discrete(labels=NULL)+scale_y_discrete(labels=NULL)+ geom_text(aes(y = PORCENTAJE, label = paste(round(PORCENTAJE, 2), "%")), position = position_dodge(width = 0.5), size=4, vjust=-1, hjust=0.5 ,col="black")+ylim(0,60)

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

EL<-as.data.frame(prop.table(table(JARDIN[,15]))*100)
colnames(EL)<-c("NUMERO", "PORCENTAJE")
xx=c(-1.5,-1.1,-2,3,-1.6,-4)
yy=c(0.5,0.6,0,4,2.8,1.5)
ggplot(EL, aes(x="", y = PORCENTAJE, fill = NUMERO)) + geom_bar(stat = "identity", width = 1)+coord_polar("y", start=0)+scale_fill_brewer(palette = "Set1", labels=c("Terrible","Malo","Bueno","Muy Bueno","Fantastico","No responde"))+ labs(title = "Estado del lago", x = NULL, y = NULL, fill = NULL)+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=xx, hjust=yy ,col="black")+ylim(0, 100)+ coord_polar("y", start=0)

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

EZV<-as.data.frame(prop.table(table(JARDIN[,16]))*100)
colnames(EZV)<-c("NUMERO", "PORCENTAJE")
xx=c(-2.5,-2.5,-2,0,-1.6,-4.5)
yy=c(0.5,0.5,0.5,2,2.8,1)
ggplot(EZV, aes(x="", y = PORCENTAJE, fill = NUMERO)) + geom_bar(stat = "identity", width = 1)+coord_polar("y", start=0)+scale_fill_brewer(palette = "Set1", labels=c("Terrible","Malo","Bueno","Muy Bueno","Fantastico","No responde"))+ labs(title = "Estado de las zonas verdes", x = NULL, y = NULL, fill = NULL)+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=xx, hjust=yy ,col="black")+ylim(0, 100)+ coord_polar("y", start=0)

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