title: Plotting 2 windroses side by side
body: <p>I'm trying to create a image with 2 side-by-side windroses (windrose function by clifro library)</p>
  
  <pre><code>library(clifro)
  library(tidyverse)
  
  winddata &lt;- 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)
  </code></pre>
  
  <p>demo_mast.csv is from a <a href="https://www.kaggle.com/srlightfoote/example-wind-analysis-in-r" rel="nofollow noreferrer">kaggle tutorial</a></p>
  
  <p>I've tried using par function, but it seems to display plots separately</p>
  
  <p>Desired output:</p>
  
  <p><a href="https://i.stack.imgur.com/JbeBa.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/JbeBa.png" alt="Windroses plots"></a></p>