Блог

Главная - Вопросы по программированию - Как извлечь символы из каждого текста в векторе в R

Как извлечь символы из каждого текста в векторе в R

#r #extract

#r #извлечь

Вопрос:

Я настраиваю новый проект в R, и мне нужно извлечь каждый символ из vector (Docs), я написал этот код, но он не сработал

 pattern=c("=d","<3",":o",":(",":)","(y)",":*","^_^",":d",";)",":'(") 

 for (value in docs) {
   variable = sapply(value,function(x){ 
     i = which(patt%in%strsplit(x," ")[[1]])
     if (length(i)>0){
       paste(pattern[i],collapse=" ")
     } else{NA}
   })
   names(variable)=NULL
   variable
 }

Комментарии:

1. Это существенно помогло бы, если бы вы отредактировали свой вопрос, чтобы он был воспроизводимым. Какой пример ввода могут попробовать другие люди? Какой результат вы ожидаете от этого вывода?

Ответ №1:

Вероятно, то, что вы ищете, можно найти с помощью пакета stringr и функции str_extract_all(Docs, 'symbol',simplify = TRUE) . Если вы имеете в виду, что каждого символа strsplit(Docs, '') должно быть достаточно.

Комментарии:

1. Я хотел бы извлечь любые символы в шаблоне из документов, если они найдены.