Ersetze verschiedene data.frame Teilstrings durch eine Variable in R

Question

Ich habe ein Problem mit einem Ersatz in r, ich habe eine Variable mit vielen Werten, die ich im Teilstring "fin" ersetzen möchte, ich möchte die Werte mit ersetzen hier ist weniger als 26 frecuency, mein Code:

n.tab <- table(as.character(joined1$codigo)) 
    n.many <- names(n.tab[ n.tab < 26]) 
    length(n.many)#2311 NOTE: fin is made with paste of values, codigo is one of them 
    joinedAux<-joined #saving a copy 
    for (j in 1:length(n.many)) {#walk through elements of n.many 

     joinedAux$fin<-gsub(as.character(n.many[j]), "other", as.character(joined$fin))#substitute (not working) 

    } 

Und es kommt mit dieser Warnung: „die Anzahl der Elemente ist nicht ein Vielfaches der Länge des Ersatz zu ersetzen“

es macht nichts, wenn Ich schaue "joinedAux $ fin" es ist genau das selbe wie "joined $ fin". Hier ein Beispiel:

Joined$codigo Joined$fin 
12    12 valid high 
22    22 wrong un 
23    23 wrong in 
13    13 valid high 
15    15 valid very high 

Was ich brauche es nach der ersetzen zu sein:

Joined$codigo Joined$fin 
    12    other valid high #codigo in n.many 
    22    22 wrong un 
    23    other wrong in #codigo in n.many 
    13    other valid high #codigo in n.many 
    15    15 valid very high 

Vielen Dank im Voraus!

Answer 1

Wenn ich Ihr Problem richtig verstehe, müssen Sie Ihre data.frame Schleife durchlaufen, anstatt die Teilmenge der Zeichenfolgen.

joinedAux$fin <- sapply(1:nrow(joinedAux), function(j) if(joined1$codigo[j] %in% n.many) gsub(joined1$codigo[j],'other',joined1$codigo[j]) else joined1$codigo[j]) 

Wenn Sie nicht zufrieden mit sapply sind, wird ein for-Schleife arbeiten, auch:

fin <- NULL 
for(j in 1:nrow(joinedAux)) fin[j] <- if(joined1$codigo[j] %in% n.many) gsub(joined1$codigo[j],'other',joined1$codigo[j]) else joined1$codigo[j]) 

Wenn Sie glücklich sind gsub zu vermeiden (was nicht mit Vektoren funktioniert), der einfachste Weg, wäre wahrscheinlich: