I use this code
{data1, data2} = Transpose[Table[{2 n, 3 n + 100}, {n, 20}]]; a = ListPlot[{data1, data2}, Joined -> True, PlotStyle -> {Directive[Red, Thickness[Scaled[10^-2]]], Directive[Blue, Thickness[Scaled[10^-2]]]}, Mesh -> All, MeshStyle -> Directive[PointSize[Large], Red], ClippingStyle -> False]
and I get this picture
Now, I have two questions:
- How can I ask Mathematica to change the color (red to blue) and shape (circle to diamond) of the plotmarker in the upper curve?
- How can I remove the joined line for the upper curve?