在R语言中使用openair包中的windRose（）函数时出错

Question

我正在尝试使用R语言中的openair包函数windRose()绘制风玫瑰图。我有一个 .csv文件中的风向和风速样本数据。 csv文件数据也会粘贴到帖子中。

在R中，我加载了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)