I would like to create this graph :
So I started with this :
Clear[droite, norm1, norm2, norm3, hsGPA, graphdroite];
droite[hsGPA_] := 1.5 + 0.5*hsGPA
norm1 = Rotate[Plot[PDF[NormalDistribution[droite@4,.05], y], {y, 2, 6},
PlotRange -> All, Axes -> False], 270 Degree];
norm2 = Rotate[Plot[PDF[NormalDistribution[droite@6,.05], y], {y, 4, 8},
PlotRange -> All, Axes -> False], 270 Degree];
norm3 = Rotate[Plot[PDF[NormalDistribution[droite@8,.05], y], {y, 6, 10},
PlotRange -> All, Axes -> False], 270 Degree];
graphdroite = Plot[droite[hsGPA], {hsGPA, 0, 10}]
Show[graphdroite, norm1, norm2, norm3]
But the Show function doesn't work here.
Any suggestions?