Passare attraverso le colonne e aggiungere lunghezze di stringa come nuove colonne

Question

Ho un frame di dati con un numero di colonne e desidero generare una colonna separata per ciascuna con la lunghezza di ogni riga in essa contenuta.

Sto tentando di ripetere i nomi delle colonne e per ogni colonna viene visualizzata una colonna corrispondente con '_length' allegata.

Ad esempio col1 | col2 andrebbe a col1 | col2 | col1_length | col2_length

Il codice che sto usando è:

df <- data.frame(col1 = c("abc","abcd","a","abcdefg"),col2 = c("adf qqwe","d","e","f")) 

for(i in names(df)){ 
    df$paste(i,'length',sep="_") <- str_length(df$i) 
} 

Tuttavia questa tiri ed errori: la funzione non valida in assegnazione complesso. Sono in grado di utilizzare i loop in questo modo in R?

Answer 1

È necessario utilizzare [[, l'equivalente programmatico di $. Altrimenti, ad esempio, quando i è col1, R cercherà df$i anziché df$col1.

for(i in names(df)){ 
    df[[paste(i, 'length', sep="_")]] <- str_length(df[[i]]) 
} 

Answer 2

È possibile utilizzare lapply per superare ogni colonna per str_length, poi cbind al tuo originale data.frame ...

library(stringr) 

out <- lapply(df , str_length)  
df <- cbind(df , out) 

#  col1  col2 col1 col2 
#1  abc adf qqwe 3 8 
#2 abcd  d 4 1 
#3  a  e 1 1 
#4 abcdefg  f 7 1 

Answer 3

Con dplyr e stringr è possibile utilizzare mutate_all:

> df %>% mutate_all(funs(length = str_length(.))) 

    col1  col2 col1_length col2_length 
1  abc adf qqwe   3   8 
2 abcd  d   4   1 
3  a  e   1   1 
4 abcdefg  f   7   1 

Answer 4

Per completezza, esiste anche una soluzione data.table:

library(data.table) 
result <- setDT(df)[, paste0(names(df), "_length") := lapply(.SD, stringr::str_length)] 
result 
#  col1  col2 col1_length col2_length 
#1:  abc adf qqwe   3   8 
#2: abcd  d   4   1 
#3:  a  e   1   1 
#4: abcdefg  f   7   1