data1=RandomVariate[NormalDistribution[2,3],200];
data2=RandomVariate[StudentTDistribution[4,2,3],200];
data3=RandomVariate[WeibullDistribution[2,5],200];

QuantilePlot[{data1},PlotLegends->{"normal"}]

QuantilePlot[{data2},PlotLegends->{"Student t"}]

QuantilePlot[{data3},PlotLegends->{ "Weibull"}]

QuantilePlot[{data1,data2,data3},PlotLegends->{"normal","Student t", "Weibull"}]