r - 从数据中附加频率值

Question

我有一个看起来像这样的数据集

XDATA 
SAMPN   HHSIZE    TOTVEH
1          2        3
2          6        4
2          6        4
5          1        3
5          1        3
5          1        3

我怎样才能添加一个额外的列让我们说SAMPN频率，所以我可以看起来像这样：

XDATA 
SAMPN   HHSIZE    TOTVEH   FREQ
1          2        3        1
2          6        4        2
2          6        4        2
5          1        3        3
5          1        3        3
5          1        3        3

提前致谢

Answer 1

library(data.table)
XDATA <- data.table(XDATA)

XDATA[, FREQ := .N, by=SAMPN]
XDATA
   SAMPN HHSIZE TOTVEH FREQ
1:     1      2      3    1
2:     2      6      4    2
3:     2      6      4    2
4:     5      1      3    3
5:     5      1      3    3
6:     5      1      3    3
> 

For BASE R - see @Ananda Mahto's solution

Answer 2

@Ricardo 对基本 R 的回答（使用tapplyand merge）的替代方法是使用ave：

within(XDATA, {
  FREQ <- ave(SAMPN, SAMPN, FUN = length)
})
#   SAMPN HHSIZE TOTVEH FREQ
# 1     1      2      3    1
# 2     2      6      4    2
# 3     2      6      4    2
# 4     5      1      5    3
# 5     5      1      5    3
# 6     5      1      5    3

Answer 3

XDATA <- data.table(
SAMPN = c(1,2,2,5,5,5),
HHSIZE = c(2,6,6,1,1,1),
TOTVEH = c(3,4,4,5,5,5)
)

XDATA[, COUNT := 1]
XDATA[, FREQ := sum(COUNT), by = c('SAMPN','HHSIZE','TOTVEH')]

#SAMPN HHSIZE TOTVEH COUNT FREQ
#1:     1      2      3     1    1
#2:     2      6      4     1    2
#3:     2      6      4     1    2
#4:     5      1      5     1    3
#5:     5      1      5     1    3
#6:     5      1      5     1    3