function createfigure1(X1, Y1, Y2, yvector1, Y3 )
%CREATEFIGURE1(X1,Y1,Y2,YVECTOR1,Y3)
%  X1:  vector of x data
%  Y1:  vector of y data
%  Y2:  vector of y data
%  YVECTOR1:  area yvector
%  Y3:  vector of y data

%  Auto-generated by MATLAB on 27-Jul-2017 11:56:07

% Create figure
figure1=figure(1);
% Create subplot
subplot1 = subplot(4,1,1,'Parent',figure1,'YGrid','on','XGrid','on');
% Uncomment the following line to preserve the X-limits of the axes
xlim(subplot1,[0 21]);
box(subplot1,'on');
hold(subplot1,'all');
% Create plot

plot(X1,Y1,'Parent',subplot1,...
    'Color',[0.0431372560560703 0.517647087574005 0.780392169952393],'DisplayName','pH-Wert');
% Create subplot
subplot2 = subplot(4,1,2,'Parent',figure1,'YGrid','on','XGrid','on');
% Uncomment the following line to preserve the X-limits of the axes
xlim(subplot2,[0 21]);
box(subplot2,'on');
hold(subplot2,'all');
% Create plot
plot(X1,Y2,'Parent',subplot2,...
    'Color',[0.847058832645416 0.160784319043159 0],...
    'DisplayName','Temperatur');
% Create subplot
subplot3 = subplot(4,1,3,'Parent',figure1,'YGrid','on','XGrid','on');
% Uncomment the following line to preserve the X-limits of the axes
 xlim(subplot3,[0 21]);
box(subplot3,'on');
hold(subplot3,'all');

% Create area
area(X1,yvector1,'FaceColor',[1 1 0.800000011920929],'Parent',subplot3,'DisplayName','Lichtintensität');

% Create axes
axes1 = axes('Parent',figure1,'YGrid','on', 'XGrid','on','Position',[0.13 0.11 0.775 0.157741935483871]);
% Uncomment the following line to preserve the X-limits of the axes
xlim(axes1,[0 21]);
box(axes1,'on');
hold(axes1,'all');

% Create plot
plot(X1,Y3,'Parent',axes1,'Color',[0 0.498039215803146 0],...
    'DisplayName','Biotrockenmasse [g/l]');

% Create legend
legend1 = legend(subplot1,'show');
set(legend1,'EdgeColor',[1 1 1],'YColor',[1 1 1],'XColor',[1 1 1]);
% Create legend
legend2 = legend(axes1,'show');
set(legend2,'EdgeColor',[1 1 1],'YColor',[1 1 1],'XColor',[1 1 1]);
% Create legend
legend3 = legend(subplot2,'show');
set(legend3,'EdgeColor',[1 1 1],'YColor',[1 1 1],'XColor',[1 1 1]);
% Create legend
legend4 = legend(subplot3,'show');
set(legend4,'EdgeColor',[1 1 1],'YColor',[1 1 1],'XColor',[1 1 1]);