Example 2 steps, run in order in one session. Every step was executed against the engine and the output below is what it produced.
countries = CountryData["G7"];
gdp = CountryData[#, {"GDP", 2020}]& /@ countries;gdpPerCapita = CountryData[#, {"GDPPerCapita", 2020}]& /@ countries;population = CountryData[#, {"Population", 2020}]& /@ countries;data = Transpose[{population, gdpPerCapita}];dollarForm[a_Real] := Row[{"$", NumberForm[a, {10, 2}, NumberPadding -> {"", "0"}]}]
dollarForm[q_Quantity] := dollarForm[QuantityMagnitude[q]]No output - this step sets something up for the next one.
SectorChart[data, SectorOrigin -> {Automatic, 15000}, LabelingFunction -> (Placed[#, Tooltip, Style[Column[{Row[{"GDP: ", dollarForm[First@# * Last@#]}], Row[{"Population: ", NumberForm[First@#, {10, 2}, NumberPadding -> {"", "0"}]}], Row[{"GDP Per Capita: ", dollarForm[First@#]}]}, Alignment -> {Left, Bottom}, Frame -> True], 14, FontFamily -> "Helvetica"]&]&), ChartStyle -> 2, ChartLabels -> Placed[countries, "RadialCallout", Style[#, 12, FontFamily -> "Helvetica", Darker@Brown]&], PlotLabel -> Style["Visualizing GDP for the G7 Countries", 14, Bold, FontFamily -> "Helvetica", Darker@Brown], PlotRange -> All, ChartLegends -> Placed[gdp, Right, Style[dollarForm[#], FontFamily -> "Helvetica"]&]]-Graphics-All recipes · Function reference · Use this from an MCP client