在R中将主题附加到数据框

Question

我有一个主题列表：

myDat = list(Subject = c(10234, 10234, 10234, 10234, 10242, 10242, 10242, 10242, 10253, 10253, 10253, 10268, 10268, 10268, 10268))

我想添加一个计数（ DayNo ），该计数随数据帧的每一次更改而重新开始，如下所示：

提前致谢

Answer 1

使用rle获取游程长度，并使用sequence创建相应长度的序列。

myDat <- as.data.frame(myDat)
myDat$DayNo <- sequence(rle(myDat$Subject)$lengths)
#    Subject DayNo
# 1    10234     1
# 2    10234     2
# 3    10234     3
# 4    10234     4
# 5    10242     1
# 6    10242     2
# 7    10242     3
# 8    10242     4
# 9    10253     1
# 10   10253     2
# 11   10253     3
# 12   10268     1
# 13   10268     2
# 14   10268     3
# 15   10268     4

Answer 2

ave变体：

df <- as.data.frame(myDat)
df$Day <- ave(df$Subject, df$Subject, FUN=seq_along)

生产：

   Subject Day
1    10234   1
2    10234   2
3    10234   3
4    10234   4
5    10242   1
6    10242   2
7    10242   3
8    10242   4
9    10253   1
10   10253   2
11   10253   3
12   10268   1
13   10268   2
14   10268   3
15   10268   4