用R语言从openair包中获取windRose()函数时的错误

Question

我试图用R语言的openair包函数windRose()绘制一个风玫瑰图。我在.csv文件中提供了风向和风速的示例数据。csv文件数据也被粘贴到post。

在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)

​

​