In this example, I'd like to change the color of the Callout Leader and the CalloutMarker to Black. Possible?
data1 = Table[{x, 4.9 + (0.2*RandomReal[])}, {x, 1, 10}];
poi = {
Callout[
{8, 2.5},
"point of interest",
{7, Automatic},
CalloutMarker -> Arrowheads[0.05]
]
};
eplot = ListPlot[{data1, poi}, PlotRange -> {Automatic, {0, 6}},
ImageSize -> Small];
Print[eplot];