New answers tagged

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