Click on the image to zoom. Then click your browser back button to return to reading the post.
This is a response to the [CALL] Reddit DataViz Battle JAN2018: Visualize the Growth Rates of Algae :
Reddit
http://community.wolfram.com/groups/-/m/t/1257577
Bubble chart for 4D data by Sander Huism…
I was thinking about applying the RadarChart package too, as in here , but I thought it would be better if for each specie there is a separate radar chart.
sdata = MapThread[
Prepend, {Transpose[
SortBy[Transpose[Rest /@ data], {#[[2]], #[[1]]} &]],
First /@ data}];
Multicolumn[Map[
RadarChart[{Join[#[[2 ;; 5]], {0, 0, 0, 0}],
Join[#[[6 ;; -1]], {0, 0, 0, 0}]}, PlotLabel -> #[[1]],
Filling -> Axis, AxesLabel -> sdata[[1, 2 ;; 5]],
PlotStyle -> {Red, Blue},
ChartLegends -> {sdata[[2, 2]], sdata[[2, 6]]}] &,
sdata[[3 ;; -1]]], 5]
TableForm[sdata]
2 Likes
Congratulations! This post is now a Staff Pick as distinguished by a badge on your profile ! Thank you, keep it coming!
If you wish you now can submit your post to Reddit competition simply by entering your post link:
Click on the image to zoom. Then click your browser back button to return to reading the post.
[ScreenShot2018-01-07at10.39.30PM.png]
RadarChart package too, as in here , but I thought it would be better if for each specie there is a separate radar chart.
sdata = MapThread[
Prepend, {Transpose[
SortBy[Transpose[Rest /@ data], {#[[2]]…
in a comment here: Reddit
