R -проверка элементов вектора на соответствие другому вектору

Я хотел бы сопоставить элементы столбца в фрейме данных с другим фреймом данных.

Рассмотрим эти кадры данных:

A=data.frame(par=c('long A story','long C story', 'blabla D'),val=1:3) 
B=data.frame(par=c('Z','D','A'),val=letters[1:3])

Каждый элемент столбца B 'par' должен сопоставляться с par столбца A. Если есть совпадение, оно должно быть помечено буквой А. [Это дает столбец общих значений для слияния A и B].

Таким образом, желаемый результат:

A=transform(A,label=c('A','NA','D'))

Как это может быть сделано?

Хенк