| Author |
Comment/Response |
Michael
|
 08/02/12 10:08pm
In Response To 'Re: Re: adding text outside the frame'
---------
You can specify a label for each tick. Here the labels are successively longer columns:
Graphics[{
Inset[ListPlot[{{1, 2, 3}, {10, 20, 30}}, Frame -> True,
FrameTicks -> {{{{1, "1"}, {2, Column[{"2", ""}]}, {3,
Column[{"3", "", ""}]}}, {10, 20, 30}}, {All, None}}], {0,
0}, {0, 0}, 3.45],
Text[Style["A rather long comment at (2.5, 25)", 16], {2.5,
25/30*3/GoldenRatio}, {-1, 0}]
}, PlotRange -> {{-0.25, 7.5}, {-0.4, 3./GoldenRatio}},
Frame -> None]
You can also mislabel the ticks, but that seems bad to me:
Graphics[{
Inset[ListPlot[{{1, 2, 3}, {10, 20, 30}}, Frame -> True,
FrameTicks -> {{{{1, "1"}, {5, "2"}, {9, "3"}}, {10, 20,
30}}, {All, None}}], {0, 0}, {0, 0}, 3.45],
Text[Style["A rather long comment at (2.5, 25)", 16], {2.5,
25/30*3/GoldenRatio}, {-1, 0}]
}, PlotRange -> {{-0.25, 7.5}, {-0.4, 3./GoldenRatio}},
Frame -> None]
Something like this seems best to me, but it is not what you asked for. It's yet another way to put a comment in graphics. You'll be the best judge of what you want:
ListPlot[{{1, 2, 3}, {10, 20, 30}}, Frame -> True,
FrameTicks -> {{{{1, ""}, {2, ""}, {3, "3", {0.01, 0.01}}}, {10, 20,
30}}, {All, None}},
ImagePadding -> {{Automatic, Scaled[0.05]}, {Automatic, Automatic}},
PlotRangeClipping -> False,
Epilog -> {Inset[
Pane[Style["Some rather lengthy comment.",
FontFamily -> "Helvetica"], ImageSize -> {100, Full},
Alignment -> Left], {2.95, 25}]}]
URL: , |
|
