You can make the arrow black by adding a CalloutStyle -> Black option to the Callout. As for the marker, try addding a PlotStyle -> {Automatic, Black} option to the ListPlot.
CalloutStyle -> Black
Callout
PlotStyle -> {Automatic, Black}
ListPlot
Thank you Gustavo!
took care of both. :)
