mantao/Plots.jl
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Added support for bar plots

Browse Source
This commit is contained in:
Josef Heinen 2016-01-16 13:53:22 +01:00
parent 054a99ca38
commit da9fdb356c
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/backends/gr.jl
View File

@ -46,7 +46,9 @@ function gr_display(plt::Plot{GRPackage})
xmin = ymin = typemax(Float64) xmin = ymin = typemax(Float64)
xmax = ymax = typemin(Float64) xmax = ymax = typemin(Float64)
for p in plt.seriesargs for p in plt.seriesargs
if p[:linetype] == :hist if p[:linetype] == :bar
x, y = 1:length(p[:y]), p[:y]
elseif p[:linetype] == :hist
x, y = Base.hist(p[:y]) x, y = Base.hist(p[:y])
else else
x, y = p[:x], p[:y] x, y = p[:x], p[:y]
@ -169,6 +171,16 @@ function gr_display(plt::Plot{GRPackage})
GR.polymarker(p[:x], p[:y]) GR.polymarker(p[:x], p[:y])
end end
legend = true legend = true
elseif p[:linetype] == :bar
y = p[:y]
for i = 1:length(y)
GR.setfillcolorind(gr_getcolorind(p[:fillcolor]))
GR.setfillintstyle(GR.INTSTYLE_SOLID)
GR.fillrect(i-0.4, i+0.4, max(0, ymin), y[i])
GR.setfillcolorind(1)
GR.setfillintstyle(GR.INTSTYLE_HOLLOW)
GR.fillrect(i-0.4, i+0.4, max(0, ymin), y[i])
end
elseif p[:linetype] == :hist elseif p[:linetype] == :hist
h = Base.hist(p[:y]) h = Base.hist(p[:y])
x, y = float(collect(h[1])), float(h[2]) x, y = float(collect(h[1])), float(h[2])
@ -191,7 +203,7 @@ function gr_display(plt::Plot{GRPackage})
end end
end end
elseif p[:linetype] in [:line, :steppre, :steppost, :sticks, elseif p[:linetype] in [:line, :steppre, :steppost, :sticks,
:heatmap, :hexbin, :density, :bar, :heatmap, :hexbin, :density,
:contour, :path3d, :scatter3d, :surface, :contour, :path3d, :scatter3d, :surface,
:wireframe, :ohlc, :pie] :wireframe, :ohlc, :pie]
println("TODO: add support for linetype $(p[:linetype])") println("TODO: add support for linetype $(p[:linetype])")