提问人：silva 提问时间：10/28/2023 更新时间：10/28/2023 访问量：35
如何将 openair 包中 windRose 函数中的轴标签从 NESW 更改为 NOSW？[复制]
How to change the axis labels from NESW to NOSW in the windRose function from the openair package? [duplicate]
问：
我正在尝试将基点的轴标签从 NESW 更改为 NOSW，因为我想用德语显示我的图形。有没有简单的方法可以做到这一点？
我从 windRose 函数中获取了整个代码，并在第 410 行将部分 axislabs <- c（“N”， “E”， “S”， “W”） 更改为 axislabs <- c（“N”， “O”， “S”， “W”）。然后我以新名称保存了它windRose_D。 我已经下载了包 lattice，但仍然收到错误：checkNum（mydata， vars = c（ws， wd）） 中的错误：找不到函数“checkNum”。 我不知道在哪里可以找到带有 checkNum 函数的包......
有没有一种更简单的方法可以在不更改完整功能的情况下更改轴标签？
答：
0赞
Andrew Gustar
10/28/2023
#1
我不认为有一种简单的方法可以将参数传递给 ，但您可以修改函数本身。通过反复试验，使用函数修改元素，我们可以做到以下...windRosebodywindRose
library(openair)
body(windRose)[[70]][[3]][["panel"]][[3]][[11]][[3]][[9]][[4]][[2]][[3]][[3]] <- "O"
windRose(mydata)
评论
1赞
silva
10/28/2023
非常感谢！这效果很好。我刚刚遇到了另一个采用不同方法的代码，这也有助于回答我的问题，因为我还想删除底部的标题和图右下角的统计数据。stackoverflow.com/questions/76776068/......
评论