Filling a listlineplot with a texture
This is one way of doing it:
pattern=Import["https://i.stack.imgur.com/l9iL8.jpg"];
Show[
ListLinePlot[PHB,
PlotStyle->Directive[Red,Thickness[.007]],
PlotTheme->"Detailed"],
Graphics[{Texture[pattern],FilledCurve[{BezierCurve[PHB]},
VertexTextureCoordinates->Automatic]}]
]
You can also use Filling -> Axis
in ListLinePlot
and post-process the output to add texture to polygons:
pattern = Import["https://i.stack.imgur.com/l9iL8.jpg"];
Using option settings from Vitaliy's answer:
llp = ListLinePlot[PHB,
PlotStyle -> Directive[Red, Thickness[.007]],
PlotTheme -> "Detailed",
Filling -> Axis];
llp /. Polygon[a_,b___] :>
{Opacity[1], Texture[pattern], Polygon[a, VertexTextureCoordinates -> Automatic]}