ENCUESTA JARDIN

J<-read.csv("DATOS_JARDIN.csv", sep = ";")

CAR<-as.data.frame(prop.table(table(J$CARGO))*100)
colnames(CAR)<-c("CARGO", "PORCENTAJE")
K<-c("Administrativo", "Oficial", "Docente", "Pregrado", "Posgrado")
Z<-c("0", "1", "2", "3", "4")
library(ggplot2)
ggplot(CAR, aes(x = CARGO, y = PORCENTAJE, fill = CARGO)) + geom_bar(stat = "identity", width = 0.8) + 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("Cargo en la Universidad") + xlab("Cargos") + 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, 80, by = 10), limits = c(0,80)) + coord_flip()

tiempo<-as.data.frame(prop.table(table(J$TIEMPO))*100)
colnames(tiempo)<-c("TIEMPO", "PORCENTAJE")
K<-c("Menos de 1 año", "1-3 años", "4-6 años", "7-10 años", "Más de 10 años")
Z<-c("0", "1", "2", "3", "4")
library(ggplot2)
ggplot(tiempo, aes(x = TIEMPO, y = PORCENTAJE, fill = TIEMPO)) + geom_bar(stat = "identity", width = 0.8) + 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("Tiempo que lleva en el cargo") + xlab("Tiempo") + 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()