<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/REC-html40/loose.dtd">
<html><head><meta http-equiv="content-type" content="text/html; charset=UTF-8"></head><body style="font-family:Arial;font-size:14px"><div>
        <div>
                Hola a todos,<br><br>
                Agradeceros de antemano vuestro tiempo y paciencia ya que soy un poco novato y tal vez esto sea un poco trivial. <br><br>
                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. <br><br>
                Si alguien se le ocurre algo se lo agradezco.<br><br><div>
                        df  <- read.table(file="xxxx.csv", header=T, sep=";", dec=",")</div>
                <div>
                        df  <-na.omit(df)</div>
                dfgrupo<-subset(df,df$parametroslaboratorio=="Aflatoxinas ByG")</div>
        <div>
                niveles <- as.numeric(dfgrupo$param)</div>
        <div>
                ntrees <- max(niveles) </div>
        <div>
                xrange <- range(as.Date(dfgrupo$fecha))</div>
        <div>
                yrange <- range(dfgrupo$z)</div>
        <div>
                plot(xrange, yrange, type = "n", xlab = "Fecha del interlaboratorio", </div>
        <div>
                     ylab = "Z-score")</div>
        <div>
                colors <- rainbow(ntrees)</div>
        <div>
                ltipo <- c(1:ntrees)</div>
        <div>
                char <- seq(18, 18 + ntrees, 1)</div>
        <div>
                # Añadir las lineas al grafico</div>
        <div>
                for (i in 1:ntrees) {</div>
        <div>
                    tree <- dfgrupo[ dfgrupo$param == levels( dfinter$param )[ i ], ] </div>
        <div>
                    lines(as.Date(dfgrupo$fecha), dfgrupo$z, type = "b", lwd = 1.5, </div>
        <div>
                          col = colors[i], pch = char[i])</div>
        <div>
                }</div>
        <div>
                # Añadir un titulo and subtitulo</div>
        <div>
                title("Evaluacion de los parametros")</div>
        <div>
                # Añadir la leyenda</div>
        <div>
                legend(xrange[1], yrange[2], 1:ntrees, cex = 0.8, col = colors, pch = char, </div>
        <div>
                    lty = ltipo, title = "Parametro")</div>
        <div>
                 </div>
</div>
Un saludo.<div>Dr. José M. Veiga <br>
Dpt. Química Agrícola, Geología y Edafología.<br>
Universidad de Murcia.</div></body></html>