在特定条件下，用表（或矩阵）中的值填充列

Question

我不确定这将被称为什么，所以我正在努力寻找它。 抱歉，如果这是一个重复的问题，那就是为什么。

我有一个数据43x17数据矩阵，我们称其为A，在“站点”列中具有四个级别。 我还有另一个4x3矩阵，其中包含每个站点的坐标，我们称其为B。我想在A中创建一列，为每个站点分配B中列出的坐标。

以下面的数据为例，我想在A中创建一个新列，并使用来自Coordinate1（在B中）的值和关联的“站点”值填充它。

A <- matrix(c(1:4), nrow = 12, ncol = 3, byrow = TRUE,
               dimnames = list(c(1:12),
                               c("Site", "D.2", "D.3")))
A
B<- matrix(c(1:4), nrow = 4, ncol = 3, byrow = TRUE,
           dimnames = list(c(1:4),
                           c("Site", "Coordinate1", "Coordinate2")))
B

我敢肯定这很简单，但是我在称呼它什么方面空白了，显然已经忘记了怎么做！

Answer 1

有几种选择。

如果不转换为data.frame并按照大多数注释中的建议使用merge() ，则可以尝试使用match()和cbind() ：

cbind(A, B[match(A[, "Site"], B[, "Site"]), "Coordinate1", drop = FALSE])

  Site D.2 D.3 Coordinate1 1 1 2 3 2 2 4 1 2 1 3 3 4 1 4 4 2 3 4 3 5 1 2 3 2 6 4 1 2 1 7 3 4 1 4 8 2 3 4 3 9 1 2 3 2 10 4 1 2 1 11 3 4 1 4 12 2 3 4 3 

或者，绑定B所有列

cbind(A, B[match(A[, "Site"], B[, "Site"]), ])

  Site D.2 D.3 Site Coordinate1 Coordinate2 1 1 2 3 1 2 3 2 4 1 2 4 1 2 3 3 4 1 3 4 1 4 2 3 4 2 3 4 5 1 2 3 1 2 3 6 4 1 2 4 1 2 7 3 4 1 3 4 1 8 2 3 4 2 3 4 9 1 2 3 1 2 3 10 4 1 2 4 1 2 11 3 4 1 3 4 1 12 2 3 4 2 3 4 

---

转换为data.frame和merge()

 as.matrix(merge(data.frame(A), data.frame(B), by = "Site", sort = FALSE))

扭曲行的原始顺序：

  Site D.2 D.3 Coordinate1 Coordinate2 [1,] 1 2 3 2 3 [2,] 1 2 3 2 3 [3,] 1 2 3 2 3 [4,] 4 1 2 1 2 [5,] 4 1 2 1 2 [6,] 4 1 2 1 2 [7,] 3 4 1 4 1 [8,] 3 4 1 4 1 [9,] 3 4 1 4 1 [10,] 2 3 4 3 4 [11,] 2 3 4 3 4 [12,] 2 3 4 3 4 

---

使用data.table包中的右连接可维护行的顺序

library(data.table)
as.matrix(data.table(B)[data.table(A), on = "Site"])

  Site Coordinate1 Coordinate2 D.2 D.3 [1,] 1 2 3 2 3 [2,] 4 1 2 1 2 [3,] 3 4 1 4 1 [4,] 2 3 4 3 4 [5,] 1 2 3 2 3 [6,] 4 1 2 1 2 [7,] 3 4 1 4 1 [8,] 2 3 4 3 4 [9,] 1 2 3 2 3 [10,] 4 1 2 1 2 [11,] 3 4 1 4 1 [12,] 2 3 4 3 4