避免在R中循环

Question

输入：

DF1

ColA
A
B
C
A B
B C
A C

DF2

ColA               ColB
A B C D E F         1
A B C               2
A B                 3
A                   4
A B D               5

操作：

1）对于来自df2的df1子集数据中的每个条目

subset(df2,grepl(paste('\\b',df1$colA[i],'\\b',sep=""),df2$ColA,ignore.case = T))

2）子集化后的colB总和

我可以为此操作避免for循环吗？由于数据非常繁重，因此循环执行需要数小时。在这种情况下，我想避免循环。

输出：

A           1+2+3+4+5 = 15
B                       11
C                        3
A B            1+2+3+5= 11
B C                      3
A C                      0