现在有两个数据框，第一个数据框中有一个变量代表节目名，例如：

X1
西游记第19集
2015女足世界杯小组赛
北方剧场：XXXX
.....

第二个数据框有两列，第一列为关键字，第二列为标签，例如：
V1                  V2
西游记            电视剧
北方剧场         电视剧
女足                体育
.......

现在想做的是如下：如果X1的某节目名中包含V1中的某关键字，那么就为之分配相应的标签（V2)。 整理后：

X1                                           X2
西游记第19集                           电视剧
2015女足世界杯小组赛              体育
北方剧场：XXXX                       电视剧

貌似是很简单的一个问题，但用for和grepl写成的循环执行效率低下（关键字数据框大概9w行左右），请大神不吝赐教，
有没有什么高效的解决办法或package？谢谢！