Passage des figures en noir et banc

Figure générée avec evo.plot.multi

Pour cette figure, il faut éditer le fichier fonctions.R et chercher le bloc suivant :

## Série de barplots par année avec une grid selon la variable "nom"
evo.plot.multi <- function(df, position=NULL) {
  ## Attention : bien garder l'id pour correction facet_grid
  ## voir http://stackoverflow.com/questions/9698807/strange-behavior-of-facet-grid   
  graph <- add.axes(ggplot(data=df))
  if (is.null(position)) {
    graph <- graph + 
      geom_bar(data=df,aes(x=date.annee,fill=nom)) +
      facet_grid(nom~.) +
      opts(legend.position="none")
  } else {
    graph <- graph + geom_bar(data=df,aes(x=date.annee,fill=nom),position=position)
  }
  graph
}

puis supprimer les deux fill=nom, c'est-à-dire que les deux lignes suivantes :

      geom_bar(data=df,aes(x=date.annee,fill=nom)) +

    graph <- graph + geom_bar(data=df,aes(x=date.annee,fill=nom),position=position)

Deviennent :

      geom_bar(data=df,aes(x=date.annee)) +

    graph <- graph + geom_bar(data=df,aes(x=date.annee),position=position)

Figure générée avec evo.plot.dodge

Pour cette figure il suffit d'ajouter un appel à scale_fill_grey :

evo.plot.dodge(tmp) + 
  opts(title="Évolution comparée des différentes catégories de lettres mentionnant l'argent ") +
  scale_fill_grey("Titre légende")