MinMax <- function(x, graf = 0, eje_y=""){ # x es un vector
  minimo = min(x)
  maximo = max(x)
  y = ((x-minimo)/(maximo-minimo))*100
  if (graf == 1) {
    plot(y, type="b", xlab="Jornada", ylab=eje_y, col="lightblue", lwd=2)
    abline(h=mean(y), col="black", lwd=2, lty=2)
  }
  return(y)
}

###

DosSeries <- function(x, y, eje_y, leyenda, columnas=1, tamano=1){
  plot(ts(cbind(x,y), start=1, deltat=1), plot.type="single", type="b", xlab="Jornada", ylab=eje_y, col=2:3, lwd=2)
  abline(h=mean(c(x,y)), col="black", lwd=2, lty=2)
  legend(x = "topright", legend=leyenda, col=2:3, lwd=2, ncol=columnas, cex=tamano)
}

###

CompararEQUIPOS <- function(x, y, graf=1, salida=1, eje_y, eje_y1, eje_y2, leyenda, columnas=1, tamano=1){
  equipo1 = MinMax(x, graf=graf, eje_y=eje_y1)
  equipo2 = MinMax(y, graf=graf, eje_y=eje_y2)
  DosSeries(equipo1, equipo2, eje_y=eje_y, leyenda=leyenda, columnas=columnas, tamano=tamano)
  if (salida == 1){
	  salida = data.frame(equipo1, equipo2)
	  names(salida) = leyenda
	  return(salida)
  }
}