Hola, muchas gracias, Carlos, por el codigo. Faltaba una 'e' en
ColorBrewer y he puesto alguna cosa mas para ejecutarlo todo seguido, lo
comparto con todos:
# CÓDIGO DE CARLOS ORTEGA CON ALGÚN AÑADIDO PARA EJECUTAR DE UN TIRÓN
#-----------------------------------
library(RColorBrewer)
library(forecast)
library(RCurl)
urlfile <-
'https://stat.ethz.ch/pipermail/r-help-es/attachments/20141019/c7698e86/attachment-0001.obj'
datIn <- read.csv(urlfile, header=T, as.is=T, sep=",")
# hay una ñ (año) en el nombre del campo mejor llamarlo anio
names(datIn)[3] <- "anio"
summary(datIn)
#Construyo 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)
#-----------------------------------
--
*Pedro Concejero
BI & Big Data - Internal Exploitation - Telefónica I+D
<http://www.tid.es>
E-mail: pedro.concejerocerezo en telefonica.com
skype: pedro.concejero
twitter @ConcejeroPedro <https://twitter.com/ConcejeroPedro>
linkedin pedroconcejero <http://www.linkedin.com/in/pedroconcejero/es>
Entusiasta R, me encontraréis aquí gRupo R madRid
<http://madrid.r-es.org/> *
________________________________
Este mensaje y sus adjuntos se dirigen exclusivamente a su destinatario, puede
contener información privilegiada o confidencial y es para uso exclusivo de la
persona o entidad de destino. Si no es usted. el destinatario indicado, queda
notificado de que la lectura, utilización, divulgación y/o copia sin
autorización puede estar prohibida en virtud de la legislación vigente. Si ha
recibido este mensaje por error, le rogamos que nos lo comunique inmediatamente
por esta misma vía y proceda a su destrucción.
The information contained in this transmission is privileged and confidential
information intended only for the use of the individual or entity named above.
If the reader of this message is not the intended recipient, you are hereby
notified that any dissemination, distribution or copying of this communication
is strictly prohibited. If you have received this transmission in error, do not
read it. Please immediately reply to the sender that you have received this
communication in error and then delete it.
Esta mensagem e seus anexos se dirigem exclusivamente ao seu destinatário, pode
conter informação privilegiada ou confidencial e é para uso exclusivo da pessoa
ou entidade de destino. Se não é vossa senhoria o destinatário indicado, fica
notificado de que a leitura, utilização, divulgação e/ou cópia sem autorização
pode estar proibida em virtude da legislação vigente. Se recebeu esta mensagem
por erro, rogamos-lhe que nos o comunique imediatamente por esta mesma via e
proceda a sua destruição