Faire correspondre plusieurs colonnes sur différentes trames de données et obtenir une autre colonne comme résultat

J'ai eu deux gros blocs de données, un (df1) cette structure a

   chr    init
1  12  25289552
2   3 180418785
3   3 180434779

L'autre (df2) a ce

    V1    V2     V3
10  1     69094 medium
11  1     69094 medium
12  12 25289552 high
13  1     69095 medium
14  3 180418785 medium
15  3 180434779 low

Ce que j'essaie de faire est d'ajouter la colonne V3 de df2 à df1pour obtenir les informations de la mutation

   chr    init  Mut
1  12  25289552 high
2   3 180418785 medium
3   3 180434779 low

J'essaie de chargement à la fois dans R et ensuite de faire une boucle à l'aide de match, mais il ne fonctionne pas. Connaissez-vous une façon particulière de le faire? Je suis aussi ouverte à n'utiliser awk ou quelque chose de similaire

source d'informationauteur user976991

  1. 13

    Utilisation merge

    df1 <- read.table(text='  chr    init
1  12  25289552
2   3 180418785
3   3 180434779', header=TRUE)


df2 <- read.table(text='    V1    V2     V3
10  1     69094 medium
11  1     69094 medium
12  12 25289552 high
13  1     69095 medium
14  3 180418785 medium
15  3 180434779 low', header=TRUE)


merge(df1, df2, by.x='init', by.y='V2') # this works!
       init chr V1     V3
1  25289552  12 12   high
2 180418785   3  3 medium
3 180434779   3  3    low

    Pour obtenir votre sortie désirée de la façon dont vous le montrer 

    output <- merge(df1, df2, by.x='init', by.y='V2')[, c(2,1,4)]
colnames(output)[3] <- 'Mut' 
output
  chr      init    Mut
1  12  25289552   high
2   3 180418785 medium
3   3 180434779    low
  2. 2
    df1 <- read.table(textConnection("   chr    init
 1  12  25289552
 2   3 180418785
 3   3 180434779"), header=T)

df2 <- read.table(textConnection("    V1    V2     V3
 10  1     69094 medium
 11  1     69094 medium
 12  12 25289552 high
 13  1     69095 medium
 14  3 180418785 medium
 15  3 180434779 low"), header=T)

# You have to select the values of df2$V3 such as their corresponding V2 
# are equal to the values of df1$init
df1$Mut <- df2$V3[ df2$V2 %in% df1$init]

df1
  chr      init    Mut
1  12  25289552   high
2   3 180418785 medium
3   3 180434779    low
  3. 0

    Ne

    df3 <- merge( df1, df2, by.x = "init", by.y = "V2" )
df3 <- df3[-3]
colnames( df3 )[3] <- "Mut"

    vous donner ce que vous voulez?