R/plot.R

In l-k-11235/projetMetiers: Le package du projet R dy M1 SSD 2019

#' print
#'
#' @param obj objet
#' @examples print('x')
#' @export

print <- function (obj) {
  UseMethod("print", obj)
  base::print(obj)
}


#' print.comp_reg
#'
#'  Méthode print de la classe comp_reg.
#'
#'Le graphique renvoyé permet de comparer les deux régions
#'   attributs à l'aide des métiers qui y font l'objet du plus grand nombre de projets de recrutement.
#'
#' @param obj objet de classe comp_reg
#' @return barplot
#' @import ggplot2
#' @importFrom ggplot2 ggplot
#' @examples print(comp_reg("CORSE","BRETAGNE"))
#' @export

print.comp_reg<-function(obj){

obj$df=select(obj$df,c("NOM_REG","nom_metier","pct"))
obj$df[["NOM_REG"]]<- as.factor(obj$df[["NOM_REG"]])
obj$df[["nom_metier"]]<- as.factor(obj$df[["nom_metier"]])

ggplot(data=obj$df, aes(x=NOM_REG , y=pct,fill=nom_metier)) +
  geom_bar(stat="identity",position=position_dodge()) +
  coord_flip()+
  labs(title = paste("les m\u00E9tiers les plus accessibles en ", obj$reg1,"et", obj$reg2, "sont:",sep=" "),
       y="pourcentage",x="nom des r\u00E9gions")

}

#' print.comp_met
#'
#' Méthode print de la classe comp_met.
#'
#' Le graphique permet de comparer deux métier à
#' l'aide de la part des projets de recrutement qu'ils occupent dans chaque région
#' @param obj objet de classe comp_met
#' @return diagrammes en barres.
#' @import ggplot2
#' @examples print(comp_met("Cuisiniers","Couvreurs"))
#' @export
print.comp_met<-function(obj){

  obj$df%>%
    ggplot2::ggplot(aes(x=reorder(NOM_REG,pct), y = pct,fill=`nom_metier`))+
    geom_bar(stat = 'identity',position = "dodge")+
    geom_text(aes(y = pct -1.5 ,
                  label = paste0(round(pct,1), '%')),
              position = position_dodge(width = .9),
              size = 3,
              color="#FFFFFF")+
    ggplot2::coord_flip()+
    ggplot2::labs(title="Les m\u00E9tiers qui m'int\u00E9ressent le plus",
         x='',
         y='%')+
    ggplot2::scale_fill_manual(values=c("orange", "purple"),
                      name="",
                      labels=c(obj$nom1,obj$nom2))+
    ggplot2::theme(legend.position="top")}