按行名称和列合并

Question

这应该很简单，我可能只是有些愚蠢...... 我需要通过df1的行名称和df2中的一列将两个数据框合并，即：

df1<-data.frame(x=1:3,y=4:6) 
rownames(df1)<-c("a","b","c")
df1
  x y
a 1 4
b 2 5
c 3 6

df2<-data.frame(site=c("a","b"),p=5:6,q=10:11)
df2
  site p  q
     a 5 10
     b 6 11

合并应该产生以下结果：

df3<-data.frame(site=c("a","b"),p=5:6,q=10:11,x=1:2,y=4:5)
df3
  site p  q x y
     a 5 10 1 4
     b 6 11 2 5

我已经尝试过。

merge(df1,df2,by.x=row.names(df1),by.y=df2$site) 

但是出现了错误：

Error in fix.by(by.x, x) : 'by' must specify uniquely valid column(s)

我做错了什么？

- Elizabeth

---

在合并之前，为什么不直接执行 df1$site <- row.names(df1) 呢？错误信息已经非常明确了。 - Roland

Answer 1

这是一种选择：

merge(df1, df2, by.x = "row.names", by.y = "site")
  Row.names x y p  q
1         a 1 4 5 10
2         b 2 5 6 11

- A5C1D2H2I1M1N2O1R2T1

---

@Elizabeth，FYI，我刚刚意识到交换 df1 和 df2 (merge(df2, df1, by.x = "site", by.y = "row.names")) 将导致一个 data.frame，其中第一列命名为 "site"。我猜当指定了 by.x 和 by.y 时，会选择第一个的名称。 - A5C1D2H2I1M1N2O1R2T1

Answer 2

“by”参数必须是列名。像这样的东西就可以工作。

merge(cbind(df1, row=row.names(df1)), df2, by.x="row", by.y="site")

- seancarmody