Epilog no funciona

Oct 12 2020

Estoy tratando de poner una flecha para indicar un punto en una parcela.

ListPlot[{Transpose[{temp1, lum1}], Transpose[{temp2, lum2}], 
  Transpose[{temp3, lum3}], Transpose[{temp4, lum4}]}, 
 PlotStyle -> {Hue[First@#2/12], Hue[First@#2/15], Hue[First@#2/18], 
   Hue[First@#2/21]}, 
 Epilog -> {Arrow[{{4.2, 3.6}, {4.4, 3.6}}], 
   Text["text", {4.4, 3.6}, {4.4, 4}]}, 
 ScalingFunctions -> {"Reverse", Identity}, PlotRange -> Full, 
 PlotTheme -> "Detailed", 
 FrameTicksStyle -> Directive[FontSize -> 22], 
 PlotStyle -> {Automatic, Green}, AxesLabel -> Automatic, 
 Frame -> True, 
 FrameLabel -> {Style["Temperatura Log T [K]", FontSize -> 22, Bold], 
   Style["Luminosidad Log L [\!\(\*SubscriptBox[\(L\), \(sol\)]\)]", 
    FontSize -> 22, Bold]}, ImageSize -> Large]

pero parece que Epilog no funciona correctamente. La salida es

mientras que esperaría ver una flecha apuntando al punto amarillo en (4.4,3.6)

Respuestas

2 kglr Oct 12 2020 at 16:46
SeedRandom[1]
data = RandomReal[{3.5, 4.4}, {100, 2}];

ListPlot[data, Frame -> True, 
 ScalingFunctions -> {"Reverse", Identity},
 PlotRangeClipping -> False, 
 Epilog -> {Arrow[{{-4.2, 3.6}, {-4.4, 3.6}}], 
   Text[Style["text", FontSize -> Scaled[.05]], {-4.4, 3.6}, {Left, Bottom}]}]

Text[Style["text", FontSize -> Scaled[.05]], {-4.4, 3.6}, {-1, -1}] da la misma imagen.

También puede utilizar Offset[{xprinterpoints, yprinterpoints}, {xpos,ypos}]en el segundo argumento de Textpara especificar la posición. Utilizando

  Text[Style["text", FontSize -> Scaled[.05]], Offset[{15, 5}, {-4.4, 3.6}], {-1, - 1}]

arriba, obtenemos

Utilizando

Text[Style["text", FontSize -> Scaled[.05]], Offset[{15, -5}, {-4.4, 3.6}], {-1, 1}]

da

y

Text[Style["text", FontSize -> Scaled[.05]], Offset[{-25, 0}, {-4.4, 3.6}], {-1, -1}]

da