Los siguientes datos bla bla bla blab &
a=as.tibble(alumnostotal) %>% group_by(aC1o,Periodo) %>% summarise(cantidad=n()) %>% ggplot(aes(x=as.factor(aC1o),y=cantidad,fill=Periodo))+geom_col(alpha=.7,position=position_stack())+theme_minimal()## Warning: `as.tibble()` is deprecated as of tibble 2.0.0.
## Please use `as_tibble()` instead.
## The signature and semantics have changed, see `?as_tibble`.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_warnings()` to see where this warning was generated.## `summarise()` regrouping output by 'aC1o' (override with `.groups` argument)ggplotly(a) b=as.tibble(alumnostotal) %>% filter((area %in% c("AH","BQ","FM") )& (!is.na(Sexo))) %>% ggplot(aes(x=area,y=`Nota Final`,fill=Sexo))+geom_boxplot()#+theme_minimal()
ggplotly(b)## Warning: Removed 6984 rows containing non-finite values (stat_boxplot).c=as.tibble(alumnostotal) %>% group_by(aC1o,area,Sexo) %>% filter((area %in% c("AH","BQ","FM") )& (!is.na(Sexo))) %>% summarise(cantidad=n()) %>% ggplot(aes(x=as.factor(aC1o),y=cantidad,fill=area))+geom_col(alpha=.7,position=position_stack())+theme_minimal()+facet_grid(~Sexo)## `summarise()` regrouping output by 'aC1o', 'area' (override with `.groups` argument)ggplotly(c)d=procesoselecciontotal %>%filter(aC1o %in% c(2021,2020,2019,2018) &area %in% c("AH","FM","BQ") & !`Estado Primera Prioridad` %in% c("Eliminacion administrativa","No matriculado")) %>% ggplot(aes(x=`Estado Primera Prioridad`,fill=`Estado de matrC-cula`))+geom_bar(position="fill")+facet_grid(aC1o~area)+theme(axis.text.x = element_text(angle = 30))+xlab("")
ggplotly(d)e=cursostotal %>%filter(area %in% c("AH","FM","BQ"))%>% ggplot(aes(x=aC1o,y=`Cantidad Matriculados`,color=area))+geom_jitter()+geom_smooth(method = "lm")
ggplotly(e)## `geom_smooth()` using formula 'y ~ x'## Warning: Removed 15 rows containing non-finite values (stat_smooth).f=postulacionestotal %>% ggplot(aes(x=as.factor(aC1o),fill=Estado))+geom_bar(position="fill")+facet_grid(~Periodo)+theme(axis.text.x = element_text(angle = 30))+xlab("")
ggplotly(f)