Hola,

He probado de dos formas y para ello he ampliado el data.frame con nuevos
casos para que puedas ver las diferencias de acabado.

###### El código es este: ####
#dir.dat es la variable que incluye el directorio donde tienes los datos
#file.dat es la variable que incluye el nombre del fichero de datos
"puerto.dat".

pue.dat<-read.table(paste(dir.dat,file.dat,sep=""),header=T)
pue.dat$añomes<-paste(pue.dat$año,"_",pue.dat$mes,sep="")

library(lattice)

xyplot(
          pesomues ~ peso.desem | puerto * factor(añomes),
          data=pue.dat
        )

dotplot(
          pesomues ~ peso.desem | factor(añomes), groups=puerto,
          data=pue.dat,
          key = simpleKey(levels(pue.dat$puerto), space = "right")
        )

############# Y estos son los datos modificados ############
id año mes puerto origen arte pesomues peso.desem
1  2007   1 Santander Divisiones  BACA         48.5       113.7
3  2007   2 Santander Divisiones  BACA         61.3       189.1
6  2007   3 Santander Divisiones  BACA         95.8       185.4
9  2007   4 Valencia Divisiones  BACA         70.1       120.9
12 2007   5 Valencia Divisiones  BACA         24.4        27.6
15 2007   6 Valencia Divisiones  BACA         52.3       131.3
1  2007   1 Valencia Divisiones  BACA         40.5       103.7
3  2007   2 Valencia Divisiones  BACA         65.3       159.1
6  2007   3 Valencia Divisiones  BACA         98.5       115.4
9  2007   4 Santander Divisiones  BACA         90.1       140.9
12 2007   5 Santander Divisiones  BACA         54.4        77.6
15 2007   6 Santander Divisiones  BACA         82.3       181.

######################

Las mejoras (layout, tamaños de etiquetas, nombres de etiquetas, etc) sobre
tanto xyplot como dotplot las puedes consultar en la ayuda de las dos
funciones.

Saludos,
Carlos Ortega
www.qualityexcellence.es
www.datanalytics.com/blog

2011/1/25 jose cebrian <pepeceb@yahoo.es>

> Buenos dias a todos esos sabios.
> Tengo esta tabla
>
> año mes      puerto            origen            arte          pesomues.
> peso.desem
> 1  2007   1 Santander Divisiones VIIIab BACA         48.5       113.7
> 3  2007   2 Santander Divisiones VIIIab BACA         61.3       189.1
> 6  2007   3 Santander Divisiones VIIIab BACA         95.8       185.4
> 9  2007   4 Santander Divisiones VIIIab BACA         70.1       120.9
> 12 2007   5 Santander Divisiones VIIIab BACA         24.4        27.6
> 15 2007   6 Santander Divisiones VIIIab BACA         52.3       131.3
>
> Estoy rompiendome la cabeza para hacer lo siguiente: un barplot (o similar)
> donde vengan representadas en la misma grafica el peso muestra y el peso
> desembarcado, todo esto en funcion del año, mes y puerto
>
>
>
>
>
>        [[alternative HTML version deleted]]
>
>
> _______________________________________________
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>

	[[alternative HTML version deleted]]

