Different plotting lines and points when using lists

Question

Does anyone know how I can to draw a line connecting a list of data, while the dots are a colour and the line another colour?

As an example, the following is a list of data and how I plot them

list = {{1, 5}, {2, 8.5}, {3, 12}, {4, 17}, {5, 21.5}};
ListPlot[list, PlotStyle -> {Thick, Red}, PlotRange -> All]

What I want is not the following

ListLinePlot[list, PlotStyle -> {Thick, Red}, PlotRange -> All]

But rather, a way to have the points of the list in red colour and the line connecting them in black. (the colours are random of course).

Also, can someone tell me how to plot these points with a different style? For example instead of the dots, maybe a cross or a star or something.

Thanks in advance.

Answer 1

data = {{1, 5}, {2, 8.5}, {3, 12}, {4, 17}, {5, 21.5}};

I think you might reconsider ListLinePlot; it is perfectly capable of doing what you ask for.

ListLinePlot[data,
  PlotStyle -> {Thick, Black},
  PlotRange -> All,
  PlotMarkers -> {Style["\[FivePointedStar]", Red], 18}]

ListLinePlot[data,
  PlotStyle -> {Thick, Black},
  PlotRange -> All,
  Epilog -> {Text[Style["\[FivePointedStar]", Red, 20], #] & /@ data}]

Answer 2

You can also use PlotTheme with the setting "PlotMarkers","OpenMarkers" or "OpenMarkersThick":

ListLinePlot[{list, {0, 5} + # & /@ list}, PlotStyle -> {Red, Blue}, 
 PlotRange -> All, PlotTheme -> {"ThickLines", "OpenMarkersThick"}, 
 PlotLegends -> {"l1", "l2"}] 

Alternatively, use ListPlot and add the option `Joined -> True to get the same picture.