WOLFRAM

Wolfram 语言与系统参考资料中心

生成图表的图例

    
Wolfram Language code: data = GatherBy[Table[ {CountryData[c, "Continent"], Tooltip[QuantityMagnitude[CountryData[c, #]]& /@ {"BirthRateFraction", "DeathRateFraction", "Population"}, CountryData[c, "Name"]]} , {c, CountryData[]}], First];
Wolfram Language code: legended = MapIndexed[ Legended[ Style[#[[All, 2]], ColorData["Rainbow", (First[#2] - 1) / (Length[data] - 1)]], #[[1, 1]]]&, data ];
Wolfram Language code: BubbleChart[legended]