Compter toutes les lettres (26) de l'une des variables de caractère dans une trame de données

Question

J'ai un dataframe avec quelques colonnes comme ceci:

Attr Description 
60  asdfg asdg dfs 
50  smlefekl dewld ewf 
35  kojewdfhef e 

Tout ce que je besoin est de créer 26 supplémentaires colonnes avec des comptes de chaque lettre d'affilée. Je sais que je peux utiliser:

table(unlist(strsplit(mydata, ""), use.names=FALSE)) 

pour un vecteur, mais comment puis-je le mettre à jour pour une trame de données?

Answer 1

Si nous utilisons le strsplit, nous devrons peut-être créer un factor avec levels spécifié comme « lettres »

d1 <- stack(setNames(strsplit(df1$Description, ""), seq_len(nrow(df1)))) 
d2 <- subset(d1, values != " ") 
d2$values <- factor(d2$values, levels = letters) 
t(table(d2)) 
# values 
# ind a b c d e f g h i j k l m n o p q r s t u v w x y z  
# 1 2 0 0 3 0 2 2 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 
# 2 0 0 0 2 4 2 0 0 0 0 1 3 1 0 0 0 0 0 1 0 0 0 2 0 0 0 
# 3 0 0 0 1 3 2 0 1 0 1 1 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 

---

Ou comme indiqué dans les commentaires, utilisez le str_count de stringr en boucle à travers les 'lettres' obtenir le compte de cette lettre pour chaque ligne de 'Description'

library(stringr) 
t(sapply(letters, function(x) str_count(df1$Description, x)))