带有附加 z 轴的 hist3 图

Question

以下代码为两个二维分布创建二维堆叠直方图：

%%first dataset
x1 = 200 + 300.*rand(1000,1)';  %rand values between 0 and 200
y1 = 100 + 250.*rand(1000,1)';  %rand values between 100 and 500
%%secnd dataset
x2 = 100 + 200.*rand(1000,1)';  %rand values between 0 and 200
y2 = 200 + 400.*rand(1000,1)';  %rand values between 100 and 500


one = linspace(100,400,20);
two = linspace(100,500,20);
EDGES = {one, two}; %edges

[n1,c1] = hist3([x1' y1'],'Edges',EDGES);%first dataset
[n2,c2] = hist3([x2' y2'],'Edges',EDGES);%second dataset


figure('Color','w');  

% plot the first data set

bh=bar3(n1);

% Loop through each row and shift bars upwards

for ii=1:length(bh)
      zz = get(bh(ii),'Zdata');
      kk = 1;

      % Bars are defined by 6 faces(?), adding values from data2 will
      % shift the bars upwards accordingly, I'm sure this could be made
      % better!
      for jj = 0:6:(6*length(bh)-6)  
             zz(jj+1:jj+6,:)=zz(jj+1:jj+6,:)+n2(kk,ii);
             kk=kk+1;
      end

    %erase zero height bars
    %# get the ZData matrix of the current group
    Z = get(bh(ii), 'ZData');

    %# row-indices of Z matrix. Columns correspond to each rectangular bar
    rowsInd = reshape(1:size(Z,1), 6,[]);

    %# find bars with zero height
    barsIdx = all([Z(2:6:end,2:3) Z(3:6:end,2:3)]==0, 2);

    %# replace their values with NaN for those bars
    Z(rowsInd(:,barsIdx),:) = NaN;

    %# update the ZData
    set(bh(ii), 'ZData',Z)
end

% Set face colour to blue for data1
set(bh,'FaceColor',[0 0 1]);

% Apply hold so that data2 can be plotted

hold on;

% Plot data2
bh=bar3(n2);
%erase zero height bars
for ii=1:numel(bh)
    %# get the ZData matrix of the current group
    Z = get(bh(ii), 'ZData');

    %# row-indices of Z matrix. Columns correspond to each rectangular bar
    rowsInd = reshape(1:size(Z,1), 6,[]);

    %# find bars with zero height
    barsIdx = all([Z(2:6:end,2:3) Z(3:6:end,2:3)]==0, 2);

    %# replace their values with NaN for those bars
    Z(rowsInd(:,barsIdx),:) = NaN;

    %# update the ZData
    set(bh(ii), 'ZData',Z)
end

% Set face color to red
set(bh,'FaceColor',[1 0 0]);

%set ticks
set(gca,'XTick',1:6:numel(one),'XTickLabel',one(1:6:end))
set(gca,'YTick',1:6:numel(one),'YTickLabel',one(1:6:end))

view(20,40)

%labels
xlabel('x')
ylabel('y')
zlabel('z')

%set transparency
set(gcf,'renderer','opengl');
set(get(gca,'child'),'FaceAlpha',0.8);
set(get(gca,'child'),'EdgeAlpha',0.3);

第一个问题是透明度（但我认为这是我的 matlab 版本 2014a 的问题，所以我不介意）。它只会让一切变得模糊。

我的问题是如何在同一张图片上添加网格图。创建网格的代码如下：

%create surface I want to plot
[X,Y] = meshgrid(one,two);

inds1=find(X(:).*Y(:)<.3e5);%condition
inds2=find(X(:).*Y(:)>.3e5);

I=Y./X.^2;%first surface

I(inds1)=NaN;%second surface


figure('Color','w');hold on
mesh(X,Y,I,'FaceColor',[0 0 1],'EdgeColor','none')

I(:,:)=NaN;
I(inds1)=Y(inds1)./X(inds1);%second surface

mesh(X,Y,I,'FaceColor',[1 0 0],'EdgeColor','none')

alpha(.5)
grid on

view(20,40)

%labels
xlabel('x')
ylabel('y')
zlabel('z')

直方图和网格的域相同。所以我只需要在第一个图上添加一个额外的 z 轴。

我尝试用AxesH = axes('NextPlot', 'add'); 替换第二个代码中的figure('Color','w');hold on，但我确实错了：

这只是覆盖了两个数字..

我也尝试过类似的方法：

%add axis
axesPosition = get(gca,'Position');          %# Get the current axes position
hNewAxes = axes('Position',axesPosition,...  %# Place a new axes on top...
                'Color','none',...           %#   ... with no background color
                'ZLim',[0 400],...            %#   ... and a different scale
                'ZAxisLocation','right',...  %#   ... located on the right
                'XTick',[],...               %#   ... with no x tick marks
                'YTick',[],...               %#   ... with no y tick marks
                'Box','off');    

但这不可行，因为属性ZAxisLocation 不存在。

有人知道如何添加z轴吗？

另外，如果您有其他关于如何改进代码的 cmets，欢迎他们！

致谢

二维堆叠直方图：https://stackoverflow.com/a/17477348/3751931

擦除历史图中的零值：https://stackoverflow.com/a/17477348/3751931

Answer 1

我现在认为这还不可能 (http://www.mathworks.com/matlabcentral/answers/95949-is-there-a-function-to-include-two-3-d-plots-with-different-z-axes-on-the-same-plot-area-similar-to)。

所以我只是添加了一个假轴：

[X,Y] = meshgrid(one,two);

inds1=find(X(:).*Y(:)<.3e5);%condition
inds2=find(X(:).*Y(:)>.3e5);

s=Y./X.^2;%first surface

s(inds1)=NaN;%second surface

%mesh(X,Y,I,'FaceColor',[0 0 1],'EdgeColor','none')
mesh((X-min(min(X)))/max(max(X-min(min(X))))*20,(Y-min(min(Y)))/max(max(Y-min(min(Y))))*20,...
    s/max(max(s))*max(max(n1))+max(max(n1)),'FaceColor','g','EdgeColor','none','facealpha',.5)

s(:,:)=NaN;
s(inds1)=Y(inds1)./X(inds1);%second surface

%mesh(X,Y,I,'FaceColor',[1 0 0],'EdgeColor','none')
mesh((X-min(min(X)))/max(max(X-min(min(X))))*20,(Y-min(min(Y)))/max(max(Y-min(min(Y))))*20,...
    s/max(max(s))*max(max(n1))+max(max(n1)),'FaceColor','y','EdgeColor','none','facealpha',.5)

alpha(.5)
grid on

%add fake z axis
line([20 20],[1 1],[max(max(n1))-min(min(s)) 20],...
    'color','g','linewidth',2)

% text(20*ones(1,5),zeros(1,5),linspace(max(max(n1))-min(min(I)),20,5),...
%     num2str(linspace(0,max(max(I)),5)),'color','g')

z=linspace(max(max(n1))-min(min(s)),20,5);
txto=linspace(0,max(max(s)),5);

for ii=1:5
    line([20 20.3],[1 1],[z(ii) z(ii)],'color','g')%ticks
    text(20,0,z(ii),num2str(txto(ii)),'color','g')%ticklabel
end
text(19.8,1,21,'s','color','g')%label

所有的代码都很丑陋，需要大量调整..