The following code (thanks to @Jagra):
ClearAll["Global`*"];
data = {{1, 2, 3, -4, -5, -6, 3}};
ndata = DecimalForm[(data[[1]]/Total@Abs[data[[1]]])*100 // N, 2];
Column[{
TextCell["GDP Per Capital", "Section", FontColor -> White],
TextCell["This is a scenario parameter set", FontSize -> 12,
FontColor -> White], "",
TextCell["WorldGDP in 2020", FontWeight -> Bold, FontSize -> 20],
TextCell["parameter domain:{1,2,3}", FontWeight -> Bold,
FontSize -> 12], "",
TextCell["% Difference from baseline and contributions in % pts",
"TI"],
BarChart[
data,
PlotTheme -> "Business",
BarOrigin -> Left,
BarSpacing -> Medium,
ChartLabels -> {{None}, {"Asia", "South Asia", "South East Asia",
"East Asia", "Oceania", "Central Asia", "North Asia"}},
ChartLegends -> {{ndata}, {None}},
ChartStyle -> {Red, None},
ImageSize -> 500
]
},
Alignment -> Center,
Background -> {Automatic, {1 -> Darker[Red], 2 -> Darker[Red]}}
]
generates:
As seen, ChartLegends
is not placed properly. I want to create a bar chart as shown in the following example:
where ndata
should be inside green circles
as shown below, with a title of "% total tax shares". Furthermore, the X-axis line should be removed from the bar chart.