Rose plots for wind field quantities

Question

I'm struggling to generate rose plots that have the ability to plot multiple measurands that can be both positive and negative. Here's an example of something (from Excel !) that I seem to be having trouble generating in Mma. You notice I am plotting multiple datasets which have positive and negative quantities, as a function of wind bearing. This sort of thing is typically used for displaying wind yaw misalignment of a wind turbine measured by a lidar operating at multiple ranges. ListPolarPlot is a bit of a non-starter, as the centre of the plot is always at zero (I'd like it at, say, -10). SectorChart doesn't handle this sort of thing either. The solutions to similar questions on stackoverflow don't seem to be applicable: they plot positive quantities, and sometimes don't allow multiple datasets to be combined. I need something like a ListCircularPlot ! Anything that avoid me having to use all graphics primitives is appreciated. Thanks

Answer 1

You can use ListPolarPlot and modify the ticks to show negative radial values. Here's some data:

data = Range[-30, 30];

And the plot:

ListPolarPlot[
    data+30, (* rescale data *)
    PolarAxes->True,
    PolarGridLines->{Automatic, Range[-30,30,10]+30},
    PolarTicks->{Automatic, Thread[{Range[0,60,10], Range[0,60,10]-30}]}
]

Addendum

(The OP requested to put the origin at the top as well)

There is no simple way to put the origin at the top. One workaround is to modify your data so that it starts at $90^\circ$ and then modify the ticks as well. Here is some sample data:

data = Thread[{Range[0, 360, 10] Degree, Range[-18, 18]}];

We need to translate both the angle and the radius, which can be done using TranslationTransform (and in many other ways as well). The following ListPolarPlot call translates the data and modify the ticks:

ListPolarPlot[
    TranslationTransform[{90 Degree, 18}][data],
    PolarAxes->True,
    PolarTicks->
        {
        Table[{x, Mod[x+270, 360]} Degree, {x, 0,360, 10}],
        Table[{x, x-20}, {x, 0, 40, 10}]
        },
    PolarGridLines -> {Automatic, {10,20,30,40}}
]