こんにちは、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];