[R-es] Abreviar nombres ciéntificos

[Jorge I Velez]

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
>
>

	[[alternative HTML version deleted]]