Encuesta Hagamos de Univalle un Jardin

MJardin<-read.csv("DATOSCOD.csv")
library(ggplot2)

TUni<-as.data.frame(prop.table(table(MJardin$TU))*100)
colnames(TUni)<-c("Tiempo", "PORCENTAJE")
tu.l<-c("Menos de 2 horas", "De 2 a 5 horas", "De 6 a 8 horas", "Mas de 8 horas")
tu.n<-c("0", "1", "2", "3")
ggplot(TUni, aes(x = Tiempo, y = PORCENTAJE)) + geom_bar(stat = "identity", width = 0.8, fill =c("springgreen", "springgreen1", "springgreen3", "springgreen4")) + theme(legend.position = "right", legend.background = element_rect(fill = "white", size = 0.5, linetype = "solid", colour = "darkgrey")) + ggtitle("Tiempo promedio al dia en la Universidad") + xlab("") + ylab("%") + theme(plot.title = element_text(hjust = 0.5)) + geom_text(aes(y = PORCENTAJE, label = paste(round(PORCENTAJE, 2), "%")), position = position_dodge(width = 0.5), size=4, vjust=-0.5, hjust=0.5 ,col="black") + scale_x_discrete(breaks = tu.n, labels = tu.l) + scale_y_continuous(breaks = seq(0, 50, by = 5), limits = c(0,50))

DUni<-as.data.frame(prop.table(table(MJardin$DU))*100)
colnames(DUni)<-c("Dias", "PORCENTAJE")
du.l<-c("De 1 a 2 dias", "De 3 a 4 dias", "De 5 a 7 dias")
du.n<-c("0", "1", "2")
library(ggplot2)
ggplot(DUni, aes(x = Dias, y = PORCENTAJE, fill = Dias)) + geom_bar(stat = "identity", width = 0.8) + scale_fill_discrete(name = "", breaks = du.n, labels = du.l) + theme(legend.position = "bottom", legend.background = element_rect(fill = "white", size = 0.5, linetype = "solid", colour = "darkgrey")) + ggtitle("Dias promedio por semana en la Universidad") + xlab("") + 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.5 ,col="black") + scale_x_discrete(breaks = du.n, labels = c("", "", "")) + scale_y_continuous(breaks = seq(0, 80, by = 10), limits = c(0,80))