嗨,当我尝试通过 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];