將dplyr過濾器操作應用於特定行而不會丟失其他數據

Question

如果以前曾詢問過，請道歉。我找不到任何滿意的答案，儘管聽起來應該是一個相當直接的操作。

我有我的數據

transition_frame      name state_number lifetime 
      <int>      <chr>  <dbl> <dbl> 
1    38 //Traces_exp1_tif_pair10   1  NA 
2    44 //Traces_exp1_tif_pair10   2  6 
3    352 //Traces_exp1_tif_pair10   3  308 
4    362 //Traces_exp1_tif_pair10   4  10 
5    379 //Traces_exp1_tif_pair10   5  17 
6    388 //Traces_exp1_tif_pair10   6  9 

這是很容易計算的過渡幀之間的橫行差異，但因爲有狀態0和1之間沒有「轉型」，它打破了流量。

我怎樣才能讓只有第一行是transition_frame - 1（提示，這是37），不接觸任何其他數據？

試想一下，

group_by(name) %>% 
filter(state_number == 1) %>% 
mutate(lifetime = transition_frame - 1) %>% 
unfilter() # To retrieve dropped data 

這將導致整個集，從第一行計算，並且不只的第一行。

transition_frame      name state_number lifetime 
      <int>      <chr>  <dbl> <dbl> 
1    38 //Traces_exp1_tif_pair10   1  37 
2    44 //Traces_exp1_tif_pair10   2  6 
3    352 //Traces_exp1_tif_pair10   3  308 
4    362 //Traces_exp1_tif_pair10   4  10 
5    379 //Traces_exp1_tif_pair10   5  17 
6    388 //Traces_exp1_tif_pair10   6  9 

Answer 1

以下是否適合您？

df <- data.frame(transition_frame = c(38, 44, 352, 362, 379, 388), 
       name = rep("//Traces_exp1_tif_pair10", 6), 
       state_number = seq(1, 6)) 

df %>% mutate(lifetime = diff(c(1, transition_frame))) 

    transition_frame      name state_number lifetime 
1    38 //Traces_exp1_tif_pair10   1  37 
2    44 //Traces_exp1_tif_pair10   2  6 
3    352 //Traces_exp1_tif_pair10   3  308 
4    362 //Traces_exp1_tif_pair10   4  10 
5    379 //Traces_exp1_tif_pair10   5  17 
6    388 //Traces_exp1_tif_pair10   6  9 

在diff()與其他價值，如果你想在狀態0的遷移幀採取不同的值替換1。

Answer 2

希望類似於以下代碼的方法可能對您有所幫助！

df <- data.frame(transition_frame=c(38,44,352), 
       name=c('//Traces_exp1_tif_pair10','//Traces_exp1_tif_pair10','//Traces_exp1_tif_pair10'), 
       state_number=c(1,2,3), 
       lifetime=c(NA,6,308)) 
df[df$state_number==1 & is.na(df$lifetime),"lifetime"] <- 
    df[df$state_number==1 & is.na(df$lifetime),"transition_frame"] - 1 
df