Distribución de los listas en base a random sistema BUE

Mapa de calor de una corrida de 360 ordenes aleatorios de una distribución de 20 listas.

#data_mesa1 <- read.csv("padron600.csv", sep=",",header = FALSE)
data_mesa1 <- read.csv("cco1mesa360x20listasMatriz.csv", sep=",",header = FALSE)
listas=20
colnames(data_mesa1) <- paste("P" , (1:listas) , sep="-")
row.names(data_mesa1) <- paste("L" , (1:listas) , sep="-")

data_mesa1t<-transpose(data_mesa1)
colnames(data_mesa1t) <- row.names(data_mesa1)
row.names(data_mesa1t) <- colnames(data_mesa1)
#Crear mapa de calor
heatmap(as.matrix(data_mesa1t[, -1]))

Máximos mínimos y medias

data_mesa_corridas <- read.csv("cco1mesa360x20listasCorridas.csv", sep=",",header = FALSE)
colnames(data_mesa_corridas) <- paste("P" , (1:listas) , sep="-")
boxplot(data_mesa_corridas)