Question

我正在尝试编写一个R函数，它接受一个数据集并输出plot（）函数，并在其环境中读取数据集。这意味着您不必再使用attach（），这是一种很好的做法。这是我的例子：

mydata <- data.frame(a = rnorm(100), b = rnorm(100,0,.2))
plot(mydata$a, mydata$b) # works just fine

scatter_plot <- function(ds) { # function I'm trying to create
    ifelse(exists(deparse(quote(ds))),
        function(x,y) plot(ds$x, ds$y),
            sprintf("The dataset %s does not exist.", ds))
    }

scatter_plot(mydata)(a, b) # not working

这是我得到的错误：

Error in rep(yes, length.out = length(ans)) : 
  attempt to replicate an object of type 'closure'

我尝试了其他几个版本，但他们都给了我同样的错误。我做错了什么？

编辑：我意识到代码不太实用。我的目标是更好地理解函数式编程。我在SAS写了一个类似的宏，我只是想在R中编写它的对应物，但我失败了。我刚刚选这个作为例子。我认为这是一个非常简单的例子，但它不起作用。

Answer 1

有一些小问题。 ifelse是一个矢量化函数，但您只需要一个简单的if。实际上，您实际上并不需要else - 如果数据集不存在，您可能会立即抛出错误。请注意，您的错误消息未使用对象的名称，因此它将创建自己的错误。

您正在传递a和b而不是"a"和"b"。在编程时（ds$x），您应该使用ds[[x]]语法，而不是fortunes::fortune(312)语法。如果这是你想要调用函数的方式，那么你也必须解析这些参数。最后，我认为您需要deparse(substitute())而不是deparse(quote())

scatter_plot <- function(ds) {
  ds.name <- deparse(substitute(ds))
  if (!exists(ds.name))
    stop(sprintf("The dataset %s does not exist.", ds.name))
  function(x, y) {
    x <- deparse(substitute(x))
    y <- deparse(substitute(y))
    plot(ds[[x]], ds[[y]])
  }
}
scatter_plot(mydata)(a, b)

在R中，出现以下错误：＆＃34;尝试复制类型＆＃39;关闭＆＃39;＆＃34;

1 个答案: