特定の部分文字列が見つかった場合に変数を変更します（forループを介して）

Question

xが4の場合、「変数」を1に変更したいと考えています。 実行後変数はまだゼロです。私は"print (i)" を含むようにして、forループがxの "4"に到達するかどうかを確認しましたが、 "1"だけが でした。だから、for-loopは1つ以上の実行を行わないようです.... 誰かがこのコードで何が間違っているのかを教えてもらえますか？

x=22356478998 
    variable=0 
    for(i in 1:length(x)){ 
    if(substr(x,start=i,stop=i)=="4"){ 
     variable=1 
     break 
    } 
    } 

Answer 1

ちょうどgrepl（それはbaseにあります）

variable = as.integer(grepl("4", x)) 

Answer 2

あなたはstringrパッケージからstr_detect()を使用することができます。

library(stringr) 
x=22356478998 
variable <- ifelse(str_detect(x, "4"), 1, 0)