2 added 456 characters in body
source | link

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]}

enter image description here

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@Graphics`PlotMarkers[],
 PlotStyle -> Rest[ColorData[97, "ColorList"]]]

enter image description here

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]}

enter image description here

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]}

enter image description here

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@Graphics`PlotMarkers[],
 PlotStyle -> Rest[ColorData[97, "ColorList"]]]

enter image description here

1
source | link

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]}

enter image description here

Here the points will intrinsically match whatever PlotStyle you apply