r - 计算组内差异 R

Question

我试图弄清楚如何使用名为 reading 的列附加一个列，该列标识给定日期的不同 ID 之间是否存在 10 的差异。

**Day   ID  Reading**
19-Jan  1   10
19-Jan  1   10
19-Jan  1   10
19-Jan  1   20
19-Jan  2   20
19-Jan  2   20
19-Jan  2   20
19-Jan  2   20
20-Jan  1   10
21-Jan  1   10
22-Jan  1   10
23-Jan  1   10
24-Jan  1   20
25-Jan  2   20
25-Jan  2   20
25-Jan  2   20
25-Jan  2   10

我想:

**Day   ID  Reading Difference**
19-Jan  1   10  Y
19-Jan  1   10  Y
19-Jan  1   10  Y
19-Jan  1   20  Y
19-Jan  2   20  N
19-Jan  2   20  N
19-Jan  2   20  N
19-Jan  2   20  N
20-Jan  1   10  N
21-Jan  1   10  N
22-Jan  1   10  N
23-Jan  1   10  N
24-Jan  1   20  N
25-Jan  2   20  Y
25-Jan  2   20  Y
25-Jan  2   20  Y
25-Jan  2   10  Y

Answer 1

您可以做的是检查 diff 是否range的错误每组等于或大于 10。

dat$Diff <- with(dat, ave(Reading, Day, ID, FUN = function(x) diff(range(x)) >= 10))
dat
#      Day ID Reading Diff
#1  19-Jan  1      10    1
#2  19-Jan  1      10    1
#3  19-Jan  1      10    1
#4  19-Jan  1      20    1
#5  19-Jan  2      20    0
#6  19-Jan  2      20    0
#7  19-Jan  2      20    0
#8  19-Jan  2      20    0
#9  20-Jan  1      10    0
#10 21-Jan  1      10    0
#11 22-Jan  1      10    0
#12 23-Jan  1      10    0
#13 24-Jan  1      20    0
#14 25-Jan  2      20    1
#15 25-Jan  2      20    1
#16 25-Jan  2      20    1
#17 25-Jan  2      10    1

数据

dat <- structure(list(Day = c("19-Jan", "19-Jan", "19-Jan", "19-Jan", 
"19-Jan", "19-Jan", "19-Jan", "19-Jan", "20-Jan", "21-Jan", "22-Jan", 
"23-Jan", "24-Jan", "25-Jan", "25-Jan", "25-Jan", "25-Jan"), 
    ID = c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 
    2L, 2L, 2L, 2L), Reading = c(10L, 10L, 10L, 20L, 20L, 20L, 
    20L, 20L, 10L, 10L, 10L, 10L, 20L, 20L, 20L, 20L, 10L)), .Names = c("Day", 
"ID", "Reading"), class = "data.frame", row.names = c(NA, -17L
))