r - 修复R包windRose的绘图比例

Question

我会很感激你的帮助。

我正在使用R包的功能windRose。openair我正在为许多站的风日期做风玫瑰，我需要将所有玫瑰的结果放在一起比较。问题是该windRose函数将风玫瑰的最大半径固定为比在任何方向上找到的最大计数百分比略多一点。如何控制windrose的最大比例，假设为最大绘图半径设置30%的固定最大值，而不是函数设置的默认最大值，这取决于我的数据？我已经探索了函数的代码，但我无法在windRose函数代码中找到可以进行此更改的位置。

Answer 1

不完全是您问题的答案，但是...

我的ggplot2windrose代码在哪里rose是一个data.frame，其列wind_speed和wind_direction度数：

rose <- data.frame(wind_speed=sample(1:25, 1e5, replace=TRUE), 
                   wind_direction=sample(1:360, 1e5, replace=TRUE))

ggplot(rose, 
       aes(x=wind_direction,
           fill=cut(wind_speed, seq(0, 30, 5)))) +
    geom_bar() +
    scale_x_continuous(limits=c(0,360),
                       breaks=c(0, 90, 180, 270)) +
    coord_polar() +
    labs(fill='Wind Speed (m/s)') +
    opts(axis.text.y=theme_blank(),
         axis.ticks=theme_blank(),
         axis.title.y=theme_blank(),
         axis.title.x=theme_blank())

Answer 2

我在这里编写了一些有用的代码。您可以将轴限制设置为所需的任何值。