如果另一列中的值不唯一，则创建新的顺序列

Question

我有两列 x 和 y，如果其中一列中的值不唯一，我正在尝试创建一个新的序列列 z。例如

x <- c("1", "1", "1", "1", "2", "2", "2", "3", "3", "3", "4", "4", "5", "6", "6", "6")
y <- c("Y", "Y", "Y", "Y", "N", "N", "Y", "Y", "Y", "Y", "Y", "Y", "Y", "N", "Y", "Y")
df <- data.frame(x, y) 

我想要得到的是以下内容：

#    x     y         z
#
#    1     Y         1
#    1     Y         2
#    1     Y         3
#    1     Y         4
#    2     N         1
#    2     N         2
#    2     Y         3
#    3     Y         1
#    3     Y         2
#    3     Y         3
#    4     Y         1
#    4     Y         2
#    5     Y         1
#    6     N         1
#    6     Y         2
#    6     Y         3

Answer 1

y <- c("Y", "Y", "Y", "Y", "N", "N", "Y", "Y", "Y", "Y", "Y", "Y", "Y", "N", "Y", "Y")
df <- data.frame(x, y) 

df$z <- ave(df$x, df$x, FUN = seq_along)

给予

   x y z
1  1 Y 1
2  1 Y 2
3  1 Y 3
4  1 Y 4
5  2 N 1
6  2 N 2
7  2 Y 3
8  3 Y 1
9  3 Y 2
10 3 Y 3
11 4 Y 1
12 4 Y 2
13 5 Y 1
14 6 N 1
15 6 Y 2
16 6 Y 3