fixed background image issues

REQUIRE

@@ -1,3 +1,4 @@
+Compose
 DataFrames
 Devectorize
 Distributions

src/MachineLearning.jl

@@ -1,5 +1,6 @@
 module MachineLearning
     using
+        Compose,
         DataFrames,
         Devectorize,
         Distributions,

src/importance.jl

@@ -71,12 +71,12 @@ function Gadfly.plot(results::ImportanceResults)
     importance = DataFrame(Feature=results.names, Importance=results.importances, Useful=[imp>0.0 ? "Yes":"No" for imp=results.importances])
     importance = sort(importance, cols=[:Feature])
     order = sortperm(importance[:Importance], rev=false)
-    plot(importance,
-         x="Importance",
-         y="Feature",
-         color="Useful",
-         Geom.bar(orientation=:horizontal),
-         Scale.y_discrete(order=order),
-         Guide.title(@sprintf("Best Score: %0.4f", results.best_score)),
-         Theme(panel_fill=color("white")))
+    p = plot(importance,
+             x="Importance",
+             y="Feature",
+             color="Useful",
+             Geom.bar(orientation=:horizontal),
+             Scale.y_discrete(order=order),
+             Guide.title(@sprintf("Best Score: %0.4f", results.best_score)))
+    compose(render(p), compose(context(), rectangle(), fill("white")))
 end

src/partial.jl

@@ -43,9 +43,10 @@ end
 function Gadfly.plot(results::PartialFeatureResults)
     df = DataFrame(Feature=results.values, Probability=results.responses)
 
-    plot(df,
-         x="Feature",
-         y="Probability",
-         Geom.line,
-         Guide.title(results.name))
+    p = plot(df,
+             x="Feature",
+             y="Value",
+             Geom.line,
+             Guide.title(results.name))
+    compose(render(p), compose(context(), rectangle(), fill("white")))
 end

src/sensitivity.jl

@@ -40,10 +40,10 @@ function Gadfly.plot(results::SensitivityResults)
     rename!(data, :value, :Sensitivity)
     sort!(data, cols=:Feature)
     order = sortperm(aggregate(data, :Feature, median)[:Sensitivity_median], rev=true)
-    plot(data,
-         x="Feature",
-         y="Sensitivity",
-         Geom.boxplot(),
-         Scale.x_discrete(order=order),
-         Theme(panel_fill=color("white")))
+    p = plot(data,
+             x="Feature",
+             y="Sensitivity",
+             Geom.boxplot(),
+             Scale.x_discrete(order=order))
+    compose(render(p), compose(context(), rectangle(), fill("white")))
 end