Распаковка заданное слово из вектора с помощью R

Question

У меня есть текст, например

text<- "i am happy today :):)" 

Я хочу, чтобы извлечь :) из текстового вектора и сообщить его частота

Answer 1

Вот одна идея, которая была бы легко обобщить:

text<- c("i was happy yesterday :):)", 
     "i am happy today :)", 
     "will i be happy tomorrow?") 

(nchar(text) - nchar(gsub(":)", "", text)))/2 
# [1] 2 1 0 

Answer 2

Это делает трюк, но не может быть наиболее прямой путь:

mytext<- "i am happy today :):)" 

# The following line inserts semicolons to split on 
myTextSub<-gsub(":)", ";:);", mytext) 

# Then split and unlist 
myTextSplit <- unlist(strsplit(myTextSub, ";")) 

# Then see how many times the smiley turns up 
length(grep(":)", myTextSplit)) 

EDIT

Для обработки векторов текста с длиной> 1, не unlist:

mytext<- rep("i am happy today :):)",2) 
myTextSub<-gsub(":\\)", ";:\\);", mytext) 
myTextSplit <- strsplit(myTextSub, ";") 

sapply(myTextSplit,function(x){ 
    length(grep(":)", x)) 
}) 

Но мне нравятся другие ответы лучше.

Answer 3

Я предполагаю, что вы хотите, только счет, или вы также хотите удалить :) из строки?

Для подсчета вы можете сделать:

length(gregexpr(":)",text)[[1]]) 

который дает 2. Более обобщенное решение для вектора струн:

sapply(gregexpr(":)",text),length) 

Edit:

Джош О'Брайен указал, что это также возвращает 1 из :), так как gregexpr возвращает -1 в этом случае. Чтобы исправить это, вы можете использовать:

sapply(gregexpr(":)",text),function(x)sum(x>0)) 

Которая становится немного менее красивой.