使用列表的元素來索引/子集中的其他列表

Question

是否有可能在沒有循環的情況下運行以下代碼（最好是lapply）？

vec1=c(.1,.2,.3,.4,.5) 
vec2=c(2,4,6,8,10) 

vec3<-c(1,5) 
vec4<-c(2,4) 

lijst<-list(vec1,vec2) 
lijst2<-list(vec3,vec4) 

for (i in 1:2) { 
print(lijst[[i]][lijst2[[i]]]) 
} 

這是一個更大的算法的一部分，我需要優化以減少計算時間。

**編輯**

最後，我想設置在lijst2零指示的元素，所以最終的解決方案應該是下面的列表：

[[1]] 
[1] 0 0.2 0.3 0.4 0 

[[2]] 
[1] 2 0 6 0 10 

Answer 1

這應該給預期輸出：

mapply(function(x,y) {x[y]=0;x},x=lijst,y=lijst2,SIMPLIFY=FALSE) 

輸出：

[[1]] 
[1] 0.0 0.2 0.3 0.4 0.0 

[[2]] 
[1] 2 0 6 0 10