function dataplot(data)
% data = [time,lith,por,feas]
hfig=figure;
set(hfig,'color','w');

time=data(:,1);
feas=data(:,4:end);
attr={'IP','Vp/Vs','InstAmp','InstFreq','InstPhase','Variance','Arc','Skew'};  % [5,6,9,10,11,21,14,20]
col=[
0.5451 0.2706 0.0745 
1 0.9882 0.6
0 0.749 1];

subplot(1,10,2)
plot(data(:,3),time,'linewidth',1.5,'color',[1 0.6 0.07]);hold on;
set(gca,'ydir','reverse','layer','top','linewidth',1.5,'tickDir','in','box','on','ytick',[]);
set(gca,'FontSize',12,'FontWeight','bold');
title('Porosity','FontSize',12,'FontWeight','bold'); 
ylim([time(1),time(end)]);
    
for i=1:length(attr)
    subplot(1,10,i+2)
    plot(feas(:,i),time,'linewidth',1.5,'color','k');hold on;
    set(gca,'ydir','reverse','layer','top','linewidth',1.5,'tickDir','in','box','on','ytick',[]);
    set(gca,'FontSize',12,'FontWeight','bold');
    title(attr{i},'FontSize',11.5,'FontWeight','bold'); 
    ylim([time(1),time(end)]);
end