根据行条目分配流水号 R

Question

对你们来说可能很容易。 如标题所示，我想根据来自不同列的行条目（在本例中为 ASV 列）创建一个具有运行编号的新列。 因此参考列中的行条目具有重复值。

 ASV                   New_column 
 wthjjwjjgbwurigwe434j     1 
 wthjjwjjgbwurigwe434j     1
 wthjjwjjgbwurigwe434j     1 
 21y4hghgw6yw8ngqoigj7     2 
 21y4hghgw6yw8ngqoigj7     2 
 1387341yqfysddhas394h     3

感谢你的帮助。

Answer 1

如果我们假设您的数据框名为“dat”，我们可以使用以下代码：

dat$New_column <- as.integer(factor(dat$ASV))

Answer 2

更新我决定提出另一种解决方案，因为rleid可能会导致误导性结果。

library(dplyr)

df %>%
  mutate(dup = +duplicated(df$ASV),
         id = cumsum(dup == 0)) %>%
  select(-dup)

                    ASV id
1 wthjjwjjgbwurigwe434j  1
2 wthjjwjjgbwurigwe434j  1
3 wthjjwjjgbwurigwe434j  1
4 21y4hghgw6yw8ngqoigj7  2
5 21y4hghgw6yw8ngqoigj7  2
6 1387341yqfysddhas394h  3

Answer 3

我们可以使用match

dat$New_column <- with(data, match(ASV, unique(ASV)))

Answer 4

如果要按字母顺序分配新的 id，可以使用dense_rank中的dplyr

df %>% mutate(New_column = dense_rank(ASV))

                    ASV New_column
1 wthjjwjjgbwurigwe434j          3
2 wthjjwjjgbwurigwe434j          3
3 wthjjwjjgbwurigwe434j          3
4 21y4hghgw6yw8ngqoigj7          2
5 21y4hghgw6yw8ngqoigj7          2
6 1387341yqfysddhas394h          1

或者

df %>% group_by(ASV) %>%
  mutate(New_column = cur_group_id())