#' Plots training informations
#'
#' This function will plot the total number of questions attempted in each phase, for each group.
#'
#' @param tab A data.table object containing the clustering data.
#' @param phases A numeric vector indicating the phases you want to plot.
#' @return A bar chart.
#' @examples
#' ## Display the summary of the first 3 phases
#' description_questions(tab,phases = 1:3)
#' @export
description_questions <- function(tab,phases){
names <- c("resultat")
for (i in phases){
names <- c(names,paste0("nb_total_questions_t",i))
}
tab <- data.frame(tab)
training <- tab[,names]
training <- data.table(training)
res <- training[, lapply(.SD, mean), by=resultat][order(resultat)]
res <- data.frame(res)
noms <- c("resultat")
for (i in phases){
noms <- c(noms,paste0("t",i))
}
names(res) <- noms
new_data <- reshape2::melt(res,id.vars = "resultat")
new_data <- data.table(new_data)
new_data$type <- rep("Nombre total de questions",nrow(new_data))
ggplot() +
geom_bar(data=new_data,
aes(x = variable, y = value, fill = type),
width=0.5, colour="grey40", size=0.4, stat = "identity") +
scale_fill_discrete(drop=FALSE) +
labs(x="phases",y="") + ggtitle("Evolution du nombre total de questions effectuées") +
theme(plot.title = element_text(hjust = 0.5),legend.position = 'none') + scale_fill_manual(values=c("#1100F9")) +
facet_wrap(~resultat,nrow=1)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.