diff --git a/guile/mu/plot.scm b/guile/mu/plot.scm
index 6ec982cd..99176db5 100644
--- a/guile/mu/plot.scm
+++ b/guile/mu/plot.scm
@@ -46,7 +46,7 @@ not found."
 	progpath
 	#f))))
 2
-(define* (mu:plot-histogram data title x-label y-label #:optional (text-only #f))
+(define* (mu:plot-histogram data title x-label y-label #:optional (text-only #f) (extra-gnuplot-opts '()))
   "Plot DATA with TITLE, X-LABEL and X-LABEL. If TEXT-ONLY is true,
 display using raw text, otherwise, use a graphical window. DATA is a
 list of cons-pairs (X . Y)."
@@ -62,6 +62,7 @@ list of cons-pairs (X . Y)."
 	       "set xlabel \"" x-label "\"\n"
 	       "set ylabel \"" y-label "\"\n"
 	       "set boxwidth 0.9\n"
+           (string-join extra-gnuplot-opts "\n")
 	       "plot \"" datafile "\" using 2:xticlabels(1) with boxes fs solid\n")
       gnuplot)
     (close-pipe gnuplot)))