Hola,

Por otro lado, fíjate que lo que pides, al tener cada salida un número
indeterminado de meses, esto es no es regular, la única forma de poder
guardarlo (si es esto lo que quieres) es en formato lista.

La salida de val.uno, ya es esa lista. Aunque hay elementos vacíos porque
en cada una de las "cad.ena" has metido un elemento más vacío al final.

Sobre val.uno también puedes acceder a cada uno de esos elementos así:

> for (i in 1:(dim(cad.ena)[1]) )  {
+ print(val.uno[[i]])
+ }
[1] "enero"   "febrero"
[1] "enero"     "febrero"   "diciembre"
[1] "febrero" "enero"

Saludos,
Carlos Ortega
www.qualityexcellence.es


El 4 de marzo de 2013 18:09, Sebastian Kruk <residuo.solow@gmail.com>escribió:

> Estimado Carlos:
>
> Si quiero vectorizar el procedimiento anterior y lo hago de la siguiente
> manera:
>
> >cad.ena1 <- c("Durante los meses de enero y febrero principalmente","")
> >cad.ena2 <- c("Durante los meses de enero y febrero principalmente a
> veces diciembre","")
> >cad.ena3 <- c("febrero / enero","")
> >cad.ena <- rbind(cad.ena1, cad.ena2, cad.ena3)
> >val.uno <- str_extract_all(cad.ena,
> "enero|febrero|marzo|abril|mayo|junio|julio|agosto|septiembre|octubre|noviembre|diciembre")
> >val.cad <- str_c(unlist(val.uno), collapse=" ")
> >val.cad
> [1] "enero febrero enero febrero diciembre febrero enero"
>
> De la forma siguiente no me sirve pues precisaria un vector que quede:
> [1] "enero febrero"
> [2] "enero febrero diciembre"
> [3] "enero febrero"
>
> Saludos,
>
> Sebastián
>
>
>  El 1 de marzo de 2013 10:40, Carlos Ortega <cof@qualityexcellence.es>escribió:
>>
>> Hola Sebastián,
>>>
>>> Esta otra alternativa es mucho más fácil...
>>>
>>> #------------------------------------------------
>>> library(stringr)
>>>
>>> cad.ena <- "Durante los meses de enero y febrero principalmente"
>>> cad.ena2 <- "Durante los meses de enero y febrero principalmente a veces
>>> diciembre"
>>>
>>> val.uno <- str_extract_all(cad.ena,
>>> "enero|febrero|marzo|abril|mayo|junio|julio|agosto|septiembre|octubre|noviembre|diciembre")
>>> val.cad <- str_c(unlist(val.uno), collapse=" ")
>>> val.cad
>>>
>>> val.dos <- str_extract_all(cad.ena2,
>>> "enero|febrero|marzo|abril|mayo|junio|julio|agosto|septiembre|octubre|noviembre|diciembre")
>>> val.cad2 <- str_c(unlist(val.dos), collapse=" ")
>>> val.cad2
>>>
>>> #------------------------------------------------
>>>
>>> que produce estos resultados:
>>>
>>> > library(stringr)
>>> >
>>> > cad.ena <- "Durante los meses de enero y febrero principalmente"
>>> > cad.ena2 <- "Durante los meses de enero y febrero principalmente a
>>> veces diciembre"
>>> >
>>> > val.uno <- str_extract_all(cad.ena,
>>> "enero|febrero|marzo|abril|mayo|junio|julio|agosto|septiembre|octubre|noviembre|diciembre")
>>> > val.cad <- str_c(unlist(val.uno), collapse=" ")
>>> > val.cad
>>> *[1] "enero febrero"*
>>> >
>>> > val.dos <- str_extract_all(cad.ena2,
>>> "enero|febrero|marzo|abril|mayo|junio|julio|agosto|septiembre|octubre|noviembre|diciembre")
>>> > val.cad2 <- str_c(unlist(val.dos), collapse=" ")
>>> > val.cad2
>>> *[1] "enero febrero diciembre"*
>>>
>>>
>>> Saludos,
>>> Carlos Ortega
>>> www.qualityexcellence.es
>>>
>>


-- 
Saludos,
Carlos Ortega
www.qualityexcellence.es

	[[alternative HTML version deleted]]

