Hi,
I would like to see the GridLines behind the red region. How can I do that?
Thanks for your help.
col = {Darker[ColorData["Rainbow"][0.25], 0.2],
Darker[ColorData["Rainbow"][0.4], 0.2],
Lighter[ColorData["Rainbow"][0.8], 0.25],
Lighter[ColorData["Rainbow"][1], 0.2]}
list = { 8, 7, 6, 5, 4, 3, 2, 1}
{a, b} = {Min[list], Max[list]}
Plot[PDF[SmoothKernelDistribution@list, x], {x, a, b}, Frame -> True,
FrameTicksStyle -> Directive[Black, 14], ImageSize -> 500,
GridLines -> Automatic, Filling -> Bottom, FillingStyle -> col[[4]],
PlotRange -> All]
