Графика и визуализация

Использование пользовательских функций масштабирования 

In[1]:=

X countries = CountryData[]; properties = {"PovertyFraction", "GDPPerCapita", "Population"}; data = Table[CountryData[c, p], {c, countries}, {p, properties}];

In[2]:=

X BubbleChart[data, ChartStyle -> "Rainbow", ChartLabels -> Placed[countries, Tooltip], FrameLabel -> {"Poverty Fraction", "GDP Per Capita"}, PlotLabel -> "Worldwide GDP per Capita vs. Poverty Rate", ScalingFunctions -> {{Log[-Log[1 - #1]] &, InverseFunction[Log[-Log[1 - #1]] &]}, "Log", None}, FrameTicks -> {{Automatic, Automatic}, {{#/100., #} & /@ {1, 2, 5, 10, 20, 30, 40, 50, 60, 70, 80, 90, 95, 99}, None}}, BaseStyle -> {FontFamily -> "Helvetica", FontSize -> 16}]

Out[2]=