ListLogLinearPlot with customize Mesh mix up the markers in multiple curve

Question

I have to plot several curves in logarithmic scale. I used ListLogLinearPlot and customized the Mesh option. Then the markers mixed up.

x = Range[0, 5, 0.1];
ListLogLinearPlot[{Transpose[{x, Sin[x]}], Transpose[{x, Cos[x]}]}, 
    PlotMarkers -> Automatic, Joined -> True, 
    Mesh -> {x[[{2, 3, 4, 6, 11, 21, 31}]]}]

And I try not to use the logarithmic plot but ListPlot. It's OK.

ListPlot[{Transpose[{x, Sin[x]}], Transpose[{x, Cos[x]}]}, 
    PlotMarkers -> Automatic, Joined -> True, 
    Mesh -> {x[[{2, 3, 4, 6, 11, 21, 31}]]}]

I have learned the Mesh bug in PlotMarkers don't change colour for different lines. However, the logarithmic plot has a more sophisticated problem. I am using Mathematica 9. Thanks!

Answer 1

As I said in the comments, this does not happen on my computer (v10.0 on Ubuntu). But you can easily circumvent this problem by a number of ways. here's one:

x = Range[0, 5, 0.1];
ptsToPlot = {2, 3, 4, 6, 11, 21, 31};
g1 = ListLogLinearPlot[{
    Transpose[{x, Sin[x]}],
    Transpose[{x, Cos[x]}]
    }, Joined -> True];
g2 = ListLogLinearPlot[{
    Transpose[{x, Sin[x]}][[ptsToPlot]],
    Transpose[{x, Cos[x]}][[ptsToPlot]]
    }, PlotMarkers -> Automatic];
Show[g1, g2]