I’ve a problem the place my y axis is drawn too far down. I really feel like there must be a query on the market asking about this, however I wasn’t capable of finding something. Is there any option to make the y-axis solely draw in order that it makes an ideal L form with the x axis?
Right here is my code:
flux[t_] :=
Sqrt[2/π] (8 + 6 t) Exp[-2*(6 - 2 t)^2/(4 + t^2)]
/(4 + t^2)^(3/2);
fluxPlot = Plot[flux[t], {t, tMin - dt, tMax + dt},
PlotStyle -> {Thickness[0.0090], GrayLevel[0], Opacity[0.8]},
LabelStyle -> Opacity[0],
Ticks -> None
];
h = Histogram[histPoints, {dt}, "ProbabilityDensity",
ChartStyle -> GrayLevel[0.88, opacityHist],
ChartBaseStyle -> EdgeForm[Opacity[opacityHist + 0.15]],
LabelStyle -> Opacity[0],
Ticks -> None,
AxesStyle -> Thickness[0.006]
];
Present[h,fluxPlot]
And right here is the difficulty, seen within the backside left nook beneath the x-axis: