ListPlot give special labels position with Callout

Question

When I use ListPlot, I want to show the labels, such as

ListPlot[Callout[#, #, Above] & /@ Range[10], Joined -> True, Mesh -> All]

Now all positions are Above, but sometimes the labels will over other text, so I want to set some of them Below, for example, the second and third point labels are Below, as the image shows.

score 7 · Accepted Answer · answered Dec 21 '20 at 16:11

7

ListPlot[Callout[#, #, # /. {2 | 3 | 8 -> Below, _ -> Above}] & /@ Range[10], 
  Joined -> True, Mesh -> All]

answered Dec 21 '20 at 16:11

kglr

394,356
18
477
896

score 0 · Answer 2 · answered Dec 21 '20 at 15:29

One way is use MapAt

data = Range[10];
mapBelow[n_] := MapAt[Callout[#, #, Below] &, n];
mapAbove[n_] := MapAt[Callout[#, #, Above] &, n];
below = Table[mapBelow[n], {n, {2, 3, 8}}];
above = Table[mapAbove[n], {n, Complement[Range[10], {2, 3, 8}]}];
ListPlot[Composition[Sequence @@ Flatten[{above, below}]][data], 
 Joined -> True, Mesh -> All]

ListPlot give special labels position with Callout

2 Answers2