为什么 <<- 赋值在我的函数中起作用，但 <- 不起作用？ [复制]

Question

我试图在实践中了解<- 和<<- 之间的区别。我在R 中编写了以下函数，它依赖于我编写的其他几个小函数：

fun.exec <- function(x=dat){
  id1 <- prompt1()
  id2 <- prompt2()
  el.type <- data.switch(di=id1)
  dat.sifted <- data.sift(x, nc=id2)
  plots.list <- evol.tiles(ds=dat.sifted, dt=el.type, nc=id2)
  p <- evol.plot(l=plots.list, dt=el.type)
}

函数prompt1 和prompt2 接受用户输入，el.type() 为数据分配字符串名称（用于自动描述不同的图），data.sift() 从大数据框对象中提取相关数据， evol.tiles() 生成各种 ggplots 以组织在一个网格中，evol.plot() 将这些图放在一个网格中。

可以看出，data.sift() 和evol.tiles() 函数都使用id2 用户的输入。当我按原样执行此函数时，出现错误：

Error in evol.tiles(ds = dat.sifted, dt = el.type, nc = id2) : object 
'id2' not found 

如果我将id2 <- prompt2() 替换为id2 <<- prompt2()，代码将按预期工作。

我不明白为什么data.sift() 函数上的代码没有中断，该函数也需要id2。我阅读了help 的作业、StackOverflow 上的一些相关帖子以及An Introduction to R 的Scope 部分，但我仍然不确定问题出在哪里。就好像在 data.sift() 中使用后，该变量在环境中不再可用，我不明白那是。

任何帮助将不胜感激。

更新： 下面是提示代码：

prompt1 <- function(){
  cat('What do you want to create plots for? Your options are:
        1: data type A,
        2: data type B,
        3: data type C')
  readline(prompt="Enter an integer: ")
}

prompt2 <- function(){
  cat('How many nodes do you want to visualize?')
  n <- readline(prompt="Enter an integer: ")
  cat('\nProvide coordinates of each node to visualize separated by commas.')
  l <- vector("list", n)
  for (i in 1:n){
    el <- readline(prompt=paste('Enter coordinnates for node',i,': '))
    l[[i]] <- el
  }
  return(l)
}

对于data.sift()：

data.sift <- function(x, nc){
  nl <- lapply(nc, function(l){as.integer(unlist(strsplit(l,",")))})
  ds <- vector("list", length(nl))
  for (i in 1:length(nl)){
    ds[[i]] <- x[(x$x == nl[[i]][1] & x$y == nl[[i]][2] & x$z == nl[[i]][3]),]
  }
  return(ds)
}

对于evol.tiles()：

evol.tiles <- function(ds, dt, nc){
  require(ggplot2)
  my.cols <- rainbow(length(ds))
  my.names <- as.character(nc)
  names(my.cols) <- my.names

  my.list <- list()
  for (i in 1:6){
    for (ii in 1:length(id2)){
      p <- ggplot(NULL, aes_(x = as.name(names(ds[[ii]][4]))))
      p <- p + geom_line(data = ds[[ii]], 
                         aes_(y = as.name(names(ds[[ii]][i])), 
                              colour = as.character(nc[[ii]])))
    }
    p <- p  + scale_colour_manual("Node",
                          breaks = as.character(nc),
                          values = my.cols)
    my.list[[i-dr[1]+1]] <- p
  }
  return(my.list)
}

Answer 1

正如在 cmets 中发布的那样，我认为我发现了问题 - 在处理一个最小的工作示例时，我发现在我的函数 evol.tiles() 中我调用了 id2 变量而不是 nc（在内部循环中）。我想当我将<<- 用于prompt2() 时，我被全局分配了它，然后当从evol.tiles() 中调用它时可以找到它，但是<- 它对evol.tiles() 不可用。

即便如此，我还是不太明白为什么会这样。我认为该函数应该在育儿环境中查找缺少的参数，并且由于id2 是在fun.exec() 中定义的，time.evol() 应该能够找到正确的值。

这是一个简单的示例，展示了我期望代码的行为方式，即使在我的例子中使用了一个错误命名的变量：

test <- function(){x*x}
test()
Error in test() : object 'x' not found

如果我自己运行 test() 函数，我会得到与我的函数相同的错误，这正是我所期望的。但是，如果我将值分配给x，即，

x <- 2
test()
[1] 4 

该功能运行良好。有人能告诉我为什么我的函数的行为方式不同吗？

更新： @Aaron：你给出的例子，即rm(x); test2 <- function() { x <- 2; test() }; test2()，对我来说执行得很好：

所以我还是不明白问题是什么。有什么想法吗？