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

Adding support for arrays in violin-plot

Browse Source
This commit is contained in:
Mauro Werder 2016-06-17 10:27:46 +02:00
parent a5ceea153d
commit f7c06da93e
1 changed files with 24 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
src/recipes.jl
View File

@ -69,7 +69,7 @@ function seriestype_supported(pkg::AbstractBackend, st::Symbol)
if st in supported_types(pkg) if st in supported_types(pkg)
return :native return :native
end end
haskey(_series_recipe_deps, st) || return :no haskey(_series_recipe_deps, st) || return :no
supported = true supported = true
@ -341,7 +341,7 @@ end
# --------------------------------------------------------------------------- # ---------------------------------------------------------------------------
# bezier curves # bezier curves
# get the value of the curve point at position t # get the value of the curve point at position t
function bezier_value(pts::AVec, t::Real) function bezier_value(pts::AVec, t::Real)
val = 0.0 val = 0.0
n = length(pts)-1 n = length(pts)-1
@ -719,24 +719,39 @@ end
# create a list of shapes, where each shape is a single boxplot # create a list of shapes, where each shape is a single boxplot
shapes = Shape[] shapes = Shape[]
groupby = extractGroupArgs(d[:x])
for (i, glabel) in enumerate(groupby.groupLabels) legend --> false
# get the edges and widths
y = d[:y][groupby.groupIds[i]]
widths, centers = violin_coords(y, trim=trim)
if length(d[:x])==1
widths, centers = violin_coords(d[:y], trim=trim)
# normalize # normalize
widths = _box_halfwidth * widths / maximum(widths) widths = _box_halfwidth * widths / maximum(widths)
# make the violin # make the violin
xcenter = discrete_value!(d[:subplot][:xaxis], glabel)[1] xcenter = discrete_value!(d[:subplot][:xaxis], d[:x][1])[1]
xcoords = vcat(widths, -reverse(widths)) + xcenter xcoords = vcat(widths, -reverse(widths)) + xcenter
ycoords = vcat(centers, reverse(centers)) ycoords = vcat(centers, reverse(centers))
push!(shapes, Shape(xcoords, ycoords)) push!(shapes, Shape(xcoords, ycoords))
else
groupby = extractGroupArgs(d[:x])
for (i, glabel) in enumerate(groupby.groupLabels)
# get the edges and widths
y = d[:y][groupby.groupIds[i]]
widths, centers = violin_coords(y, trim=trim)
# normalize
widths = _box_halfwidth * widths / maximum(widths)
# make the violin
xcenter = discrete_value!(d[:subplot][:xaxis], glabel)[1]
xcoords = vcat(widths, -reverse(widths)) + xcenter
ycoords = vcat(centers, reverse(centers))
push!(shapes, Shape(xcoords, ycoords))
end
end end
# d[:plotarg_overrides] = KW(:xticks => (1:length(shapes), groupby.groupLabels)) # d[:plotarg_overrides] = KW(:xticks => (1:length(shapes), groupby.groupLabels))
seriestype := :shape seriestype := :shape
# n = length(groupby.groupLabels) # n = length(groupby.groupLabels)