图形生成错误

Question

嗨，当我尝试通过Mathematica命令行生成此条形图时，我得到了这样的图形。 我没有任何错误，但这个数字看起来很奇怪。 您能帮我弄清楚为什么会这样吗。

这是我正在使用的代码：

bar1to15 = 
  BarChart[Take[FractionsTumor, {1, 15}], ChartStyle -> Red, 
   ChartBaseStyle -> EdgeForm[Thin], 
   FrameTicks -> {Table[i, {i, 1, 15}], Automatic}, 
   Frame -> {{True, False}, {True, False}}, 
   FrameLabel -> {"# Singular Value", "Fraction"}, 
   BaseStyle -> {FontFamily -> "courier", FontSize -> 10}, 
   AspectRatio -> 1];
bar2to15 = 
  BarChart[Take[FractionsTumor, {2, 15}], ChartStyle -> Red, 
   ChartBaseStyle -> EdgeForm[Thin], 
   Frame -> {{True, False}, {True, False}}, 
   FrameTicks -> {{{1, "2"}, {2, "3"}, {3, "4"}, {4, "5"}, {5, 
       "6"}, {6, "7"}, {7, "8"}, {8, "9"}, {9, "10"}, {10, "11"}, {11,
        "12"}, {12, "13"}, {13, "14"}, {14, "15"}}, Automatic}, 
   FrameLabel -> {"# Singular Value", "Fraction"}, 
   BaseStyle -> {FontF amily -> "courier", FontSize -> 10}, 
   AspectRatio -> 1];
bar = GraphicsGrid[{{bar1to15, bar2to15}}, ImageSize -> 500, 
   Spacings -> 10, AspectRatio -> 1, 
   PlotLabel -> "Singular Val Dist - " <> txt];
Export[path <> txt <> "singval.pdf", bar, "PDF", ImageSize -> 500, 
  ImageResolution -> 3600];

Answer 1

您的代码中有一个印刷错误。 通过仔细查看语法突出显示，这对您来说应该是显而易见的。 比较这两个代码部分：

您可以看到，更正错误后，符号名称FontFamily被识别为系统符号，样式为黑色。

如果您没有启用此突出显示功能，则可以通过以下方式启用它：

Edit > Preferences...然后是Appearance和Syntax Coloring选项卡。

Answer 2

如果您查看Mathematica中的原始图形（ bar ），您会看到那里的粉红色框，以及单元格支架为红色，带有带'+'的黄色按钮。 这意味着在尝试显示结果时发生了错误。

如果将鼠标悬停在图形上，则会显示错误作为工具提示。 如果单击黄色按钮，则会在“消息”窗口中显示错误。

在这种情况下，消息为：

遇到格式错误的选项。 该选项的左侧不是符号或字符串。

这很模糊，但至少暗示了在哪里看。