tEyedata <- data.frame(
C1 = c(0,0,0,0,0,0,0,0,0,0,0,0),
C2 = c(1,1,2,2,1,2,1,2,1,2,1,2),
C3 = c(5,7,6,8,7,8,9,10,3,7,4,1)
)
pN <- data.frame(
C1 = c(0,0),
C2 = c(1,2),
C3 = c(6,7)
)
## 走访 pN 每列，但实际怎么领悟就靠你自己了, 希望我没写得让你迷路了
inx <- list() # 符合第一个条件
nwR <- list() # 符合第二个条件
ned <- list()
for(i in 1:nrow(pN)){
inx[[i]] <- tEyedata[, "C1"] %in% pN[i, "C1"] &
tEyedata[, "C2"] %in% pN[i, "C2"]
nwR[[i]] <- ! tEyedata[inx[[i]], "C3"] >= pN[i, "C3"]
ned[[i]] <- tEyedata[inx[[i]], ][nwR[[i]], ]
}
ned # 为所求; 要再转成别的样子随意
※ 引述《elone (Next Step)》之铭言：
: 不好意思 小弟是一个新入门的菜逼巴 平常只会写 C
: 小弟有一个要做多重 filter 的问题...
: 前言
: 事情是这样的 我们想针对不同的使用者与其不同的判断条件去删资料
: ex
: source file (因为变量很长所以用ABC 来代替)
: tEyedata
: C1 C2 C3
: A 0 1 5
: A 0 1 7
: A 0 2 6
: A 0 2 8
: B 0 1 7
: B 0 2 8
: C 0 1 9
: C 0 2 10
: Filter file
: pN
: C1 C2 C3
: A 0 1 6
: A 0 2 7
: B ...
: C ..
: ...
: 我们要逐一比对 tEyedata C1 C2 和 pN C1 C2 是否有一样
: 如果一样的话 再去看 tEyedata$C3 是否有 >= pN$C3
: 如果有的话 就会把这笔record 拿掉
: 如果没有的话 就会留下这笔 record
: 就结果来说应该 tEyedata 会变成
: C1 C2 C3
: A 0 1 5
: A 0 2 6
: B ..
: 但是我们的code 都会拿光光 QAQ ... 卡了2天了啊啊啊
: #read prune file
: tEyedata <- read.table("Eye.txt",header=T)
: pN <- read.table("Eye/Eye_Prune.txt",header=T)
: for(i in 1:nrows(tEyedata))
: {
: for(j in 1:nrows(pN))
: {
: if(tEyedata$subject[[i]] == pN$subejct[[j]] & C1 = C1 & D1 = D1 )
: {
: tEyedata <- subset(tEyedata, tEyedata$C3 <= pN$C3[[j]] )
: }
: }
: }
: 但是他都会把不该拿掉的东西拿掉 我好苦恼啊
: 希望有大大可以来救我
: 谢谢