r - 在 R 语言中使用 openair 包中的 windRose() 函数时出错

Question

我正在尝试使用R 语言中的openair包函数绘制风玫瑰图。我在.csv 文件windRose()中有风向和风速的样本数据。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)