小编Eri*_*rey的帖子

我有一些数据：

library(data.table)
set.seed(1)
df1 <- data.frame(let=sample(sample(letters,2),5, replace=TRUE),
                  num=sample(1:10,5))
setDT(df1)
   let num
1:   j   7
2:   j   6
3:   g   1
4:   j   2
5:   j  10

并且我想通过来计算num小于或等于numAND大于或等于num-4的数量let。使用data.table包将是更好的选择，但是使用dplyr或base r的任何解决方案也都可以。输出如下所示：

   let num countNumByLet
1:   j   7             2
2:   j   6             2
3:   g   1             1
4:   j   2             1
5:   j  10             3