Soustraire les valeurs d'une base de données d'une autre

J'ai deux trames de données: (ce sont des versions raccourcies)

Un

    Link    VU  U   P
1   DVH1    7   1   37
2   DVH2    7   0   38
3   DVH3    10  1   35

B

    Link    VU  U   P
1   DVH1    2   0   15
2   DVH2    4   0   14
3   DVH3    0   0   5

Je veux, il suffit de soustraire les valeurs de la trame de données de B à partir de ceux qui sont en fonction de leur emplacement. Ainsi, par exemple:
Pour DVH1, VU serait 7-2 (ou 5), et la trame de données ressemblerait à:

    Link    VU  U   P
1   DVH1    5   1   22
2   DVH2    3   0   24
3   DVH3    10  1   30

source d'informationauteur EricaO

  1. 8

    Utiliser ceci:

    within(merge(A,B,by="Link"), {
    VU <- VU.x - VU.y
    U <- U.x - U.y
    P <- P.x - P.y
})[,c("Link","VU","U","P")]

    EDIT: Bonus: si il y a trop d'jumelé colonnes (pas seulement VU, U et P), vous pouvez utiliser ceci:

    M <- merge(A,B,by="Link")

S <- M[,grepl("*\\.x$",names(M))] - M[,grepl("*\\.y$",names(M))]

cbind(M[,1,drop=FALSE],S)

#  Link VU.x U.x P.x
#1 DVH1    5   1  22
#2 DVH2    3   0  24
#3 DVH3   10   1  30
  2. 5

    Un moyen plus rapide que merge (le plus probable) est de s'assurer que la deuxième data.frame est dans la même rangée et de la colonne afin que la première et soustraire l'un de l'autre:

    z <- names(A)[-1]
cbind(A[1], A[z] - B[match(A$Link, B$Link), z])
#   Link VU U  P
# 1 DVH1  5 1 22
# 2 DVH2  3 0 24
# 3 DVH3 10 1 30

    Voici un exemple de données:

    A <- structure(list(Link = c("DVH1", "DVH2", "DVH3"), VU = c(7L, 7L, 
10L), U = c(1L, 0L, 1L), P = c(37L, 38L, 35L)), .Names = c("Link", 
"VU", "U", "P"), class = "data.frame", row.names = c("1", "2", "3"))

B <- structure(list(Link = c("DVH1", "DVH3", "DVH2"), P = c(15L, 5L, 
14L), U = c(0L, 0L, 0L), VU = c(2L, 0L, 4L)), .Names = c("Link", 
"P", "U", "VU"), class = "data.frame", row.names = c("1", "3", "2"))