Eine weitere verschachtelte Schleife in R

Question

Ich habe die folgenden Daten und für Schleife verschachtelt:

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) 
} 

ich die Schleife Werte zurückgeben möchte für df als:

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

Wie ich es habe, Allerdings gibt die Schleife zweimal die gleichen Werte von df für eine < - 20, aber kein < - 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]  

weder a.sub noch df Notwendigkeit vorgegeben werden dann und so ...

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) 
} 

werden kann es gemacht werden könnte kürzer. df ist unnötig, wenn Sie nur die Untermenge von y trotzdem drucken. Drucken Sie es einfach direkt aus. Und der Selektor ist so kurz, dass eine einzelne Zeile nicht verwirrend wäre. Darüber hinaus, warum Länge von a und index verwenden. Schleife direkt durch. So könnte es sein, ...

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

Answer 2

Nicht sicher, ob dies eine vereinfachte Version eines komplexeren Problem ist, aber ich würde wahrscheinlich lösen diese eine direkte Indizierung und eine Funktion anwenden. Etwas wie folgt aus:

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