R número de caracteres columna

Question

Quiero agregar una columna que contenga la cantidad de letras a-z en una columna diferente de la misma fila.

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

no funciona.

El resultado me gustaría acheive:

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

Answer 1

Tricky:

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

Answer 2

Esto debería hacer el truco:

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) 

Otra opción es más de un enfoque de dos pasos:

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