How to use Callout for joined points line

Question

I want to use Callout to make a label of my joining point, instead of using PlotLabels like this

ListPlot[
  {{{2, 0}, {2, 3}}}, Joined -> True, 
  PlotLabels -> Placed["label", Above]
]

It is working for a point, but I can't make it work for a list of points:

ListPlot[
  {{0, 0}, Callout[{1, 1}, "Cool label"], {2, 2}}
]

Can anyone help?

Answer 1

One possible implementation could be:

pts = {{0, 0}, {1, 1}, {2, 2}};
lbls = {"one", "cool", "hot"};

ListPlot[Callout[First@#, Last@#] & /@ Transpose[{pts, lbls}], 
 Filling -> Axis]

---

EDIT

Or try this variation:

ListPlot[Callout[First@#, Last@#, Above] & /@ Transpose[{pts, lbls}], 
 Filling -> Axis,
 Epilog -> {Red, Dashed,
   Line@pts
   }
 ]