Hola, Vaya desastre al mandar la cabecera de la base de datos. Al enviarlo, se veía bien, pero está visto que por el camino la cosa se torció. Siguiendo el consejo de Javier, he subido un pequeño fragmento al DropBox. He quitado algunas especies para no hacerlo muy largo. Espero que ésta vez no haya problemas. https://www.dropbox.com/s/q7zla50oq7owg8k/CPUE.csv?dl=0 Un saludo y gracias Juan Carlos [[alternative HTML version deleted]]
Pues eso, lo dicho:
> library(stringr)
> datos<- read.table("CPUE.csv", header=T, row.names=1,
sep=";")
> cosa <- names(datos)
> cosa2 <- str_split(cosa,"[.]")
> cosa3 <- lapply(cosa2, function(x) str_sub(x, 0,c(1,100)))
> sapply(cosa3, function(x) paste(x, collapse="."))
[1] "C.labiatus" "G.maraldi"
"G.argenteus"
"G.macrophthalmus"
[5] "G.mediterraneus" "G.vulgaris"
"H.johnsonii"
"H.italicus"
[9] "L.lepidion" "M.laevis"
"M.zugmayeri"
"M.merluccius"
[13] "M.poutassou" "M.macrophthalma"
"M.molva" "M.moro"
[17] "N.aequalis" "P.blennoides"
"P.pollachius"
"R.raninus"
[21] "T.scabrus" "T.luscus"
"T.minutus"
El 14/01/2015 a las 19:27, JC Arronte escribió:> Hola,
>
> Vaya desastre al mandar la cabecera de la base de datos. Al enviarlo, se
ve?a bien, pero est? visto que por el camino la cosa se torci?.
>
> Siguiendo el consejo de Javier, he subido un peque?o fragmento al DropBox.
He quitado algunas especies para no hacerlo muy largo. Espero que ?sta vez no
haya problemas.
>
> https://www.dropbox.com/s/q7zla50oq7owg8k/CPUE.csv?dl=0
>
> 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
>
Estoy de acuerdo con lo que aporta Marcelino, la diferencia es que yo
comencé a tomar los datos de otra forma que comparto, pero lleva a lo
mismo por lo que no vale la pena escribir algo parecido.
# leer los datos en un data frame
CPUE <- read.table("~/R/nombreEspecies/CPUE.csv",
sep=";", quote="\"")
CPUE
# tomar el primer renglón (fila), todas las columnas
listaNombres <- CPUE[1,]
listaNombres
... luego el código de Marcelino de la Cruz
Javier Marcuzzi
El 14/01/2015 a las 04:32 p.m., Marcelino de la Cruz
escibió:> Pues eso, lo dicho:
>
>
> > library(stringr)
> > datos<- read.table("CPUE.csv", header=T, row.names=1,
sep=";")
> > cosa <- names(datos)
> > cosa2 <- str_split(cosa,"[.]")
> > cosa3 <- lapply(cosa2, function(x) str_sub(x, 0,c(1,100)))
> > sapply(cosa3, function(x) paste(x, collapse="."))
> [1] "C.labiatus" "G.maraldi"
"G.argenteus"
> "G.macrophthalmus"
> [5] "G.mediterraneus" "G.vulgaris"
"H.johnsonii" "H.italicus"
> [9] "L.lepidion" "M.laevis"
"M.zugmayeri" "M.merluccius"
> [13] "M.poutassou" "M.macrophthalma"
"M.molva" "M.moro"
> [17] "N.aequalis" "P.blennoides"
"P.pollachius" "R.raninus"
> [21] "T.scabrus" "T.luscus"
"T.minutus"
>
>
>
>
>
>
>
>
>
> El 14/01/2015 a las 19:27, JC Arronte escribió:
>> Hola,
>>
>> Vaya desastre al mandar la cabecera de la base de datos. Al enviarlo,
>> se ve?a bien, pero est? visto que por el camino la cosa se torci?.
>>
>> Siguiendo el consejo de Javier, he subido un peque?o fragmento al
>> DropBox. He quitado algunas especies para no hacerlo muy largo.
>> Espero que ?sta vez no haya problemas.
>>
>> https://www.dropbox.com/s/q7zla50oq7owg8k/CPUE.csv?dl=0
>>
>> 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
>>
>
> _______________________________________________
> R-help-es mailing list
> R-help-es en r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
Hola Juan Carlos,
Una pequeña modificacion al codigo que envie anteriormente -- ahora la
separacion de las palabras es "." y no " " como inicialmente
habias
mencionado.
# funcion
convertir <- function(s){
s <- strsplit(s, "[.]")[[1]]
paste0(substr(s[1], 1, 1), ".", s[2])
}
convertir <- Vectorize(convertir)
# leer los datos
x <- read.csv("~/Downloads/CPUE.csv", header = TRUE, sep =
";")
# convertir especies
s <- colnames(x)[-1]
convertir(s)
Saludos,
Jorge.-
2015-01-15 5:27 GMT+11:00 JC Arronte <j_arronte en hotmail.com>:
> Hola,
>
> Vaya desastre al mandar la cabecera de la base de datos. Al enviarlo, se
> veía bien, pero está visto que por el camino la cosa se torció.
>
> Siguiendo el consejo de Javier, he subido un pequeño fragmento al DropBox.
> He quitado algunas especies para no hacerlo muy largo. Espero que ésta vez
> no haya problemas.
>
> https://www.dropbox.com/s/q7zla50oq7owg8k/CPUE.csv?dl=0
>
> 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]]