Вот моя попытка, основанная на тидиверсе.Вместо чтения в виде таблицы, просто прочитайте в виде строки, а затем разделите на вектор отдельных слов:
library(tidyverse)
## Read in text file as string
merchant <- read_file("merchant.txt") %>%
## Remove all punctuation
gsub('[[:punct:] ]+',' ',.) %>%
## Split individual words into list vector
strsplit(" ")
## Set column equal to the vector of individual words
para <- merchant[[1]]
Чтобы преобразовать это в кадр данных:
para <- as.data.frame(para)