使用ggplot 2和极坐标系统扩展windroses中的绘图区域

Question

我正在寻找以下问题的解决方案： 目前我正在根据Andy Clifton在here提供的脚本生成ggplot2的风玫瑰图。

这非常有效，我非常感谢提供的脚本。但是我有一个问题。 X轴的标签被绘图的边缘截断，特别是在绘制小平面时。 有没有办法扩展情节，以便完整显示文本？

（示例图片可以在上面的链接中找到）

Answer 1

为了练习windrose，使用最后的数据框，我创建了下面的图，没有x轴标签被截断的问题。它无疑不关心风速或24小时框架，因为它适用于支付给两种供应商的金额，但情节和数据可能有助于其他人更容易回应。

> dput(lfvendrose)
structure(list(Time = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12), Payee = structure(c(1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("Firm", "Vendor"), class = "factor"), 
    Data1 = structure(c(12L, 10L, 8L, 13L, 7L, 9L, 14L, 3L, 5L, 
    17L, 6L, 11L, 2L, 15L, 18L, 2L, 4L, 19L, 1L, 16L, 18L, 2L, 
    15L, 18L), .Label = c("0, 1", "0, 13", "0, 15", "0, 2", "0, 20", 
    "0, 34", "0, 39", "0, 40", "0, 41", "0, 45", "0, 48", "0, 50", 
    "0, 64", "0, 68", "0, 9", "0, 90", "0, 94", "0,11", "0,16"
    ), class = "factor"), Month = structure(c(5L, 4L, 8L, 1L, 
    9L, 7L, 6L, 2L, 12L, 11L, 10L, 3L, 5L, 4L, 8L, 1L, 9L, 7L, 
    6L, 2L, 12L, 11L, 10L, 3L), .Label = c("Apr", "Aug", "Dec", 
    "Feb", "Jan", "Jul", "Jun", "Mar", "May", "Nov", "Oct", "Sep"
    ), class = "factor"), Month.1 = structure(c(5L, 4L, 8L, 1L, 
    9L, 7L, 6L, 2L, 12L, 11L, 10L, 3L, 5L, 4L, 8L, 1L, 9L, 7L, 
    6L, 2L, 12L, 11L, 10L, 3L), .Label = c("Apr", "Aug", "Dec", 
    "Feb", "Jan", "Jul", "Jun", "Mar", "May", "Nov", "Oct", "Sep"
    ), class = "factor"), Data2 = structure(c(11L, 10L, 6L, 12L, 
    8L, 4L, 13L, 3L, 7L, 15L, 9L, 5L, 2L, 14L, 16L, 1L, 11L, 
    10L, 6L, 12L, 8L, 4L, 13L, 3L), .Label = c("0, 13,1", "0, 13,50", 
    "0, 15, 30", "0, 40, 100", "0, 40,1", "0, 40,3", "0, 40,5", 
    "0, 45, 5", "0, 45,15", "0, 45,2", "0, 50,1", "0, 64, 4", 
    "0, 64,200", "0, 9,150", "0, 94,10", "0,11, 400"), class = "factor")), .Names = c("Time", 
"Payee", "Data1", "Month", "Month.1", "Data2"), class = "data.frame", row.names = c(NA, 
-24L))