New in Wolfram
Mathematica
8: New and Improved Scientific and Information Visualization
◄
previous
|
next
►
Graphics & Visualization
Use Custom Scaling Functions
Create custom scaling functions for your visualizations.
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]=