Q&A
Rのベクトルで特定の値のみを入れ替えたいです。
R
1a <- c( 1 , 1 , 0 , 1 , 1 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0)
例えばこのような配列があるとして、連続していない1のみを0に変更する場合どのようにすればよいでしょうか？
簡単な質問かもしれませんが、よろしくお願い致します。
回答2件
0
こんな感じでどうでしょうか。
R
1a <- c( 1 , 1 , 0 , 1 , 1 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0) 2a 3#[1] 1 1 0 1 1 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 4r <- rle(a) 5val <- ifelse(r$values == 1 & r$lengths == 1, 0, r$values) 6rep(val, r$lengths) 7#[1] 1 1 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
投稿2018/05/11 06:15
総合スコア15898
0
ベストアンサー
R
1a <- c( 1 , 1 , 0 , 1 , 1 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0) 2aa <- c(NA, a, NA) 3for(i in 2:(length(aa)-1)){ 4 if(isTRUE(aa[i]==1 & aa[i-1]!=1 & aa[i+1]!=1)){ 5 aa[i] <- 0 6 } 7} 8 9print(a) 10print(aa[2:(length(aa)-1)])
投稿2018/05/11 06:05
総合スコア13671
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。