Ограничение количества слов в столбце символов в R и сохранение лишних слов в другой переменной

Мы переносим данные из старой ERP-системы в новую, новая ограничивает описание товаров до 50 слов, а в старой такого ограничения не было. Как я могу попросить R удалить слова в конце строки, если их больше 50?

Редактировать: предлагаемое решение дает мне столбец описания по 50 слов в каждом, однако, когда слов меньше 50, вместо слов ставится NA, пока не будет 50 слов. Плюс часть, которая была удалена, нигде не сохраняется.

Я использовал word_count в пакете qdap для подсчета количества слов и вставил новую переменную в исходный фрейм данных. Теперь, как я могу использовать этот столбец для удаления всех слов после 50-го слова (если количество слов> 50)? Я думаю об использовании позиции слова, где количество> 50? Я хотел бы поместить дополнительные слова в другой существующий столбец под названием «расширенное описание».

data[,c("wordcount")]<-wc(data$Description,digit.remove = FALSE)

Входные данные: разделитель && только здесь (на самом деле фрейм данных в R)

Description && wordcount && Ext Desc
MARY, EWARD-PURE FOR 12 QT HOP && 6 && 
MARY, HARRY FILTER,  1 TO 3 IN SIZE, LARGE && 10 && xxxxxx
MARY, ORGAN, MAXI WHEEL, TP F-SHAPED && 6 &&
MARY, COMBINATION DEBATABLE, 10 IN ….. && 56

Изображение данных

введите здесь описание изображения


person pyeR_biz    schedule 28.12.2017    source источник