У меня есть таблица данных, содержащая 20000+ строк и один столбец. Строка в каждом столбце имеет разное количество слов. Я хочу разделить слова и поместить каждое из них в новый столбец. Я знаю, как я могу сделать это слово в слово:

Data [ , Word1 := as.character(lapply(strsplit(as.character(Data$complaint), split=" "), "[", 1))]

(Data моя таблица данных иcomplaint это название столбца)

Очевидно, что это неэффективно, потому что каждая ячейка в каждом ряду имеет разное количество слов.

Не могли бы вы рассказать мне о более эффективном способе сделать это?