带有循环遍历字符串数组的子集

Question

我的代码是这样的：

for (i in 1:b) {
carteraR[[i]]=subset(carteraR[[i]],RUN.FONDO=="8026" | RUN.FONDO=="8036" | RUN.FONDO=="8048" | RUN.FONDO=="8057" | RUN.FONDO=="8059" | RUN.FONDO=="8072" | RUN.FONDO=="8094" | 
RUN.FONDO=="8107" | RUN.FONDO=="8110" | RUN.FONDO=="8115" | RUN.FONDO=="8130" | RUN.FONDO=="8230" | RUN.FONDO=="8248" | RUN.FONDO=="8257" | RUN.FONDO=="8319")
}

b=length(carteraR)和class(carteraR[[i]])=data.frame的位置。 RUN.FONDO是这些数据框架的主管之一。这段代码工作正常，但我想保存一些行。

我想要的是：

for (i in 1:b) {
for (j in 1:length(A)){
carteraR[[i]]=subset(carteraR[[i]],RUN.FONDO==A[j])
}
}

A= "8026" "8036" "8048" "8057" ... "8319" .......等......

代码应该是什么样的？

THX

Answer 1

像这样：

carteraR <- lapply(carteraR, subset, RUN.FONDO %in% A)

请注意，以编程方式使用subset可能存在风险：Why is `[` better than `subset`?。这种用法很好。