Using this code
data = Table[{n, Sin[2 n]/n}, {n, 1, 100}]; ListLogPlot[data, Joined -> True, Mesh -> All, PlotMarkers -> {"•", 9}, PlotStyle -> Thickness[0], BaseStyle -> 10]
I get
How can I control and change the color of points and lines? For example, how can I have black points with gray lines? or any other colors.