Другой вложенный цикл в R

Question

У меня есть следующие данные и вложенные цикл:

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

Я хотел бы цикл, чтобы вернуть значения ДФ как:

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

Как я его, однако, цикл возвращает то же значение дважды ДФ для < - 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, ни ДФ должны быть заранее определены, то и таким образом ...

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

Это может быть сделано короче. df не требуется, если вы просто печатаете подмножество y в любом случае. Просто распечатайте его напрямую. И селектор настолько короток, что ни одна строка не сбивает с толку. Кроме того, зачем использовать длину строки a и index .. через напрямую. Так, это может быть ...

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

Answer 2

Не уверен, что это упрощенная версия более сложной проблемы, но я бы, вероятно, решил это, используя некоторую прямую индексацию и функцию apply. Что-то вроде этого:

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