R計數字符列

Question

我想在同一行的不同列中添加一個包含字母a-z數量的列。

dataset$count <-length((gregexpr('[a-z]', as.character(dataset$text))[[1]])) 

不起作用。

結果我想acheive：

text | count 
a  | 1 
ao | 2 
ao2 | 2 
as2e | 3 
as2eA | 3 

Answer 1

整蠱之一：

nchar(gsub("[^a-z]","",x)) 

Answer 2

這應該做的伎倆：

numchars<-function(txt){ 
    #basically your code, but to be applied to 1 item 
    tmpres<-gregexpr('[a-z]', as.character(txt))[[1]] 
    ifelse(tmpres[1]==-1, 0, length(tmpres)) 
} 
#now apply it to all items: 
dataset$count <-sapply(dataset$text, numchars) 

另一種選擇更是一個分兩步走的辦法的：

charmatches<-gregexpr('[a-z]', as.character(dataset$text))[[1]] 
dataset$count<-sapply(charmatches, length)