Wolfram mathematica 保存打印注释

昨天，当我在问题中添加了一些计时图时，我再次想起了几年前mathgroup发布的一篇帖子（）

当我想到一些轴标签会很好时，我很高兴（手动）注释我的绘图。问题是，使用轴标签重新生成打印将破坏手动注释

您似乎可以在名为pic的绘图中找到用户添加项：

Rest[pic[[1，1]]]

，因此，如果您将绘图重新生成为pic2，您可以在以下情况下获得注释：

Insert[pic2, Rest[pic[[1, 1]]], {1, 1}]

我记得David Park（演示文稿包的作者）强烈反对手工注释。我自己也做过一些编程标记，但有时将标签置于程序控制下太难了，比如这里（请注意，我不太喜欢

PlotLegends

，特别是因为有些颜色彼此接近）：

我已经太晚了，因为我已经扔掉了最初的情节，但我想知道目前对这个问题的思考状态如何

• 有更好的方法吗
• 这种方法有多普遍？它是否适用于所有绘图和图表类型
• 它在所有版本中都有效吗？（5.2以上）
• WRI是否有计划改进绘图中用户添加的处理

顺便说一句，我的mathgroup帖子中的技巧与上面所示的技巧略有不同，并在前10名情节中使用。但原理是一样的

---

编辑

我放置了代码，以使数据图与上一个类似

编辑

---

Brett Champion现在将代码转移到更合适的问题：

就个人而言，我同意David Park的观点，即编程添加注释更为优越。它还可能更加健壮，并与Mathematica的未来版本配合使用。我真的希望看到绘图工具调色板有点改进，我希望看到手动添加的多个注释更清晰地显示在生成的

Graphics

对象中。如果有一个惰性的

头

比如

AddedAnnotation

或者类似的东西，那么您可以通过

Cases[editedPic, _AddedAnnotation, Infinity]

---

事实上，我发现自己在图像的

InputForm

中挖掘，我不确定你的

Rest[pic[[1,1]]]

是否总能工作，特别是在未来的版本中。

有一种方法，虽然有点难看，但对于较小的绘图注释来说似乎还行

通过

绘图工具添加注释后，附加信息与图形一起存储，并可通过选择图形括号和使用
显示表达式
（Mac上的Shift-Command-E）等方式进行检查。附加信息通常可以通过剪切粘贴或使用
案例
，然后可以使用
Epilog
添加到新修改的绘图中

比如说

Plot[Sin[x], {x, 0, 6 \[Pi]}]

Labeled[Plot[Sin[x], {x, 0, 8 \[Pi]}, 
  Epilog -> Rest[Cases[plotgraphic, _List][[1]]]], "Sine Plot"]

添加一些注释会产生以下结果：


将名称
plotgraphic
指定给上述图像，可能会生成一个新的修改图，其中添加了注释，如下所示（例如）

给予


至少可以说，这可能很尴尬，而且这种方法无疑可以改进。这也可能与其他人已经在做的一样。尽管如此，它还是给出了一个“以编程方式”显示注释的绘图，并且由于没有人提到
Epilog
，我认为它可能值得发布
 日志图+100！我几乎相信这个问题只是一个炫耀情节的借口……我同意西蒙的观点！你从哪里得到数据的？@belisarius和@Mark，很可能是从《数学》杂志上获得的，他们刚刚获得了排名前十的mathematica答案。可悲的是，我没有回答足够多的问题，所以我没有被列在名单上。。。唉。@Sjoerd，顺便问一下，在我的美语范围内，你的名字怎么发音？@Wizard先生，就像“保险”中的“保险”部分一样，在“u”音之前加上一个清晰的“y”和“黄色”。希望这有点清楚。这是一个弗里斯的名字（荷兰北部），就像我的姓一样。后者是荷兰最常见的姓氏之一（也是我把中间首字母拖到各处的原因；LinkIn上至少有15个叫Sjoerd de Vries的家伙；这里还有一个著名电视名人，调查记者Peter R.de Vries的双关语）这与我在mathgroup中提出的思路相同，但我考虑将其放在一个选项中：Graphics[{original plot stuff，UserAdditions}，PlotRange->Automatic，等等，UserAdditions->{GraphicsStuff，GraphicsStuff}您也不需要为第一个绘图指定名称，相反，您可以直接将图像复制粘贴到
案例中
command@Simon谢谢那是个不错的主意