          [:xlab "Day"]
          [:ylab "Minutes"]
          [:theme_bw]
-         [:ggtitle "Average temporal distance evolution"])]
+         [:ggtitle "Average flooding time evolution"])]
       {:width 5 :height 5}))
 ;; @@
 ;; =>

         [:xlab "Day"]
         [:ylab "Hours"]
         [:theme_bw]
         [:ggtitle (str "Average temporal distance evolution of " (element-name author))])]
      {:width 5 :height 5})))
;; @@
;; =>

         [:scale_y_log10]
         [:guides {:fill "none"}]
         [:xlab "Broadcaster"]
         [:ylab "Flooding time in minutes"]
         [:theme_bw]
         [:ggtitle "Average flooding time"])]
      {:width 12 :height 6 }))  
;; @@
;; =>
