dplyrjoin.txt

> library(dplyr)
> 
> d1 <- data_frame(gene=c("g1", "g2", "g3"), expr=c(10, 20, 30))
> d1
Source: local data frame [3 x 2]

   gene  expr
  (chr) (dbl)
1    g1    10
2    g2    20
3    g3    30
> 
> d2 <- data_frame(ensgene=c("g1", "g2", "g4"), 
+                  name=c("Gene 1", "Gene 2", "Gene 4"))
> d2
Source: local data frame [3 x 2]

  ensgene   name
    (chr)  (chr)
1      g1 Gene 1
2      g2 Gene 2
3      g4 Gene 4
> 
> # instead of
> # colnames(d2)[1] <- "gene"
> 
> # Do this
> d1 %>% inner_join(d2, by=c("gene"="ensgene"))
Source: local data frame [2 x 3]

   gene  expr   name
  (chr) (dbl)  (chr)
1    g1    10 Gene 1
2    g2    20 Gene 2