Question

我想用110%重复编造不同名称的集。

例如，如果我有5个随机向量。

System.Security.Cryptography.CspParameters

然后，我将使用这些向量来选择原始数据集（即数据帧）中的行

function

用于编写每个命令的手稿中需要占用很多空间。我正在尝试使用“功能”来缩短这些命令

但是，我发现很难在函数语句中使用变量来编写“文本参数”。例如，使用这样的变量很容易。

number1<-sample(1:10, 3)
number2<-sample(1:10, 3)
number3<-sample(1:10, 3)
number4<-sample(1:10, 3)
number5<-sample(1:10, 3)

但是，我想使用这样的功能。

testset1<-raw[number1,]
testset2<-raw[number2,]
testset3<-raw[number3,]
tsetset4<-raw[number4,]
testset5<-raw[number5,]

非常感谢您的帮助。

Answer 1

您无需为此任务创建函数，只需使用lapply来遍历mget()生成的元素列表，然后设置一些名称，最后将所有结果放入全局环境：

rowSelected <-lapply(mget(paste0("number", 1:5)), function(x) raw[x, ])
names(rowSelected) <- paste0("testset", 1:5)
list2env(rowSelected, envir = .GlobalEnv)

如何用字符串子集化行

1 个答案: