Блог

У меня есть текстовый файл, содержащий текстовые данные (я имею в виду, не таблицы или числа, а реальные английские предложения). Через каждые пару предложений есть тройная звездочка (***), чтобы отделить предыдущее предложение от следующего. Мне нужна каждая группа как элемент списка. Я пробовал readLines , readchar и strsplit , но не могу заставить это работать. Вот пример:

 Hello Everyone.
My name is James.

***

Hello James!
My name is Amy.
Nice to meet you.

***

Hi Amy!
My name is Sue.
  

Итак, мне нужен список из трех элементов, каждый из которых является вектором, содержащим группу. Обратите внимание, что в предложениях группы есть символы новой строки.

Предположим, data.txt что он содержит ваши текстовые записи. Это то, что вы хотите (в базовом R):

 data <- readLines("data.txt");

#Optionally remove empty lines
data <- data[data != ""];

# Split based on triple asterisk entries
lst <- split(data, cumsum(data == "***"));

# Remove triple asterisk entries
lst <- lapply(lst, function(x) x[x != "***"])
print(lst);

$`0`
[1] "Hello Everyone."   "My name is James."

$`1`
[1] "Hello James!"    "My name is Amy."

$`2`
[1] "Hi Amy!"         "My name is Sue."
  

Попробуйте это. Если ваш текст находится в файле, то замените textConnection(Lines) на что-то вроде "myfile.txt" .

 Lines <- "Hello Everyone.
My name is James.

***

Hello James!
My name is Amy.
Nice to meet you.

***

Hi Amy!
My name is Sue."

# L <- paste(readLines("myfile.txt"), collapse = "n")
L <- paste(readLines(textConnection(Lines)), collapse = "n")
v <- strsplit(L, "nn***nn", fixed = TRUE)[[1]]
  

предоставление следующего символьного вектора длиной 3:

 > v
[1] "Hello Everyone.nMy name is James."              
[2] "Hello James!nMy name is Amy.nNice to meet you."
[3] "Hi Amy!nMy name is Sue."
  

Если вместо символьного вектора вам нужен список символьных векторов из отдельных строк, то примените strsplit еще раз:

 strsplit(v, "n")
  

или, если вы просто хотите принудительно v перейти к списку:

 as.list(v)