如何从R中的向量中的每个文本中提取符号

Question

我在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
 }

Answer 1

您正在寻找的可能是使用包stringr和函数str_extract_all(Docs, 'symbol',simplify = TRUE)找到的。如果你的意思是每个角色strsplit(Docs, '')应该足够了。