Added stat_violin() for violin plots.

- Added stat_cornerhist() for corner histogram of the x-y difference
(beta)

Author: piermorel

@gramm/draw.m

@@ -230,6 +230,10 @@
 %Get colormap
 cmap=get_colormap(length(uni_color),length(uni_lightness),obj.color_options);
 
+%Initialize continuous colormap
+obj.continuous_color_colormap=pa_LCH2RGB([linspace(0,100,256)'...
+    repmat(100,256,1)...
+    linspace(30,90,256)']);
 
 %Initialize results structure (n_groups is an overestimate if
 %there are redundant groups
@@ -275,6 +279,8 @@
     draw_data.dodge_avl_w=1;
 end
 
+obj.data_size=numel(temp_aes.x);
+
 
 %% draw() looping
 %Loop over rows
@@ -867,7 +873,7 @@
                     temp_xlim=[obj.plot_lim.minx(ind_row,ind_column) obj.plot_lim.maxx(ind_row,ind_column)];
             end
             if sum(isnan(temp_xlim))==0
-                set(ca,'XLim',temp_xlim+[-diff(temp_xlim)*obj.xlim_extra*0.5 diff(temp_xlim)*obj.xlim_extra*0.5]);
+                set(ca,'XLim',temp_xlim+[-diff(temp_xlim)*obj.xlim_extra(1) diff(temp_xlim)*obj.xlim_extra(2)]);
             end
 
             switch temp_yscale
@@ -879,7 +885,7 @@
                     temp_ylim=[obj.plot_lim.miny(ind_row,ind_column) obj.plot_lim.maxy(ind_row,ind_column)];
             end
             if sum(isnan(temp_ylim))==0
-                set(ca,'YLim',temp_ylim+[-diff(temp_ylim)*obj.ylim_extra*0.5 diff(temp_ylim)*obj.ylim_extra*0.5]);
+                set(ca,'YLim',temp_ylim+[-diff(temp_ylim)*obj.ylim_extra(1) diff(temp_ylim)*obj.ylim_extra(2)]);
             end
 
             if ~isempty(temp_aes.z) %Only do the Z limit stuff if we have z data
@@ -890,7 +896,7 @@
                     case 'per_plot'
                         temp_zlim=[obj.plot_lim.minz(ind_row,ind_column) obj.plot_lim.maxz(ind_row,ind_column)];
                 end
-                set(ca,'ZLim',temp_zlim+[-diff(temp_zlim)*obj.zlim_extra*0.5 diff(temp_zlim)*obj.zlim_extra*0.5]);
+                set(ca,'ZLim',temp_zlim+[-diff(temp_zlim)*obj.zlim_extra(1) diff(temp_zlim)*obj.zlim_extra(2)]);
 
                 %Always have ticks if we have z data
                 has_xtick=true;

@gramm/gramm.m

@@ -7,6 +7,7 @@
         title_axe_handle %Store the handle of the title axis
         facet_axes_handles %Stores the handles of the facet axes
         results %Stores the results of the draw functions and statistics computations
+        
     end
 
     properties (Access=protected,Hidden=true)
@@ -37,9 +38,9 @@
         %corresponding to the facets, used to set axis limits
         plot_lim
 
-        xlim_extra=0.1 %extend range of XLim (ratio of original XLim width)
-        ylim_extra=0.1 %extend range of XLim (ratio of original YLim width)
-        zlim_extra=0.1
+        xlim_extra=[0.05 0.05] %extend range of XLim (ratio of original XLim width)
+        ylim_extra=[0.05 0.05] %extend range of XLim (ratio of original YLim width)
+        zlim_extra=[0.05 0.05]
 
         %Structure containing polar-related parameters: is_polar stores
         %whether to display polar plots, is_polar_closed to  set if the
@@ -84,10 +85,7 @@
 
         continuous_color=false %Do we use continuous colors (rather than discrete)
 
-         %Store the continuous color colormap
-        continuous_color_colormap=pa_LCH2RGB([linspace(0,100,256)'...
-                repmat(100,256,1)...
-                linspace(30,90,256)']);
+        continuous_color_colormap=[];
 
         %Store options for generating colors
         color_options =struct('lightness_range',[85 15],...
@@ -123,11 +121,15 @@
         title_text_handle=[] %Stores handle of title text object
 
         redraw_cache=[] %Cache store for faster redraw() calls
+        redraw_fun={};
 
         parent=[]
 
         handle_graphics
+        data_size
+        
         extra %Store extra geom-specific info
+       
     end
 
     methods (Access=public)
@@ -219,6 +221,8 @@
         obj=stat_bin2d(obj,varargin)
         obj=stat_density(obj,varargin)
         obj=stat_qq(obj,varargin)
+        obj=stat_cornerhist(obj,varargin)
+        obj=stat_violin(obj,varargin)
 
         function obj=set_parent(obj,parent)
             obj.parent=parent;

@gramm/private/parse_fill.m

@@ -0,0 +1,25 @@
+function [ face_color , face_alpha , edge_color , edge_alpha ] = parse_fill (fill,color)
+
+face_alpha=1;
+edge_alpha=0.8;
+switch fill
+    case 'edge'
+        edge_color=color;
+        face_color=color;
+        face_alpha=0;
+    case 'face'
+        edge_color='k';
+        edge_alpha=1;
+        face_color=color;
+    case 'all'
+        edge_color=color;
+        edge_alpha=0;
+        face_color=color;
+    case 'transparent'
+        edge_color=color;
+        face_color=color;
+        face_alpha=0.4;
+end
+
+end
+

@gramm/redraw.m

@@ -410,5 +410,12 @@
     end
 end
 
+
+if ~isempty(obj.redraw_fun)
+    for k=1:length(obj.redraw_fun)
+        obj.redraw_fun{k}();
+    end
+end
+
 %inCallback = [];
 end

@gramm/set_limit_extra.m

@@ -1,15 +1,27 @@
 function obj=set_limit_extra(obj,x_extra,y_extra,z_extra)
 %set_limit_extra Add some breathing room around data in plots
 %
-% Example syntax gramm_object.set_limit_extra(0.1,0.1)
+% Example syntax gramm_object.set_limit_extra([0.05 0.2],0.05)
 % first argument is XLim extra, second is YLim extra, extra
-% room is expressed as ratio to original limits. 0.1 will
-% extend by 5% on each side.
+% room is expressed as ratio to original limits. It is possible to set
+% extra room separately for upper and lower limits by giving a 2x1 array.
+% If not, the lower and uupper limit extra will be the same
 
 if nargin<4
     z_extra=0;
 end
 
+%If only one element is given we use it for upper and lower extra
+if numel(x_extra==1)
+    x_extra=[x_extra x_extra];
+end
+if numel(y_extra==1)
+    y_extra=[y_extra y_extra];
+end
+if numel(z_extra==1)
+    z_extra=[z_extra z_extra];
+end
+
 for obj_ind=1:numel(obj)
     obj(obj_ind).xlim_extra=x_extra;
     obj(obj_ind).ylim_extra=y_extra;

@gramm/stat_bin.m

@@ -140,26 +140,8 @@
 
 
 %Set up colors according to fill
-face_alpha=1;
-edge_alpha=0.8;
-switch params.fill
-    case 'edge'
-        edge_color=draw_data.color;
-        face_color=draw_data.color;
-        face_alpha=0;
-    case 'face'
-        edge_color='k';
-        edge_alpha=1;
-        face_color=draw_data.color;
-    case 'all'
-        edge_color=draw_data.color;
-        edge_alpha=0;
-        face_color=draw_data.color;
-    case 'transparent'
-        edge_color=draw_data.color;
-        face_color=draw_data.color;
-        face_alpha=0.4;
-end
+[face_color , face_alpha , edge_color , edge_alpha] = parse_fill (params.fill,draw_data.color);
+