New answers tagged labeling
5
You can get the 3D look with BarChart using ChartElementFunction -> "ObliqueRectangle".
percentSolved = PercentForm /@
({42.857, 85.714, 71.4286, 100., 71.4286, 71.4286, 42.8571}/100);
bc = BarChart[MapThread[Labeled, {dataForChart, casNames}],
ChartLayout -> "Percentile",
ChartStyle -> {Red, RGBColor[255/255, 255/255, 0/255],
...
5
Both methods used v. 12.1 on a Mac.
Method 1
You can get a slight improvement by adjusting the AspectRatio.
For example, with AspectRatio->0.7, some space is removed.
It also reduces the heights of the bars.
Method 2: Rasterize the bar chart
barchart = BarChart3D[dataForChart,ImageSize -> 700,ChartLayout -> "Percentile", ChartStyle -> {Red, ...
1
Generalizing Bob Hanlon's approach and coloring labels and callout curves to match the color of corresponding lines:
ClearAll[jitterEndPoint, colorCallouts]
jitterEndPoint[epsilon_: 10^-5] := MapAt[# + RandomReal[{-epsilon, epsilon}] &, #,
{All, -1}] &;
colorCallouts = # /. GraphicsGroup[a_] :> GraphicsGroup[Replace[a, b_BSplineCurve :>
...
1
Update:
tencities = Take[EntityList[EntityClass["City", "UnitedStatesCapitals"]], 10];
names = #["Name"] & /@ tencities
{"Montgomery", "Juneau", "Phoenix", "Little Rock", "Sacramento",
"Denver", "Hartford", "Dover", "Tallahassee", "Atlanta"}
pops = QuantityMagnitude[#@"Population"] & /@ tencities
{199518, 32094, 1626078, 198606, 501901, 704621,...
2
data = {{1, 2, 3, 4, 5}, {6, 7, 8, 9, 5}, {11, 12, 13, 14, 5}, {4, 5, 6, 7,
8}};
The problem with the labels is caused by the final data values being the same. As a workaround, even a negligible offset (10^-6 in this case) eliminates the problem.
data2 = ReplacePart[data, {
2 -> data[[2]] + 10.^-6,
3 -> data[[3]] - 10.^-6}];
...
Top 50 recent answers are included
