Message Boards Message Boards

[Reddit-DiBB0118] RadarChart for each algae species

Posted 6 years ago

Click on the image to zoom. Then click your browser back button to return to reading the post.


enter image description here

Intro

This is a response to the [CALL] Reddit DataViz Battle JAN2018: Visualize the Growth Rates of Algae:

http://community.wolfram.com/groups/-/m/t/1257547

Details

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]

enter image description here

POSTED BY: Anton Antonov

enter image description here - 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:

http://community.wolfram.com/groups/-/m/t/1261438

in a comment here: https://redd.it/7nm6ed

POSTED BY: Moderation Team
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract