Hola,
AirPassengers es un objeto de tipo "ts" (time-series).
Puedes crear un objeto parecido a partir de tus datos con la función
"ts()", indicando los datos, el origen de la serie y la frecuencia (en
tu
caso 52 por ser semanas).
El siguiente código consigue esto. He incluido una secuencia de colores
para pintar los resultados.
#-----------------------------------
library(RColorBrwer)
#Leo fichero
datIn <- read.table("x.csv", header=T, as.is=T, sep=",")
#Contruyo la serie temporal
datEnd <- ts(datIn$cantidad, frequency=52, start=2005)
#Defino conjunto de colores
micolores <- brewer.pal(length(unique(datIn$anio)),"Paired")
#Graficos de las series
seasonplot(datEnd,col=micolores,year.labels=TRUE)
plot(datEnd)
#-----------------------------------
Saludos,
Carlos Ortega
www.qualityexcellence.es
El 19 de octubre de 2014, 14:29, jbetancourt <jbetancourt en
iscmc.cmw.sld.cu>
escribió:
>
>
> Esatimados:
>
>
>
> En esta librería está este análisis
>
> library(forecast)
>
> seasonplot (AirPassengers,col=rainbow(12),year.labels=TRUE)
>
>
>
> queremos transformar los datos de x.csv a la misma estructura de
> AirPassengers, para hacer el mismo análisis. Adjunto x.csv
>
>
>
> Saludos
>
> _______________________________________________
> R-help-es mailing list
> R-help-es en r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>
--
Saludos,
Carlos Ortega
www.qualityexcellence.es
[[alternative HTML version deleted]]