用於標記重復項的用戶定義函數

Question

我正在嘗試創建一個函數，該函數將根據 ID 號識別重復樣本（行）並創建一個新列，該列將寫入重復樣本（如果有）的測試順序。

重復樣本將具有相同的 ID，但將具有一個連續的輔助 ID。 下面是我的意思的一個例子。

示例數據：

df <- data.frame(ID1=c(2528,2528,2528,2530,2533,2533),
                 ID2=c("G_54", "G_55", "G_53", "G_99", "G_252", "G_253"),
                 RESULT=c(.235, .237, .236, .325, .445, .446))
df
#    ID1   ID2 RESULT
# 1 2528  G_54  0.235
# 2 2528  G_55  0.237
# 3 2528  G_53  0.236
# 4 2530  G_99  0.325
# 5 2533 G_252  0.445
# 6 2533 G_253  0.446

我希望結果如下所示：

#expected output
#  ID1  ID2    RESULT   RUN
# 2528  G_54    0.235   RUN2
# 2528  G_55    0.237   RUN3
# 2528  G_53    0.236   RUN1
# 2530  G_99    0.325   SINGLE
# 2533  G_252   0.445   RUN1
# 2533  G_253   0.446   RUN2

Answer 1

使用 dplyr：

library(dplyr)

df %>% 
  group_by(ID1) %>% 
  arrange(ID1, ID2) %>% 
  mutate(RUN = row_number(),
         N = n(),
         RUN = ifelse(N == 1, "SINGLE", paste0("RUN", RUN))) %>% 
  select(-N)

#result
#    ID1   ID2 RESULT    RUN
# 1 2528  G_53  0.236   RUN1
# 2 2528  G_54  0.235   RUN2
# 3 2528  G_55  0.237   RUN3
# 4 2530  G_99  0.325 SINGLE
# 5 2533 G_252  0.445   RUN1
# 6 2533 G_253  0.446   RUN2