在 R 中应用 forloop 函数

Question

我正在为两个矩阵运行双 forloop。但一个矩阵大约有 90,000 行。 在 R 中它太慢。所以，如果可能的话，我想为此采用 apply 函数。

1. 一个矩阵有 90,000 X 1 列，每行包含字符串信息。例如 1 行值（ID）AAAA12
2. 另一个矩阵也有大约 90,000 但略多于 90,000 X 2 列，因此对于一行（ID），第一列有 AAAA23 以及相应的月份信息，例如 AAAA23 Jan 第二行，AAAA12 Feb ...等

所以，我想将一列匹配的月份信息从第二个矩阵合并到第一个矩阵。

输出矩阵的第一行将是 AAAA12 Feb，而不是使用 for 循环，如何快速生成这样的矩阵？

任何输入都会有帮助。

Answer 1

下面的代码可能会解决这个问题：

m1 <- matrix(c('AAAA12', 'AAAA23', 'AAAA14'))
m2 <- cbind(c('AAAA23', 'AAAA12', 'AAAA14'), c('Jan', 'Feb', 'Mar'))

cbind(m1, m2[match(m1[,1], m2[,1]),2])

这给了你

     [,1]     [,2] 
[1,] "AAAA12" "Feb"
[2,] "AAAA23" "Jan"
[3,] "AAAA14" "Mar"

......然后在大约 90000 行上计时显示它需要大约 0.04 秒：

x <- outer(outer(outer(LETTERS, LETTERS, paste, sep=''), 
                 LETTERS, paste, sep=''), 1:5, paste, sep='')
set.seed(42)
m1 <- matrix(sample(x, 85000))
m2 <- cbind(x, seq_along(x))

system.time( cbind(m1, m2[match(m1[,1], m2[,1]),2]) ) # 0.04 seconds

Answer 2

apply 不会比 for 循环快。您想要合并或匹配。