如何通过选择列表中除一个值以外的所有元素来子集R中的列表?

如何通过选择列表中除一个值以外的所有元素来子集R中的列表?,r,list,object,vector,subset,R,List,Object,Vector,Subset,所以基本上我有一个名为“参数”的列表,其中包含值(x1,x2,…,xj)。我想通过一个for循环,将这个列表子集化,但每次都省略一个元素。例如,我希望第一个子集(通过for循环的第一次迭代)是(x2,x3,…,xj),下一个子集是(x1,x3,…,xj)等等,直到最后一个子集是(x1,x2,…,xj-1)。我该怎么做?我假设“列表”是指向量。如果是: parameters <- rnorm(100) y <- matrix(nrow=length(parameters)-1,ncol

所以基本上我有一个名为“参数”的列表,其中包含值(x1,x2,…,xj)。我想通过一个for循环,将这个列表子集化,但每次都省略一个元素。例如,我希望第一个子集(通过for循环的第一次迭代)是(x2,x3,…,xj),下一个子集是(x1,x3,…,xj)等等,直到最后一个子集是(x1,x2,…,xj-1)。我该怎么做?

我假设“列表”是指向量。如果是:

parameters <- rnorm(100)
y <- matrix(nrow=length(parameters)-1,ncol=length(parameters))
for(i in 1:length(parameters))
    y[,i] <- parameters[-i]
参数这可能很有用

> Vector <- paste("x", 1:6, sep="")
> lapply(1:length(Vector), function(i) Vector[-i])
向量lappy(1:长度(向量),函数(i)向量[-i])
如果您想将数据用于遗漏的jackknife,这里有一个指向
引导程序包的快速指针和一个简短示例

library(bootstrap)
vec_list=list()
jackknife(rnorm(10,0,1),function(x) {vec_list[[length(vec_list)+1]]<<-x;mean(x)})
vec_list[1:10]
库(引导)
vec_list=list()

jackknife(rnorm(10,0,1)、函数(x){vec_list[[length(vec_list)+1]]]您可以通过指示元素在列表中的顺序从列表中子集元素

从列表中选择项目1和3

my.list[c(1,3))]
试试这个:

# create a dummy list of data frames
d1 <- data.frame(y1=c(1,2,3),y2=c(4,5,6))
d2 <- data.frame(y1=c(3,2,1),y2=c(6,5,4))
d3 <- data.frame(y1=c(3,2,1),y2=c(9,8,7))
my.list <- list(d1, d2, d3)

# get the items 1 and 3
my.list[c(1,3)]

# get the all element except of the first one
my.list[c(-1)]
#创建数据帧的虚拟列表
d1