在R語言的openair包中使用windRose（）函數時出錯

Question

我正在嘗試使用R語言的openair包裝函數windRose()繪制風向圖。 我在.csv文件中有風向和風速的示例數據。 csv文件數據也會粘貼到帖子中。

在RI中已加載了openair程序包，並將數據從csv文件讀取為數據dataframe數據。 當我如下圖所示調用windRose()函數時，出現錯誤。

windRose(data,wd="dir",ws="spd")


Error in if (mean.wd < 0) mean.wd <- mean.wd + 360 : 
  missing value where TRUE/FALSE needed**

有人可以幫我找到問題嗎？

樣本csv文件內容

dir,spd
343,4.4
293,4.3
157,14.1
166,9.4
117,14.4
5,13.5
335,5.3
87,14.3
130,14.7
301,12.6
330,13.1
265,9.1
70,13.4
257,11.0
174,4.2
97,12.2

Answer 1

將列重命名為ws和wd可解決此問題：

dat <- read.table(text = 'wd,ws    ## I use wd and ws
343,4.4
293,4.3
157,14.1
166,9.4
117,14.4
5,13.5
335,5.3
87,14.3
130,14.7
301,12.6
330,13.1
265,9.1
70,13.4
257,11.0
174,4.2
97,12.2',header=T,sep = ',')

windRose(dat)