User Portlet User Portlet

Discussions
Ah sorry for that, question updated.
This does the trick for your example plot = Thread[{{1, 2, 3, 4}, {1, 4, 9, 16}}] // ListPlot; plot/._RGBColor:>Black