子集遍歷字符串

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`?。這種用法雖然很好。