[R-es] Problema con el subset

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])

lines(as.Date(dfgrupo$fecha), dfgrupo$z, type = "b", lwd = 1.5, 
col = colors[i], pch = char[i])

escribió:

  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])
 }
 # Añadir un titulo and subtitulo
 title("Evaluacion de los parametros")
 # Añadir la leyenda
 legend(xrange[1], yrange[2], 1:ntrees, cex = 0.8, col = colors, pch =
char,
     lty = ltipo, title = "Parametro")

 Un saludo.
Dr. José M. Veiga
Dpt. Química Agrícola, Geología y Edafología.
Universidad de Murcia.

Hola,
 
   El error lo tienes aqui:

#-------------------
  tree <- dfgrupo[ dfgrupo$param == levels( dfinter$param )[ i ], ] 
       lines(as.Date(TREE$fecha), TREE$z, type = "b", lwd = 1.5, 
              col = colors[i], pch = char[i])
#-------------------
   Primero seleccionas un subconjunto "tree", pero luego a la hora de
pintar las lineas, vuelves a escoger "dfgrupo" y une todos los puntos
del conjunto dfgroup en vez de solamente los del subconjunto "tree".
    
   Como alternativa, aunque estás empezando a usar R, mira esta otra
forma que evita todos los cálculos intermedios que has utilizado:

#---------------------
library(lattice)
parVal <- unique(as.vector(dfgrupo$param))
colVal <- rainbow(length(parVal))

xyplot(
        z ~ as.Date(fecha)
       ,data=dfgrupo
       ,group=param
       ,type="b"
       ,main="Evaluación de los parámetros"
       ,xlab=list("Fecha del interlaboratorio", font=2, cex=1.1)
       ,ylab=list("Z-Score", font=2, cex=1.1)
       ,scales=list(col="blue", font=2, cex=1.1)
       ,key=simpleKey(parVal, columns=4)
       ,par.settings=simpleTheme(fill=colVal, col=colVal, pch=19)
  )
#---------------------
    
   Saludos,
Carlos Ortega
www.qualityexcellence.es[1]


   El 17 de diciembre de 2014, 19:59, Jose Manuel Veiga del Baño
<chemavb en um.es> escribió:

_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

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=";",

        _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])_
       _}_
       _# Añadir un titulo and subtitulo_
       _title("Evaluacion de los parametros")_
       _# Añadir la leyenda_
       _legend(xrange[1], yrange[2], 1:ntrees, cex = 0.8, col = colors,
pch = char, _
       _    lty = ltipo, title = "Parametro")_
       _ _

_Un saludo._           _Dr. José M. Veiga
Dpt. Química Agrícola, Geología y Edafología.
Universidad de Murcia._

_-- _
   _Saludos,
Carlos Ortega
www.qualityexcellence.es[1]_