グループ内のNaNに最初に出現する数字を作る方法

Question

現在、被験者が最初にRのNaNに青いキューを選択する行を作成しようとしています。最初のNaNでグループ（対象グループ）内の値が発生していませんか？私は、次の操作を実行しようとした：

replacefirsts<-function(x) 
{ 
    dataless[match(unique(dataless$choice==1),dataless$choice),]==NaN; 
} 
data=tapply(data$sID,list(data$sID),replacefirsts) 

私はこれを行うと、それは新しいデータセットのみがNaN値ではなく、行の残りの部分を持っています。

現在、私のデータは次のようになります。

sID choice 
1  2 
1  1 
1  3 
1  1 
1  1 
2  1 
2  2 
2  2 
2  3 
2  3 
3  3 
3  1 
3  2 
3  2 
3  2 

私が望む何を：（グループ（SID）内の選択肢1の最初の発生がNaNである：ここでは

sID choice 
1  2 
1  NaN 
1  3 
1  1 
1  1 
2  NaN 
2  2 
2  1 
2  3 
2  3 
3  3 
3  NaN 
3  2 
3  2 
3  2 

Answer 1

は方法です基地Rを介して、ここ

with(df, ave(choice, sID, FUN = function(i) replace(i, which(i == 1)[1], NaN))) 
#[1] 2 NaN 3 1 1 NaN 2 2 3 3 3 NaN 2 2 2 

Answer 2

はgroup_by

を使用して、dplyrの方法でありますここで

dat <- data.frame(sID = rep(1:3, each=3), choice = c(1,2,1,1,2,3,3,1,1)) 

dat %>% 
    group_by(sID) %>% 
    mutate(choice2 = ifelse((choice == 1 & !duplicated(choice == 1)), NaN, choice)) 

Source: local data frame [9 x 3] 
Groups: sID [3] 

    sID choice choice2 
    <int> <dbl> <dbl> 
1  1  1  NaN 
2  1  2  2 
3  1  1  1 
4  2  1  NaN 
5  2  2  2 
6  2  3  3 
7  3  3  3 
8  3  1  NaN 
9  3  1  1 

Answer 3

data.table

library(data.table) 
setDT(df)[df[, .I[seq_len(.N) == 1 & choice == 1],.(choice, sID)]$V1, choice := NaN][] 
# sID choice 
# 1: 1  2 
# 2: 1 NaN 
# 3: 1  3 
# 4: 1  1 
# 5: 1  1 
# 6: 2 NaN 
# 7: 2  2 
# 8: 2  2 
# 9: 2  3 
#10: 2  3 
#11: 3  3 
#12: 3 NaN 
#13: 3  2 
#14: 3  2 
#15: 3  2 

---

それともbase R

with(df, NaN^(!duplicated(df) & choice == 1)*choice) 
#[1] 2 NaN 3 1 1 NaN 2 2 3 3 3 NaN 2 2 2