2 added 456 characters in body edited Apr 14 '16 at 12:50 Jason B. 50.8k33 gold badges9696 silver badges203203 bronze badges Here is another method, Plot[{t, 2 t}, {t, 0, 180}, PlotPoints -> 20, PlotStyle -> Rest[ColorData[97, "ColorList"]], MaxRecursion -> 0] /. Line[a_] :> {Point[a], Line[a]} Here the points will intrinsically match whatever PlotStyle you apply. If all you are trying to do is include evenly spaced points in the x-direction for your plot, use ListLinePlot with PlotMarkers list1 = Table[{t, t}, {t, 0, 180, 10}]; list2 = Table[{t, 2 t}, {t, 0, 180, 10}]; ListLinePlot[{list1, list2}, PlotMarkers -> First@GraphicsPlotMarkers[], PlotStyle -> Rest[ColorData[97, "ColorList"]]] Here is another method, Plot[{t, 2 t}, {t, 0, 180}, PlotPoints -> 20, PlotStyle -> Rest[ColorData[97, "ColorList"]], MaxRecursion -> 0] /. Line[a_] :> {Point[a], Line[a]} Here the points will intrinsically match whatever PlotStyle you apply Here is another method, Plot[{t, 2 t}, {t, 0, 180}, PlotPoints -> 20, PlotStyle -> Rest[ColorData[97, "ColorList"]], MaxRecursion -> 0] /. Line[a_] :> {Point[a], Line[a]} Here the points will intrinsically match whatever PlotStyle you apply. If all you are trying to do is include evenly spaced points in the x-direction for your plot, use ListLinePlot with PlotMarkers list1 = Table[{t, t}, {t, 0, 180, 10}]; list2 = Table[{t, 2 t}, {t, 0, 180, 10}]; ListLinePlot[{list1, list2}, PlotMarkers -> First@GraphicsPlotMarkers[], PlotStyle -> Rest[ColorData[97, "ColorList"]]] 1 answered Apr 14 '16 at 12:21 Jason B. 50.8k33 gold badges9696 silver badges203203 bronze badges Here is another method, Plot[{t, 2 t}, {t, 0, 180}, PlotPoints -> 20, PlotStyle -> Rest[ColorData[97, "ColorList"]], MaxRecursion -> 0] /. Line[a_] :> {Point[a], Line[a]} Here the points will intrinsically match whatever PlotStyle you apply