并排绘制2个风玫瑰

Question

我正在尝试创建具有2个并排的windroses的图像（clifro库提供的windrose函数）

library(clifro)
library(tidyverse)

winddata <- read_csv('../Desktop/demo_mast.csv')

par(mfrow=c(1,2))
windrose(speed = winddata$SPD_59_COMB_AVG,
     direction = winddata$DIR_80_AVG,
     speed_cuts = seq(0,25,5),
     legend_title="Vel [m/s]",
     ggtheme='minimal')+labs(title=paste0("Windvane 80m"))
windrose(speed = winddata$SPD_47_COMB_AVG,
     direction = winddata$DIR_95_AVG,
     speed_cuts = seq(0,25,5),
     legend_title="Vel [m/s]",
     ggtheme='minimal')+labs(title=paste0("Windvane 95m"))

par(windroses)

demo_mast.csv来自kaggle tutorial

我尝试过使用par函数，但是它似乎要分开显示图

所需的输出：

Answer 1

通过使用 gridExtra 库中的 grid.arrange 函数来解决此问题：

kruskal_test()