First thoughts...

countries = CountryData["G7"]; data = {{2, 1, 1.5, 3, 3, 2.5, 4}, {-2, -1, -1.5, -3, -3, -2.5, -2}}; Column[{ TextCell[" GDP Per Capital", "Section", FontColor -> White], "", TextCell["WorldGDP in 2020", FontWeight -> Bold, FontSize -> 20], TextCell["% Difference from baseline and contributions in % pts", "TI"], BarChart[data, PlotTheme -> "Business", ChartLabels -> Placed[countries, Below, Rotate[#, Pi/2.4] &], ChartStyle -> {{Blue, Green}, None}, ChartLegends -> {{"high", "low"}, None}, ImageSize -> 500] }, Alignment -> Center, Background -> {Automatic, 1 -> Darker[Red]}] 

Vary you text as desired.

First thoughts...

countries = CountryData["G7"]; data = {{2, 1, 1.5, 3, 3, 2.5, 4}, {-2, -1, -1.5, -3, -3, -2.5, -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", ChartLabels -> Placed[countries, Below, Rotate[#, Pi/2.4] &], ChartStyle -> {{Blue, Green}, None}, ChartLegends -> {{"high", "low"}, None}, ImageSize -> 500] }, Alignment -> Center, Background -> {Automatic, {1 -> Darker[Red], 2 -> Darker[Red]}}] 

Vary your text and colors as desired.