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

我正在寻找以下问题的解决方案： 目前，我正在按照安迪·克利夫顿提供的脚本制作一个带有ggplot2的风玫瑰图

这是完美的作品，我非常感谢提供的脚本。然而，我有一个问题。X轴的标签会被打印边缘截断，尤其是在刻面中打印时。 有没有办法展开绘图，使文字完全显示出来

---

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

为了使用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))