Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Re: Logarithmic ticks in SectorChart

• To: mathgroup at smc.vnet.net
• Subject: [mg102091] Re: [mg101983] Logarithmic ticks in SectorChart
• From: "Elton Kurt TeKolste" <tekolste at fastmail.us>
• Date: Wed, 29 Jul 2009 05:09:50 -0400 (EDT)
• References: <200907250817.EAA29646@smc.vnet.net>

The reason that the data is hard to see is that one entry (65.9)
dominates the picture -- and this visualization is actually appropriate
if this is really the case.  If you want to see the data other than the
dominate value there are several possibilities, for instance:

a)  Modify the data so that the dominant value is replaced by some
maximum value
b)  Adjust the scale of the chart to show the interesting values

SectorChart[Table[{10, i}, {i, Min[5, #] & /@ PadRight[data, 36]}],
 PolarAxes -> True,
 PolarTicks -> {Table[{(i + 5) \[Degree], (i) \[Degree]}, {i, 0, 350, 
     10}], Range[0, 5, 1]},
 TicksStyle -> Directive[Black, 8],
 SectorOrigin -> {95 \[Degree], -1},
 PolarGridLines -> {Range[0 \[Degree], 360 \[Degree], 10 \[Degree]], 
   Automatic},
 PolarAxesOrigin -> {Pi/2, 5},
 ChartStyle -> 
  Directive[EdgeForm[{Thin, White}], 
   FaceForm[{RGBColor[0, .2, .5, .5]}]]]

Kurt

On Sat, 25 Jul 2009 04:17 -0400, "mediatalk" <nick.maj at mssm.edu> wrote:
> Dear All,
> 
> the data in this linear rose-diagram is hard to see. Is there a way to
> make the radial scale (0% to 100%) logarithmic? Also, i need the
> percent symbol after the ticks numbers without the dot.
> 
> Thanks in advance, Nick.
> 
> 
> data = {1, 0, 0, 0, 0, 1, 0, 2, 3.5, 65.9, 4.1, 3.4, 3.4, 2.1, 2.1, 2,
>     2, 1, 2, 1, 2, 0, 0, 0, 1, 1, 2, 2, 1, 1, 1, 2, 1, 1, 0, 1};
> 
> SectorChart[Table[{10, i}, {i, PadRight[data, 36]}],
>  PolarAxes -> True,
>  PolarTicks -> {Table[{(i + 5) \[Degree], (i) \[Degree]}, {i, 0, 350,
>      10}], Range[0, 100, 20]}, TicksStyle -> Directive[Black, 8],
>  SectorOrigin -> {95 \[Degree], -1},
>  PolarGridLines -> {Range[0 \[Degree], 360 \[Degree], 10 \[Degree]],
>    Automatic}, PolarAxesOrigin -> {Pi/2, 100},
>  ChartStyle ->
>   Directive[EdgeForm[{Thin, White}],
>    FaceForm[{RGBColor[0, .2, .5, .5]}]]]
> 

• References:
  • Logarithmic ticks in SectorChart
    • From: mediatalk <nick.maj@mssm.edu>