你好我得到这样一个数字,当我尝试通过生成数学命令行此条形图。我没有得到任何错误,但这个数字看起来很奇怪。你能帮我弄清楚为什么会发生这种情况。
这是我使用的代码:
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];
谢谢!我永远无法弄清楚这一点。我是stackoverflow和mathematica的新手。您的解决方案解决了问题。我应该删除这个问题,因为这看起来很愚蠢吗? – user1050325
@ user1050325不客气。如果您正在学习* Mathematica *请务必访问http://mathematica.stackexchange.com;另外,阅读[这个问题](http://mathematica.stackexchange.com/q/18/121)。不要删除这个问题;我认为你现在无法得到正面评分的答案,而资深用户如果认为合适,可以投票“关闭”问题。社区决定这种方式。 –