识别或编码独特因素

Question

我想创建一个新变量litter，以指示不同分娩日期（fdate）中的每个母猪或窝。每个垫料的编号从1到N，增量为1，如最后一栏所示。

sow   season piglet fdate        litter
1M521    1    5702   14/09/2009    1
1M521    1    5703   14/09/2009    1
1M521    2    22920  17/02/2010    2
1M521    2    22920  17/02/2010    2
1M521    2    22920  17/02/2010    2
1M584    1    8516   28/09/2009    3
1M584    1    8516   28/09/2009    3
1M584    1    8516   28/09/2009    3
1N312    1    6192   16/09/2009    4
1N312    1    6193   16/09/2009    4
1N312    1    6194   16/09/2009    4
1N312    2    21818  11/02/2010    5
1N312    2    21819  11/02/2010    5
1N312    2    21820  11/02/2010    5
2A1526   1    9293   3/10/2009     6
2A1526   1    9294   3/10/2009     6
2A1526   1    9295   3/10/2009     6
2A1526   1    9296   3/10/2009     6

Answer 1

如果我理解正确，你只是基于fdate吗？如果您的数据框为piglets，请尝试以下操作：

piglets$litter <- as.numeric(factor(piglets$fdate))