首页 文章

在dplyr中编号重复的行[重复]

提问于
浏览 次
0

这个问题在这里已有答案：

我遇到了一个问题，在data.frame中对重复的行进行编号，但找不到类似的帖子 .

假设我们有这样的数据

df <- data.frame(gr=gl(7,2),x=c("a","a","b","b","c","c","a","a","c","c","d","d","a","a"))


    > df
   gr x
1   1 a
2   1 a
3   2 b
4   2 b
5   3 c
6   3 c
7   4 a
8   4 a
9   5 c
10  5 c
11  6 d
12  6 d
13  7 a
14  7 a

并且想要添加名为 x_dupl 的新列，以显示第一次出现的 x 值编号为 1 ，第二次出现 2 ，第三次出现 3 等等 .

提前致谢！

预期的产出

> df
           gr x x_dupl 
        1   1 a  1
        2   1 a  1
        3   2 b  1
        4   2 b  1
        5   3 c  1
        6   3 c  1
        7   4 a  2
        8   4 a  2
        9   5 c  2
        10  5 c  2
        11  6 d  1
        12  6 d  1
        13  7 a  3 
        14  7 a  3
r dplyr

2 回答

  • 1

    您的示例数据（加上输出中 gr = 7 的行），并命名为 df1 ，而不是 df ：

    df1 <- data.frame(gr = gl(7,2),
                  x  = c("a","a","b","b","c","c","a","a","c","c","d","d","a","a"))

library(dplyr)
df1 %>% 
  group_by(x) %>% 
  mutate(x_dupl = dense_rank(gr)) %>%
  ungroup()

# A tibble: 14 x 3
       gr      x x_dupl
   <fctr> <fctr>  <int>
 1      1      a      1
 2      1      a      1
 3      2      b      1
 4      2      b      1
 5      3      c      1
 6      3      c      1
 7      4      a      2
 8      4      a      2
 9      5      c      2
10      5      c      2
11      6      d      1
12      6      d      1
13      7      a      3
14      7      a      3
    回复于
  • 2

    基础R解决方案：

    df <- data.frame(gr=gl(7,2),x=c("a","a","b","b","c","c","a","a","c","c","d","d","a","a"))

x <- rle(as.numeric(df$x))
x$values <- ave(x$values, x$values, FUN = seq_along)
df$x_dupl <- inverse.rle(x)
#    gr x x_dupl
# 1   1 a      1
# 2   1 a      1
# 3   2 b      1
# 4   2 b      1
# 5   3 c      1
# 6   3 c      1
# 7   4 a      2
# 8   4 a      2
# 9   5 c      2
# 10  5 c      2
# 11  6 d      1
# 12  6 d      1
# 13  7 a      3
# 14  7 a      3
    回复于

相关问题