Code covered by the BSD License  

Highlights from
Color coded 3D scatterplot

image thumbnail

Color coded 3D scatterplot


Ken Garrard (view profile)


05 Jan 2006 (Updated )

Produces a 3D scatterplot of XYZ data with varying colors

function [f,g,h] = plot3k(L,varargin)
% PLOT3K  Color coded 3D scatterplot
%   [f,g,h] = plot3k(L,varargin)
% Input
%   L    An (x,y,z) vector of data points (n x 3) or
%        an (n x m) matrix with m > 3 or
%        a 3 element cell array containing x, y and z vectors or matrices.
%        For cell array input x and y may be matrices the same size as z
%        or vectors of row and column locations on a grid.  If L is an n x m
%        matrix, an xy grid is created using meshgrid(1:n,1:m).
%   A 3D scatterplot of the data points in L is produced using the magnitude
%   of z to color the points according to their distance from the xy plane.
%   Plot3 is called once for each group of points that map to the same color.
%   The color mapping, color range, point markers and labels can be changed
%   with optional property,value pair arguments.  If the 'PlotType' property
%   is 'stem' each point is connected to the xy plane with a line having the
%   same color as the point.  Plot properties can be use to change the line
%   width and the marker size for the point.
%   varargin       'property','value' pairs that modify plot characteristics.
%      Property names must be specified as quoted strings. Property names and
%      their values are not case sensitive. For each property the default value
%      is given below.  All properties are optional. They may be given in any
%      order.
%   'PlotType'     'scatter'  scatter plot (default)
%                  'stem'     stem plot, each point is connnect to the xy plane
%                             by a line having the same color as the point.
%   'ColorData'    Array of color values (default = 3rd column of L)
%      The data points are colored according to the colordata array.  The
%      number of values must equal the length of L.  A row vector, column
%      vector or matrix can be specified.
%   'ColorRange'   Color mapping limits  (default = [min(L(:,3) max(L,:3)])
%      A two element vector specifying the values that map to the first and
%      last colors.  This is useful for generating a series of plots with
%      identical coloring.  The colormap (but not the colorbar) is flipped
%      upside down if 'ColorRange' is given as [max min] instead of [min max]. 
%   'Marker'       Cell array containing point marker character and size
%      Any marker from the standard plot set '+o*.xsd^v><ph' and its size.
%      The default is {'.' 6}.
%   'ColorBar'     Add colorbar to plot (default = true)
%      Set this property to false to eliminate the colorbar from the plot.
%   'CBLabels'     Number of colorbar labels (default = 11)
%   'CBFormat'     Format string for printing colorbar labels
%      Any sprintf format string with a numeric conversion code.
%      The default is '%5.3g'.
%   'Labels'       A cell array of five label strings (default = {})
%      These strings are used as the plot title, x axis label, y axis label,
%      z axis label and colorbar title.  To skip a string specifiy ''.
%   Any 'property',value pairs not in the above list are applied to the
%      graphics axes after the plot is drawn using the set() command.
% Output
%   f,g,h         Handles for the figure, axes and colorbar
% Example
%    figure('color','white');
%    [x,y,z] = peaks(101);
%    c = gradient(z);
%    k = hypot(x,y)<3;
%    plot3k({x(k) y(k) z(k)},                                      ...
%       'Plottype','stem','FontSize',12,                           ...
%       'ColorData',c(k),'ColorRange',[-0.5 0.5],'Marker',{'o',2}, ...
%       'Labels',{'Peaks','Radius','','Intensity','Lux'});
% Ken Garrard, North Carolina State University, 2005 - 2014
% Based on plot3c by Uli Theune, University of Alberta
% 2008.11.07  Updated color range and marker arguments
% 2010.12.14  Updated input L to allow x,y vectors and z matrix
% 2011.01.04  Include axes and colorbar handles as output arguments
% 2011.10.14  Optional arguments are now property,value pairs
% 2012.03.08  The NextPlot property treatment has been updated
% 2013.08.17  Excludes points with NaN color values from the plot
% 2013.09.23  Added a stem3 style with colored lines from the xy plane
%             Replace optional 'Plotprops' argument with 'property',value pairs
% 2013.12.21  Added 'ColorBar' property
% 2014.10.04  Updated for R2014b graphics

% -- Help

% Plot3k was called without arguments, plot an example in a new figure
% and display help text
if nargin < 1
   [x,y,z] = peaks(101);
   c = gradient(z);
   k = hypot(x,y)<3;
   plot3k({x(k) y(k) z(k)},                                      ...
      'Plottype','stem','FontSize',12,                           ...
      'ColorData',c(k),'ColorRange',[-0.5 0.5],'Marker',{'o',2}, ...
   error(['No input arguments given\n'...
          'Please consult the help text and the example plot\n'...

%-- Parse and validate input arguments

% Convert singleton cell array to its contents
while iscell(L) && length(L) == 1, L = L{1}; end

% Check for cell array location data
if iscell(L)
   % cell array input must have three elements
   if length(L) ~= 3
      error('Location cell array must contain three elements');

   % convert cell array elements to column vectors
   x = L{1}(:);   y = L{2}(:);   z = L{3}(:);

   % make a grid from col,row vectors
   if isequal(numel(x)*numel(y),numel(z))
      [x,y] = meshgrid(x,y);

   % equal length x, y and z vectors ?
   elseif ~isequal(length(x),length(y),length(z))
      error('Location cell array elements must be same length');

   % convert to n x 3 matrix
   L = [x(:) y(:) z(:)];

% Location data may be a 2d matrix
elseif ndims(L) == 2 && size(L,2) > 3 %#ok<ISMAT>

   % use pixel values for x,y
   [x,y] = meshgrid(1:size(L,2),1:size(L,1));

   % convert to n x 3 matrix
   L = [x(:) y(:) L(:)];

% Otherwise location data must have 3 columns
elseif size(L,2) ~= 3
   error('Location vector must have 3 columns');

% Set up property structure with default values
p.plottype    = 'scatter';       % plot individual points w/o lines
p.colordata   = [];              % color by magnitude of z
p.colorrange  = [];              % color range = full range of z
p.marker      = {'.' 6};         % point marker
p.colorbar    = true;            % add colorbar to plot
p.cblabels    = 11;              % number of colorbar labels
p.cbformat    = '%5.3g';         % colorbar label format string
p.labels      = {};              % no labels
p.plotprops   = {};              % no additional plot properties

% Parse property value pairs, replace defaults with values specified by caller
   [p,leftovers] = structrecon(pv2struct(varargin{:}),p);
   p.plotprops   = struct2pv(leftovers);
catch ERR
   error('Error parsing varargin list\n %s',ERR.message);

% Check plot type specification
if ~ischar(p.plottype) || ...
    isempty(matchstr2lst(lower(p.plottype),{'scatter' 'stem'}))
   error('Invalid ''PlotType'' property value');

% Color vector must be same length as x,y,z location data or empty
p.colordata = p.colordata(:);
if ~isempty(p.colordata) && (size(L,1) ~= length(p.colordata))
   error('Location vector and color data vector must be the same length');

% Validate marker character
if ~iscell(p.marker), mark_ch = p.marker;  mark_sz = 6;
    mark_ch = p.marker{1};
    if length(p.marker)>1, mark_sz = p.marker{2};
    else                   mark_sz = 6;
marker_str = '+o*.xsd^v><ph';
if (length(mark_ch) ~= 1) || isempty(strfind(marker_str,mark_ch))
   error('Invalid marker character, select one of ''%s''', marker_str);
mark_sz = max(mark_sz,0.5);

% Validate label strings cell array structure
if ~iscell(p.labels)
   error('labels argument should be a cell array');

% -- Setup colormap, sort data by color

% Find color limits and range
if isempty(p.colordata)                  % user specified colordata ?
   p.colordata = L(:,3);                 % no, color by magnitude of z
if isempty(p.colorrange)                 % user specified colorrange ?
   min_c = min(p.colordata);             % no, use colordata range
   max_c = max(p.colordata);
else                                     % user specified color range
   min_c = p.colorrange(1);
   max_c = p.colorrange(2);
range_c = max_c - min_c;

% Get current colormap
cmap = colormap;
if range_c < 0, cmap = flipud(cmap); end
clen = length(cmap);

% Calculate color value for each point
L(:,4) = ...

% Don't plot points with NaN color values
L(isnan(p.colordata),3) = NaN;

% Sort by color value
L = sortrows(L,4);

%-- Plot data points in groups by color value

% Build index vector of color transitions (last point for each color)
dLix = [find(diff(L(:,4))>0); size(L,1)];

nxtplot = get(gca,'NextPlot');     % save 'NextPlot' property value
s = 1;                             % index of 1st point in a  color group

% Scatter plot or stem plot?
switch lower(p.plottype)
   case 'scatter'
      for k = 1:length(dLix)             % loop over each non-empty color group
         plot3(L(s:dLix(k),1), ...       % points in this group x
               L(s:dLix(k),2), ...       %                      y
               L(s:dLix(k),3), ...       %                      z
               mark_ch,                          ... % marker character
               'MarkerSize',mark_sz,             ... % marker size
               'MarkerEdgeColor',cmap(L(s,4),:), ... % same marker color from cmap
               'MarkerFaceColor',cmap(L(s,4),:), ... % for all points in group
               'Tag','plot3k');                      % tag each group
         s = dLix(k)+1;                  % next group starts at next point
         if k == 1, hold on; end         % add next group to same axes

   case 'stem'
      for k = 1:length(dLix)             % loop over each non-empty color group
         % make a line from the xy plane (x,y,0) to each (x,y,z)
         % save the lines for a group in one set of x,y,z vectors
         % allocate space, 3 values for each line (x,y,0) (x,y,z) and (NaN,NaN,NaN)
         x = repmat([0 0 NaN],1,size(L(s:dLix(k),1),1)); y = x; z = x;
         x(1:3:end) = L(s:dLix(k),1);
         x(2:3:end) = L(s:dLix(k),1);
         y(1:3:end) = L(s:dLix(k),2);
         y(2:3:end) = L(s:dLix(k),2);
         z(2:3:end) = L(s:dLix(k),3);
         plot3(x,y,z,                            ... % lines in this group
               [mark_ch '-'],                    ... % marker and line characters
               'MarkerSize',mark_sz,             ... % marker size
               'MarkerEdgeColor',cmap(L(s,4),:), ... % same marker color from cmap
               'MarkerFaceColor',cmap(L(s,4),:), ... % for all points in group
               'Color',          cmap(L(s,4),:), ... % line color
               'Tag','plot3k');                      % tag each group
         s = dLix(k)+1;                  % next group starts at next point
         if k == 1, hold on; end         % add next group to same axes
set(gca,'NextPlot',nxtplot);       % restore 'NextPlot' property

% -- Add title and axes labels

fontargs = {'FontName','Arial','FontSize',10,'FontWeight','bold'};
s = repmat({''},5-length(p.labels),1);
strlab = {p.labels{:} s{:}}; %#ok<CCAT>
title (strlab{1},fontargs{:});

% Set plot characteristics
grid on;

% Apply user specified plot properties
if ~isempty(p.plotprops), set(gca,p.plotprops{:}); end

% -- Format the colorbar

if p.colorbar
   % Create cell array of color bar tick label strings
   nlab   = abs(p.cblabels);
   labels = arrayfun(@(x)(sprintf(p.cbformat,x)), ...

   % Add the colorbar
   h = colorbar;

   % Set colorbar labels and tick marks
   if ~verLessThan('matlab','8.4'), h.TickLabels = labels;
      set(h,'YLim',[1 clen]);               % set colorbar limits
      set(h,'YTick',linspace(1,clen,nlab)); % set tick mark locations
      % Set tick label strings

   % Add colorbar title
   if ~isempty(strlab{5}), title(h,strlab{5}); end

if nargout > 0, f = gcf; end             % return figure handle
if nargout > 1, g = gca; end             % return axes   handle

% Structure reconciliation with a template
function [T,S] = structrecon(S,D)

% Check arguments, must have two structures
if ~(isstruct(S) && isstruct(D))
   error('input arguments must be structures');
T     = D;             % copy the template
fname = fields(T);     % make a list of field names

% Loop over all fields in the template, copy matching values from S
for k = 1:length(fname)
   % Process matching field names in S
   if isfield(S,fname{k})
      % Is this a substructure ?
      if isstruct(T.(fname{k})) && isstruct(S.(fname{k}))
         % Recursively process the substructure
         T.(fname{k}) = structrecon(S.(fname{k}),T.(fname{k}));
      % Not a substructure, copy field value from S
      else T.(fname{k}) = S.(fname{k});
      S = rmfield(S,fname{k});

% Convert an argument pairs cell array to a structure
function S = pv2struct(varargin)

% No inputs, return empty structure
if isempty(varargin), S = struct(); return; end

% Need pairs of inputs
if mod(length(varargin),2)==1
   error('number of arguments must be even');

% Odd elements of varargin are fields, even ones are values
% Store all field names in lower case
for k = 1:2:length(varargin)
   S.(lower(varargin{k})) = varargin{k+1};

% Convert a structure to an argument pairs cell array
function P = struct2pv(S)

% Check input argument
if ~isstruct(S), P = {}; return; end

% Get field names
n = fieldnames(S);

% Convert structure values to cell array
v = struct2cell(S);

% Combine names and values, return a 1xN cell array
P = {n{:}; v{:}};
P = P(:).';

% Match a string with a list of strings
function idx = matchstr2lst(str,strarray,opt)

if nargin < 2, return; end
idx = find(strncmpi(str,strarray,length(str))==1);
idx = idx(:);

if nargin > 2
   if     strcmpi(opt,'first'), idx = idx(1);
   elseif strcmpi(opt,'last'),  idx = idx(end);

Contact us