En realidad lo que buscas es substituir un valor por otro y no necesitarías usar gsub
por lo que puedes armar un data.frame
de valores de reemplazo de manera que sea un poco más sencillo. Voy a usar los datos de tu anterior pregunta a modo de ejemplo:
Specieslevel <- read.table(text="Site Date Habitat Season Year Taxa
Q1F 08_09_2015 Oak Autumn 2015-2016 Artemisia_herba_alta
Q2F 08_09_2015 Oak Autumn 2015-2016 Artemisia_herba_alta
Q4F 08_09_2015 Oak Autumn 2015-2016 Allium
Q1P 08_09_2015 Oak Autumn 2015-2016 Artemisia_herba_alta
Q2P 08_09_2015 Oak Autumn 2015-2016 Amaranthus
Q4P 08_09_2015 Oak Autumn 2015-2016 Anacyclus
Q4P 08_09_2015 Oak Autumn 2015-2016 Asparagus
Q4P 08_09_2015 Oak Autumn 2015-2016 Amaranthus_retroflex", sep=" ", header=TRUE, stringsAsFactors=FALSE)
species = data.frame(value = c('Artemisia_herba_alta', 'Amaranthus_retroflex'),
replaceby = c('Artemisia', 'Amaranthus'),
stringsAsFactors=FALSE)
matches <- match(Specieslevel$Taxa, species$value, nomatch=0)
Specieslevel$Taxa[matches>0] <- species$replaceby[matches]
Specieslevel
El resultado final:
Site Date Habitat Season Year Taxa
1 Q1F 08_09_2015 Oak Autumn 2015-2016 Artemisia
2 Q2F 08_09_2015 Oak Autumn 2015-2016 Artemisia
3 Q4F 08_09_2015 Oak Autumn 2015-2016 Allium
4 Q1P 08_09_2015 Oak Autumn 2015-2016 Artemisia
5 Q2P 08_09_2015 Oak Autumn 2015-2016 Amaranthus
6 Q4P 08_09_2015 Oak Autumn 2015-2016 Anacyclus
7 Q4P 08_09_2015 Oak Autumn 2015-2016 Asparagus
8 Q4P 08_09_2015 Oak Autumn 2015-2016 Amaranthus
Explicación:
- Creamos un
data.frame
species
que va a contener los valores de búsqueda y reemplazo. Debiera funcionar también si las variables son factores. Lo defino como data.frame
para que el código sea más legible, pero eventualmente podría ser una matriz para escribir un poco menos.
- Con
match(Specieslevel$Taxa, species$value, nomatch=0)
obtenemos un vector del tamaño de Specieslevel
dónde tendremos la fila del dato de reemplazo o 0
en caso de no coincidencia
- Aplicamos estos
matches
reemplazando solo aquellos que correspondan: Specieslevel$Taxa[matches>0] <- species$replaceby[matches]
¿Que ocurre si lo que queremos modificar del dataframe
es un Factor
?, bueno, el código anterior no sirve ya que en el mismo operamos sobre la columna completa, y ahora solo deberías trabajar sobre los levels
. La solución es incluso más sencilla y rápida:
sp <- levels(Specieslevel$Taxa)
matches <- match(sp, species$value, nomatch=0)
sp[matches>0] <- species$replaceby[matches]
levels(Specieslevel$Taxa) <- sp
En este caso creamos primero un vector de los levels
de la columna (sp <- levels(Specieslevel$Taxa)
) y el match
y replace
lo hacemos sobre este. Luego lo que nos falta es redefinir los levels
de la columna haciendo levels(Specieslevel$Taxa) <- sp