为什么在 R 中修改“hydrogeo”函数时出现错误？ [复制]

Question

我在 R 中使用“hydrogeo”包来绘制风笛图。 我想在函数中进行一些编辑以自定义绘图。

但是，当我使用以下命令时

trace("hydrogeo", edit=TRUE)

我收到以下错误

Error in getFunction(what, where = whereF) : no function ‘hydrogeo’ found

我尝试使用相同的命令编辑其他功能并且它有效，例如，

trace("semiMarkov", edit=TRUE)

如何解决这个错误？

Answer 1

如错误消息中所述，hydrogeo 不是 hydrogeo 包的功能。

可用的功能有：

library(hydrogeo)
ls("package:hydrogeo")
[1] "piper"      "piperPaper" "plot"       "testData"   "toPercent" 

例如调用：

trace("piperPaper", edit=TRUE)

返回：

function (size = NULL, ...) 
{
  new("piperplot", call = sys.call(), ...)
}

编辑：图表自定义

通过阅读文档，可以使用一些参数来自定义size、symbols 和color。它们分别是：cex、pt.pch和pt.col。

从下面的例子中

library(hydrogeo)

l <- list( Ca = c(43,10,73,26,32),
           Mg = c(30,50,3,14,12),
           Cl = c(24,10,12,30,43),
           SO4 = c(24,10,12,30,43))

lp <- piper(l)
plot( lp, main="Piper-Hill Diagram of Water Quality" )

我们得到图表

• 通过更改cex 参数，我们可以获得更大的符号

  plot( lp, main="Piper-Hill Diagram of Water Quality", cex=4)

• 通过更改pt.pch 参数我们可以选择其他符号。可用的符号是

因此声明：

lp@pt.pch = c(4,4,4,4,4)

我们获得

• 通过更改pt.col 参数我们可以设置颜色

  lp@pt.col = c(2,2,2,2,2)