中的R

Question

另一個嵌套循環我有嵌套for循環的下列數據和：

x <- c(12, 27, 21, 16, 12, 21, 18, 16, 20, 23, 21, 10, 15, 26, 21, 22, 22, 19, 26, 26) 
y <- c(8, 10, 7, 7, 9, 5, 7, 7, 10, 4, 10, 3, 9, 6, 4, 2, 4, 2, 3, 6) 

a <- c(20,25) 
a.sub <- c() 
df <- c() 
for(j in 1:length(a)){ 
    a.sub <- which(x >= a[j]) 
    for(i in 1:length(a.sub)){ 
     df[i] <- y[a.sub[i]]  
    } 
    print(df) 
} 

我想環路爲返回值DF爲：

[1] 10 6 3 6 4 10 6 4 2 4 3 6 
[1] 10 6 3 6 

正如我有它，然而，循環返回相同的數值兩次DF的一個< - 20，但不是< - 25：

[1] 10 7 5 10 4 10 6 4 2 4 3 6 
[1] 10 6 3 6 4 10 6 4 2 4 3 6 

Answer 1

for(i in 1:length(a.sub)){ 
    df[i] <- y[a.sub[i]]  
} 

可以成爲

df <- y[a.sub]  

既不a.sub也不DF需要被然後，因此預定義......

x <- c(12, 27, 21, 16, 12, 21, 18, 16, 20, 23, 21, 10, 15, 26, 21, 22, 22, 19, 26, 26) 
y <- c(8, 10, 7, 7, 9, 5, 7, 7, 10, 4, 10, 3, 9, 6, 4, 2, 4, 2, 3, 6) 

a <- c(20,25) 
for(j in 1:length(a)){ 
    a.sub <- which(x >= a[j]) 
    df <- y[a.sub]  
    print(df) 
} 

它可以作出短。無論如何，如果你只是打印y的子集，df是不必要的。只需直接打印即可。選擇器非常短，不會讓單線混淆。此外，爲什麼使用a和index的長度..直接循環。因此，它可能是......

a <- c(20,25) 
for(ax in a){ 
    print(y[ which(x >= ax) ]) 
} 

Answer 2

不知道這是一個更復雜問題的簡化版本，但我可能會使用一些直接索引和應用函數來解決這個問題。事情是這樣的：

z <- cbind(x,y) 
sapply(c(20,25), function(x) z[z[, 1] >= x, 2]) 
[[1]] 
[1] 10 7 5 10 4 10 6 4 2 4 3 6 

[[2]] 
[1] 10 6 3 6