Rのベクトルのforループはどのように動作しますか？

Question

私はRのベクトルのforループの働きを理解しようとしています。問題の解決法を考え出しましたが、その基本的な作業については疑問が残っていました。

関数を作成する過程で、この問題が発生しました。問題は、forループがベクトルの要素を通ってループしているが、特定のインデックスまでです。

## the output is partially complete, seems like it didn't loop through all the values however the loop counter is perfect 
temp_vector<- c(1, NA,Inf, NaN,3,2,4,6,4,6,7,3,2,5,NaN, NA, 3,3,NaN, Inf, Inf, NaN, NA, 3,5,6,7) 
ctr<- 0 
for(i in temp_vector){ 

    temp_vector[i]<- ifelse((!is.na(temp_vector[i])) & (!is.infinite(temp_vector[i])), temp_vector[i], 0 ) 
    ## replace the element of vector by 0 if they are Inf or NA or NaN 
    ctr<- ctr+1 
} 
temp_vector 
print(ctr) 

# output 
> temp_vector 
[1] 1 0 0 0 3 2 4 6 4 6 7 3 2 5 NaN NA 3 3 NaN Inf Inf NaN NA 3 5 6 7 
> print(ctr) 
[1] 27 

## this is generating correct output 
temp_vector<- c(1, NA,Inf, NaN,3,2,4,6,4,6,7,3,2,5,NaN, NA, 3,3,NaN, Inf, Inf, NaN, NA, 3,5,6,7) 
for(i in 1:length(temp_vector)){ 

    temp_vector[i]<- ifelse((!is.na(temp_vector[i])) & (!is.infinite(temp_vector[i])), temp_vector[i], 0 ) 
    ## replace the element of vector by 0 if they are Inf or NA or NaN 
} 
temp_vector 

# output 
> temp_vector 
[1] 1 0 0 0 3 2 4 6 4 6 7 3 2 5 0 0 3 3 0 0 0 0 0 3 5 6 7 

以下は、異なる出力を生成するために試したforループのいくつかのバリエーションです。基本的にどのように動作するかを理解しようとしています。もしあなたがそれについていくらか光を当てることができれば助けになるだろう。ありがとう！あなたが提供するベクトルオーバー

> y <- c(2, 5, 3, 9, 8, 11, 6) 

forループ：

## variant-0 
y <- c(2,5,3,9,8,11,6) 
count <- 0 
for (val in y) { 
    if(val %% 2 == 0) 
    count = count+1 
} 
print(count) 

# output 
[1] 3 

## variant-1 
x<- c(2,4,6,4,6,7,3,2,5,6) 
for(i in x){ 

    x[i]<- ifelse(x[i]==6, NaN, x[i]) 
} 
x 

# output, Last element of the vector is not a NaN 
[1] 2 4 NaN 4 NaN 7 3 2 5 6 



## variant-2 
x<- c(2,4,6,4,6,7,3,2,5,6) 
ctr<- 0 
for(i in x){ 

    x[i]<- ifelse(x[i]==6, NaN, x[i]) 
    ctr<- ctr+1 
} 
x 
print(ctr) 

# output, Note: Last element of the vector is not a NaN 
> x 
[1] 2 4 NaN 4 NaN 7 3 2 5 6 
> print(ctr) 
[1] 10 



## variant-3 
x<- c(2,4,6,4,6,7,3,2,5,6) 
ctr<- 0 
for(i in x){ 

    x[ctr]<- ifelse(x[ctr]==6, NaN, x[ctr]) 
    ctr<- ctr+1 
} 
x 
print(ctr) 


# output. Note: the counter is perfect 
> x 
[1] 2 4 NaN 4 NaN 7 3 2 5 6 
> print(ctr) 
[1] 10 


## variant-4 
x<- c(2,4,6,4,6,7,3,2,5,6) 
ctr<- 0 
for(i in x){ 

    i<- ifelse(i==6, NaN, i) 
    ctr<- ctr+1 
} 
x 
print(ctr) 

# output 
> x 
[1] 2 4 6 4 6 7 3 2 5 6 
> print(ctr) 
[1] 10 

Answer 1

は、次の例を考えてみましょう。 c(1, 2, 3, 4, 5, 6, 7)つまり、あなたがベクトル1:length(y)の要素を反復されている第2のケースで

> for (val in y) { 
+  print(val) 
+ } 
[1] 2 
[1] 5 
[1] 3 
[1] 9 
[1] 8 
[1] 11 
[1] 6 

：最初のケースでは、ベクトルyの要素を反復

> for (val in 1:length(y)) { 
+  print(val) 
+ } 
[1] 1 
[1] 2 
[1] 3 
[1] 4 
[1] 5 
[1] 6 
[1] 7 

あなたがこの中に混ざってしまいました上記のあなたのコード。これは物事をクリアすることを願っています！

Answer 2

あなたがこの方法で作品を使用しているループのためのザ・（私は第1の変形すなわちバリアント-0を取り上げる）

これは、ここで

y <- c(2,5,3,9,8,11,6) 
count <- 0 

通常の定義の一部であり、ビジネスが始まる場所であります：

for (val in y) 

ここで、valには、各繰り返しで変更されるベクトルyの値が含まれます。例えば

：

val for iteration 1: 2; 
val for iteration 2: 5; 
val for iteration 3: 3; 

など。 valが反復のためにも、すなわちあるときに、ここでは、カウントがインクリメントされます

{ 
    if(val %% 2 == 0) 
    count = count+1 
} 
print(count) 

：1,5,7-

ので、カウント数の値が有効な概念です3.