r - R で for ループを回避する方法

Question

これは R ユーザーの間で非常によくある質問だと思いますが、まだ明確ではありません。列 fnl3$aaa のすべての要素を解析し、それぞれに対して列 df$aaa でルックアップを実行したいと考えています。一致した場合は、一時ベクトルの末尾に数値を追加します。私の問題は、このプロセスが完了するまでに時間がかかりすぎることです。それで、どうすればもっと速く走らせることができるのだろうと思っていました。何か案は？

cur <- c("")
for (i in 1:unq21) {
   prev <- cur
   for (j in 1:unq11) {
      if (cnt1$aaa[j] == fnl3$aaa[i]) {
         print('MATCH!!!')
         print(cnt1$freq[j])
         print(fnl3$V1[i])
         cur <- append(prev, as.vector(fnl3$V1[i] / cnt1$freq[j]), after = 0)
      }
   }
}

サンプル データセット:

fnl3
    row.names   aaa                                    V1
1   404     1DC8F216-9138-4151-ABD6-36C3C2C75001        3
2   1533    638DF397-359E-43A5-A2F7-2C43CABA93DA        3
3   14      015ee60dbf299f5419eed89214b7409a            2
4   98      08CFF963-5565-4B8C-814E-FDFA5D37DCD6        2
5   488     226afbbac8dfd6f3c27cb16f9d7922a2            2

cnt1
    aaa                                         freq
1   000089f457881d57d4f221948c2b808c            1
2   00081dd2fd542a2a9c64a8990a1fc986601ab318    1
3   0021a8971f976743c2043b60e38eab46            1
4   0034d5d368611e33d7cfcda85df96eba            1
5   00379FA3-07A6-4AF7-ACBC-721E2E33DD67        1