r - 在R中按组添加观察数

Question

<分区>

Answer 1

基础 R:

data$OBS <- ave(seq_len(nrow(data)), data$Category, FUN = seq_along)
data
#    Category    Y OBS
# 1         A 5.10   1
# 2         A 3.14   2
# 3         A 1.79   3
# 4         A 3.21   4
# 5         A 5.57   5
# 6         B 3.68   1
# 7         B 4.56   2
# 8         B 3.32   3
# 9         B 4.98   4
# 10        B 5.82   5

顺便说一句:可以使用框架的任何列作为第一个参数，包括 ave(data$Category, data$Category, FUN=seq_along)，但是 ave根据输入的 class 选择其输出 class，因此使用字符串作为第一个参数将导致返回字符串:

ave(data$Category, data$Category, FUN = seq_along)
#  [1] "1" "2" "3" "4" "5" "1" "2" "3" "4" "5"

虽然不令人发指，但它需要是一个有意的选择。由于您似乎希望该列中有一个整数，因此我选择了最简单的整数输入、整数输出方法。它还可以使用 rep(1L,nrow(data)) 或任何既是整数又与帧中的行数长度相同的东西，因为 seq_along (我选择的功能)不会关心。