[R-es] Abreviar nombres ciéntificos

Hola Juan Carlos,

Quizas lo siguiente pueda serte util:

# test
R> s <- "Merluccius merluccius"
R> strsplit(s, " ")
[[1]]
[1] "Merluccius" "merluccius"
R> strsplit(s, " ")[[1]]
[1] "Merluccius" "merluccius"
R> s <- strsplit(s, " ")[[1]]
R> paste0(substr(s[1], 1, 1), ".", s[2])
[1] "M.merluccius"

# funcion
convertir <- function(s){
s <- strsplit(s, " ")[[1]]
paste0(substr(s[1], 1, 1), ".", s[2])
}
convertir <- Vectorize(convertir)

s <- c("Merluccius merluccius", "Hymenocephalus italicus")
convertir(s)
#  Merluccius merluccius Hymenocephalus italicus
#         "M.merluccius"            "H.italicus"

Saludos,
Jorge.-


2015-01-13 8:34 GMT+11:00 JC Arronte <j_arronte en hotmail.com>:

Hola a tod en s,

Estoy tratando de abreviar nombres ciéntificos pero no me gusta cómo queda
usando make.cepnames de la librería vegan.

Me gustaría poderlos abreviar así,
Hymenocephalus italicus --> H.italicus
Merluccius merluccius --> M.merluccius

He probado con varias opciones y no consigo dar con ello. Estoy casi
seguro de que es algo relativamente sencillo, pero no doy con ello.

¿Alguien podría echarme una mano?.

Un saludo y gracias

Juan Carlos



        [[alternative HTML version deleted]]

_______________________________________________
R-help-es mailing list
R-help-es en r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es