是否可以在R中具有多个变量的函数

Question

我正在研究一个要测试三个时间序列的正态性的功能。我创建了以下功能：

par(mfrow =  c(3,2))
graphicalnormality = function(x){
  plotNormalHistogram(x)
  normstats = c(mean(x), median(x), quantile(x, c(0.1, 0.9)))
  abline(v = normstats, col = 'red', lwd = 2)
  qqnorm(x)
  qqline(x)
}
graphicalnormality(OBX)
graphicalnormality(DNB)
graphicalnormality(DNO)

这是一个非常简单的功能，它可以使用它的方式，但是由于我有点挑剔，而且因为我不确定它与rmarkdown的效果如何，所以我不想拥有要运行三次功能以获取我的所有三个测试的绘图。因此，我的问题是，是否可以一次使用所有三个数据集运行该功能？

Answer 1

您可以修改您的功能以获取任何类似的向量：

graphicalnormality = function(...) {
  dfs <- lapply(as.list(match.call())[-1], eval)
  for(x in dfs) {
    rcompanion::plotNormalHistogram(x)
    normstats = c(mean(x), median(x), quantile(x, c(0.1, 0.9)))
    abline(v = normstats, col = 'red', lwd = 2)
    qqnorm(x)
    qqline(x)
  }
}

因此您可以做：

par(mfrow =  c(3,2))
graphicalnormality(OBX, DNB, DNC)

---

data

OBX <- rnorm(100)
DNB <- rnorm(100)
DNC <- rnorm(100)