R 具有频率和平均数的列

从这样的数据帧

data.frame(id= c(1,1,2,3,3), visits = c(32,30,1,2,4))

如何能够生成每个numi的平均访问次数列，但同时添加一个新列，该列的数字/频率将存在于numi列中 预期产出：

data.frame(id=  c(1,2,3), numi_frq = c(2,1,2), average = c(31,1,3))

库（dplyr）
数据%group_by（id）%>%总结（N=N（），平均值=平均值（就诊））
#一个tibble:3x3
id N平均值
1     1     2    31
2     2     1     1
3     3     2     3

库（dplyr）
数据%group_by（id）%>%总结（N=N（），平均值=平均值（就诊））
#一个tibble:3x3
id N平均值
1     1     2    31
2     2     1     1
3     3     2     3

Try

aggregate（.~id，d1，FUN=function（i）c（numi_fq=length（i），average=mean（i））

Try

aggregate（.~id，d1，FUN=function（i）c（numi_fq=length（i），average=mean（i））

library(dplyr)
Data <- data.frame(id= c(1,1,2,3,3), visits = c(32,30,1,2,4))
Data %>% group_by(id)%>% summarise(N=n(),Avg=mean(visits))

# A tibble: 3 x 3
     id     N   Avg
  <dbl> <int> <dbl>
1     1     2    31
2     2     1     1
3     3     2     3