This question already has an answer here:

I'm trying to get alphabetical labels (a, b, c, d, ...) superimposed on to a series of Mathematica plots to put into a $\LaTeX$ document. Ideally, what I'd like to do is to add a label to the first graph with "drawing tools" so I can set the size and position by hand. Then somehow to access the size, position, etc. of this inset graphic so I can then automatically add the labels for the other graphs.


marked as duplicate by m_goldberg, Sektor, José Antonio Díaz Navas, Young, MarcoB Apr 11 '18 at 3:41

This question has been asked before and already has an answer. If those answers do not fully address your question, please ask a new question.

  • $\begingroup$ What have you tried so far? I mean, have you some code to show your try? $\endgroup$ – José Antonio Díaz Navas Apr 5 '18 at 16:41

you might find this useful:

 Show[{Plot[Sin[y], {y, 0, 4}], 
   Graphics[Inset[Text["(A)"], Scaled[{x, y}]]]}], {x, 0, 1}, {y, 0, 
 LocalizeVariables -> False]

after using Manipulate to set the position, {x,y} will be set, so additional plots will have their label in the same spot.

plot1 = Plot[Sin[x], {x, 0, 2 Pi}, Frame -> True, 
   Epilog -> Inset[Text[Style["(a)", 20, Black, 15]], Scaled[{0.1, 0.9}]]];

plot2 = Plot[Cos[x], {x, 0, 2 Pi}, Frame -> True, 
   Epilog -> Inset[Text[Style["(b)", 20, Black, 15]], Scaled[{0.1, 0.1}]]];

GraphicsColumn[{plot1, plot2}]

enter image description here

  • $\begingroup$ thanks, but do you know if there's a way to make those insets selectable? $\endgroup$ – oweydd Apr 9 '18 at 13:25

Not the answer you're looking for? Browse other questions tagged or ask your own question.