R中使用％进行子集数据的条件使用％

Question

我正在做一些使用subset()的子集，但在我的逻辑语句中使用%in%命令时遇到了一些问题。

考虑像

x11 x21 x12 x22 
1 19 2000 32 2004 
2 19 2000 20 2001 

一个简单的数据结构我想的一个子集，其中这是事实，x12要么等于x22-x21+x11或等于x22-x21+x11+1。*对于上面的例子，我想在第二行中，由于当且仅当x12是20或21时，该逻辑陈述应评估为TRUE。对于这个简单的设置，对我下面的作品：

> test1 <- data.frame(x11=c(19, 19), x21=c(2000, 2000), x12=c(32, 20), x22=c(2004, 2001)) 
> subset(test1, (x12 %in% c(x22-x21+x11, x22-x21+x11+1))) 
    x11 x21 x12 x22 
2 19 2000 20 2001 

，当我介绍其他行，就会出现问题。添加一行：

x11 x21 x12 x22 
1 19 2000 32 2004 
2 19 2000 20 2001 
3 30 1998 32 2000 

现在，我想子集这个，以便我得到第二和第三行。但是使用与上面相同的子集策略：

> test2 <- data.frame(x11=c(19, 19, 30), x21=c(2000, 2000, 1998), x12=c(32, 20, 32), x22=c(2004, 2001, 2000)) 
> subset(test2, (x12 %in% c(x22-x21+x11, x22-x21+x11+1))) 
    x11 x21 x12 x22 
1 19 2000 32 2004 
2 19 2000 20 2001 
3 30 1998 32 2000 

所以现在我得到了第一个例子中没有得到的行。我的猜测是它与允许x12的矢量相关，即c(x22-x21+x11, x22-x21+x11+1)，但我不确定如何构建这个，以便暗示它是“按行”而不是所有行的一个矢量。

想法非常感谢！

---

* X11是个体在时间点X21年龄，和X 12是一个（可能不同的）个体的在时间点X22的年龄。我想要包含x21的年龄（x11）与x22的年龄（x12）在逻辑和物理上兼容的行的子集;在2000年，19岁的个人在2001年是19,20或21岁，这取决于生日（但是由于其他原因，我放弃了这个年龄相同的年龄的可能性）。因此，我们在2000年有19岁，在2004年有32岁的第一行对同一个人来说是不可能的。

Answer 1

首先，要小心浮点精度限制。如果你的值都是整数，这没有关系，但在一般情况下，x==y可能会失败，除非你使用像all.equal这样的工具。现在
，而不是subset或%in%碴，只写一个条件：

foo <- test1[(test1[,3]==(test1[,1]-test1[,2]+test1[,4])) | 
       (test1[,3]==(test1[,1]-test1[,2]+test1[,4]+1)), ] 

您可能需要在一行一行地规则运行apply。

Answer 2

试试这个：

#data 
test2 <- data.frame(x11=c(19, 19, 30), 
        x21=c(2000, 2000, 1998), 
        x12=c(32, 20, 32), 
        x22=c(2004, 2001, 2000)) 
#range pre-computed 
test2$in1 <- test2$x22-test2$x21+test2$x11 
test2$in2 <- test2$x22-test2$x21+test2$x11+1 

#subset 
test2[ test2$x12 >= test2$in1 & 
     test2$x12 <= test2$in2,] 
# x11 x21 x12 x22 in1 in2 
# 2 19 2000 20 2001 20 21 
# 3 30 1998 32 2000 32 33