R语言两个数据集条件匹配的问题

假设现在有数据集A：

description

今天天气真晴朗

今天好像下雨了

明天听说要下雪

天晴啦可以出去玩了

其中有一列叫description 是如图所示的



然后想要将数据集B的信息待匹到A上， B 数据集如下：

A	B
晴	SUN
雨	RAIN
雪	SNOW

希望实现的是 description列如果包含B表的A列，则匹配上B表的B列；

如grepl（“晴”|"今天天气真晴朗")==T, 则 匹配上SUN；
上图给的列子匹配好应该可以得到：

description	B
今天天气真晴朗	SUN
今天好像下雨了	RAIN
明天听说要下雪	SNOW
天晴啦可以出去玩了	SUN

请教各位大神，如何实现这样的匹配？？

一般来说B应该是比较小的数据， 下面的code考虑了多个match的情况

1. A <- data.frame(desc = c("今天天气真晴朗",
   
2.                         "今天好像下雨了",
   
3.                 "明天听说要下雪",
   
4.                 "天晴啦可以出去玩了",
   
5.                 "天雪晴"), stringsAsFactors = F)
   
6. 
   
7. B <- data.frame(A = c("晴","雨", "雪"),
   
8.                 B = c("SUN", "RAIN", "SNOW"),
   
9.                 stringsAsFactors = F)
   
10. 
    
11. matched <- sapply(B$A, function(x) grepl(x, A$desc))
    
12. 
    
13. matched <- apply(matched, 1, which)
    
14. 
    
15. A$B <- sapply(matched, function(i) paste0(B$B[i], collapse = "|"))

复制代码

如果可以，有没有不用多重循环解决的方法，因为数据量有点大，怕很慢~~~