Jose Manuel Veiga del Baño <[email protected]> writes: > Hola a todos, > > Agradeceros de antemano vuestro tiempo y paciencia ya que soy un poco > novato y tal vez esto sea un poco trivial. > > Lo que quiero hacer es que me represente en eje de las x las fechas > (columna fecha) y los valores de z (columna z) pero de los datos que > he filtrado antes en (dfgrupo<-subset > (df,df$parametroslaboratorio=="Aflatoxinas ByG")) y que los parámetros > iguales (variables de la columna param) se unan entre sí y tengan un > color cada param. En principio estoy usando un código de un ejemplo > que funciona muy bien pero lo único que consigo es que se me unan > todos los puntos (todos los parm) y que no lo haga por colores. > > Si alguien se le ocurre algo se lo agradezco. > > df <- read.table(file="xxxx.csv", header=T, sep=";", dec=",") > df <-na.omit(df) > dfgrupo<-subset(df,df$parametroslaboratorio=="Aflatoxinas ByG") > niveles <- as.numeric(dfgrupo$param) > ntrees <- max(niveles) > xrange <- range(as.Date(dfgrupo$fecha)) > yrange <- range(dfgrupo$z) > plot(xrange, yrange, type = "n", xlab = "Fecha del interlaboratorio", > ylab = "Z-score") > colors <- rainbow(ntrees) > ltipo <- c(1:ntrees) > char <- seq(18, 18 + ntrees, 1) > # Añadir las lineas al grafico > for (i in 1:ntrees) { > tree <- dfgrupo[ dfgrupo$param == levels( dfinter$param )[ i ], ] > lines(as.Date(dfgrupo$fecha), dfgrupo$z, type = "b", lwd = 1.5, > col = colors[i], pch = char[i])
mirando el código así un poco rápido... ¿eso de > lines(as.Date(dfgrupo$fecha), dfgrupo$z, type = "b", lwd = 1.5, > col = colors[i], pch = char[i]) ¿no tendría que ser? lines(as.Date(dfgrupo$fecha), tree, type = "b", lwd = 1.5, col = colors[i], pch = char[i]) Saludos, -- :: Igor Sosa Mayor :: [email protected] :: :: GnuPG: 0x1C1E2890 :: http://www.gnupg.org/ :: :: jabberid: rogorido :: :: _______________________________________________ R-help-es mailing list [email protected] https://stat.ethz.ch/mailman/listinfo/r-help-es
