如何将函数调用中指定的值用作“变量”

Question

我想知道是否可以在 R 中使用在函数调用中声明的值作为函数本身的“变量”部分，类似于 SAS IML 中可用的功能。

鉴于这样的事情：

put.together <- function(suffix, numbers) {
new.suffix <<- as.data.frame(numbers)
return(new.suffix)
}

x <- c(seq(1000,1012, 1))
put.together(part.a, x)

new.part.a   ##### does not exist!!

new.suffix   ##### does exist

正如它所写的那样，该函数返回一个名为new.suffix 的数据帧，因为这是我要求它执行的操作。

我想要返回一个名为new.part.a 的数据帧。

---

编辑：要求提供有关分析目的的其他信息

问题的目的是生成将发送到另一个函数进行分析的数据帧。

存在一个数据库，其中元素按编号组织成组，其他人组织这些组 成有意义的集合。

每个组都有一个 ID 号。我使用其他人提供的信息将指定的组放在一起。

例如，我会得到一组 id 编号，例如：part-1 = 102263、102338、202236、302342、902273、102337、402233。

所以，第 1 部分有七个组，每个组有几个元素。

我在合并中使用 id 编号，以便从大型数据库中仅提取感兴趣的组。

以下是我的一套：

### all.possible.elements.bank <- .csv file from large database ###

id.part.1 <- as.data.frame(c(102263, 102338, 202236, 302342, 902273, 102337, 402233))
bank.names <- c("bank.id")
colnames(id.part.1) <- bank.names
part.sort <- matrix(seq(1,nrow(id.part.1),1)) 
sort.part.1 <- cbind(id.part.1, part.sort)

final.part.1 <- as.data.frame(merge(sort.part.1, all.possible.elements.bank, 
by="bank.id", all.x=TRUE))

上面的过程重复了很多很多次。

我知道我可以为所有我要收集的集合执行此操作，但我认为我可以将选择过程包装到一个函数中。唯一会改变的是零件编号（part-1、part-2 等）和被选中的组。

Answer 1

可以使用assign 函数（可能还有deparse 和substitute），但强烈建议不要这样做。为什么不能只返回数据框并调用如下函数：

new.part.a <- put.together(x)

这通常是更好的方法。

如果您真的想在全局环境中进行更改，那么您可能需要一个宏，请参阅 gtools 包中的 defmacro 函数，最重要的是阅读帮助页面上的参考部分中的文档。

Answer 2

这很少是你应该想要做的事情......分配给函数环境之外的东西会给你带来各种各样的麻烦。

但是，您可以使用assign：

put.together <- function(suffix, numbers) {
   assign(paste('new',
                deparse(substitute(suffix)),
                sep='.'),
          as.data.frame(numbers),
          envir=parent.env(environment()))
}

put.together(part.a, 1:20)

但就像格雷格说的，它通常没有必要，如果使用不当总是很危险的。