Podział na podstawie wartości innej ramki danych w R

Question

Chcę dokonać podziału danych, jeśli każda wartość w wierszu jest większa niż odpowiedni wiersz w innej ramce danych. Muszę też pominąć niektóre najlepsze wiersze. Te poprzednie pytania nie może mi pomóc, ale jest powiązany:

Subsetting a data frame based on contents of another data frame

Subset data using information from a different data frame [r]

> A 
    name1 name2 
cond trt ctrl 
hour  0  3 
A  1  1 
B  10  1 
C  1  1 
D  1  1 
E  10 10 
> B 
    name1 name2 
cond trt ctrl 
hour  0  3 
A  1  1 
B  1 10 
C  1  1 
D  1  1 
E  1  1 

chcę tego. Tylko wiersze, gdzie wszystkie wartości były większe niż A-B:

 name1 name2 
cond trt ctrl 
hour  0  3 
E  10 10 

Próbowałem te 3 linie:

subset(A, TRUE, select=(A[3:7,] > B[3:7,])) 
subset(A, A > B) 
A[A[3:7,] > B[3:7,]] 

Dzięki tak dużo. Oto kod, aby wygenerować dane:

A <- structure(list(name1 = c("trt", "0", "1", "10", "1", "1", "10" 
), name2 = c("ctrl", "3", "1", "1", "1", "1", "10")), .Names = c("name1", 
"name2"), row.names = c("cond", "hour", "A", "B", "C", "D", "E" 
), class = "data.frame") 
B <- structure(list(name1 = c("trt", "0", "1", "1", "1", "1", "1"), 
    name2 = c("ctrl", "3", "1", "10", "1", "1", "1")), .Names = c("name1", 
"name2"), row.names = c("cond", "hour", "A", "B", "C", "D", "E" 
), class = "data.frame") 

############# pytanie następcze poprosił 2/28/13

Error when subsetting based on adjusted values of different data frame in R

Answer 1

N <- nrow(A) 
cond <- sapply(3:N, function(i) sum(A[i,] > B[i,])==2) 
rbind(A[1:2,], subset(A[3:N,], cond)) 

Answer 2

If i zmienić nazwę macierze amat i bmat, następnie

amat[which(sapply(1:nrows(amat),function(x) prod(amat[x,]>bmat[x,]))==1),] 
[1] 10 10 

i można wkleić wiersz „godzin” ponownie w razie potrzeby.

Answer 3

Myślę, że lepiej jest używać SQL do takiego filtrowania między tabelami. Jest czysty i czytelny (zachowujesz logikę reguł).

library(sqldf) 
sqldf('SELECT DISTINCT A.* 
     FROM A,B 
     WHERE A.name1 > B.name1 
     AND A.name2 > B.name2') 
    name1 name2 
1 trt ctrl 
2 10 10 

Answer 4

warunkiem data.table rozwiązanie:

library(data.table) 

# just to preserve the order, non-alphabetically 
idsA <- factor(rownames(A), levels=rownames(A)) 
idsB <- factor(rownames(B), levels=rownames(B)) 

# convert to data.table with id 
ADT <- data.table(id=idsA, A, key="id") 
BDT <- data.table(id=idsB, B, key="id") 

# filter as needed 
ADT[BDT][name1 > name1.1 & name2 > name2.1, list(id, name1, name2)]