| author | Francesco Abbate <francesco.bbt@gmail.com> | 2013年01月07日 11:00:26 +0100 |
|---|---|---|
| committer | Francesco Abbate <francesco.bbt@gmail.com> | 2013年01月07日 11:00:26 +0100 |
| commit | 89ffc9a085ebbd3d4dbd42ec6b38510599da519d (patch) | |
| tree | 835096f08c7fec436e0b803453275d2e39638481 /gdt-plot.lua | |
| parent | 1148c0a18e15cf1bdf1b6db580d2536e3a69f3db (diff) | |
| download | gsl-shell-89ffc9a085ebbd3d4dbd42ec6b38510599da519d.tar.gz | |
| -rw-r--r-- | gdt-plot.lua | 20 |
diff --git a/gdt-plot.lua b/gdt-plot.lua index 85dfef24..15888639 100644 --- a/gdt-plot.lua +++ b/gdt-plot.lua @@ -173,7 +173,10 @@ local function rect_funcbin(t, jxs, jys, jes) return labels, enums, val end -local function gdt_table_barplot(t, jxs, jys, jes) +local function gdt_table_barplot(t, jxs, jys, jes, opt) + local show_plot = true + if opt then show_plot = (opt.show ~= false) end + jxs = treat_column_refs(t, jxs) jys = treat_column_funcrefs(t, jys) jes = treat_column_refs(t, jes) @@ -207,8 +210,7 @@ local function gdt_table_barplot(t, jxs, jys, jes) end end - plt:show() - + if show_plot then plt:show() end return plt end @@ -232,7 +234,10 @@ local function add_legend(lg, k, symspec, color, text) end end -local function gdt_table_lineplot(t, jxs, jys, jes) +local function gdt_table_lineplot(t, jxs, jys, jes, opt) + local show_plot = true + if opt then show_plot = (opt.show ~= false) end + jxs = treat_column_refs(t, jxs) jys = treat_column_funcrefs(t, jys) jes = treat_column_refs(t, jes) @@ -276,12 +281,15 @@ local function gdt_table_lineplot(t, jxs, jys, jes) plt:set_categories('x', cat) plt.xlab_angle = math.pi/4 - plt:show() + if show_plot then plt:show() end return plt end local function gdt_table_xyplot(t, jx, jys, jes, opt) + local show_plot = true + if opt then show_plot = (opt.show ~= false) end + local path, webcolor = graph.path, graph.webcolor local use_lines = opt and opt.lines @@ -343,7 +351,7 @@ local function gdt_table_xyplot(t, jx, jys, jes, opt) if mult > 1 then plt:set_legend(lg) end - plt:show() + if show_plot then plt:show() end return plt end |