一朵玫瑰图中的海浪和当前数据

Question

我正在尝试创建一个单一的玫瑰图，该图既包含波浪方向又包含当前方向，以查看它们共同工作的频率。有很多很棒的windrose软件包，但似乎没有一个允许我在一朵玫瑰上绘制单独的数据集。 openair软件包创建了一个不错的图，但是它通过减法比较了辅助数据集，而我不希望这样做。我只想在当前的玫瑰上叠加一波上升的玫瑰，然后我就可以尝试各种颜色以查看重叠。

我尝试过openair软件包，它不能完全满足我的需要。我已经尝试过ggplot2，但似乎无法比较波的方向和当前的方向，除非是切面，这是我不希望的。

这是露天套餐。 Hs是波浪速度，Dm是波浪方向，MeanSpeed是当前速度，CurrDIR是当前方向：

windRose(CWR, ws = "Hs" , wd = "Dm" , ws2 = "MeanSpeed", wd2 = "CurrDIR", 
               ws.int = .12, angle = 15, bias.corr = FALSE, cols = c("yellow", "green", "red"), 
               grid.line = NULL, width = 1, seg = NULL, auto.text = TRUE, breaks = 3, offset = 8, normalise = FALSE, 
               max.freq = NULL, paddle = FALSE, key.header = "m/s", key.footer = "current", xlab="Current Wave Rose july 2017 - AVG Bin", key.position = "right", key = TRUE, dig.lab = 2, statistic = "prop.count", type = "default", annotate = FALSE, angle.scale = 45, border = "grey")

我想在当前的玫瑰上叠加一波玫瑰，然后将一个数据集设为空心，以便可以看到与其他数据的重叠。

谢谢！