Chef’s hat data

Correlation

1000 iterations, random agents. Attack, defense, eccentricity and vitality correlation for whole dataset

####WORKSPACE SETTING####

#working directory
setwd("C:/Users/vitto/Desktop/Chef's Hat 1/Analisi dat")

#clear workspace
rm(list=ls())

#load libraries
library(dplyr)
library(gplots)

####DATA ANALYSIS####

#read data
data <- read.csv("comp.csv")

data$Source <- data$Source %>% as.factor

#corMat
data %>%
  select(Attack,Defense,Eccentricity,Vitality) %>%
  cor %>%
  round(2)  -> corMat
  
  heatmap.2(1-abs(corMat),
          Rowv = F,
          Colv = F,
          dendrogram="none",
          symm=T,
          scale="none",
          revC=F,
          cellnote=matrix(gsub("0.",".",corMat,fixed=T),ncol=ncol(corMat),nrow=ncol(corMat)),
          trace = "none",
          notecol = "black",
          notecex=1,
          key=F,
          keysize=1,
          margins = c(6,6),
          col=hcl.colors(100,"mint"),
          cexRow = 1,
          cexCol = 1,
          offsetRow = 0.01,
          offsetCol = 0.01
)

1000 iterations, random agents. Attack, defense, eccentricity and vitality correlation per player

data[data$Source=="RANDOM_Random1",] %>%
  select(Attack,Defense,Eccentricity,Vitality) %>%
  cor %>%
  round(2)  -> corMat
  
  heatmap.2(1-abs(corMat),
          Rowv = F,
          Colv = F,
          dendrogram="none",
          symm=T,
          scale="none",
          revC=F,
          cellnote=matrix(gsub("0.",".",corMat,fixed=T),ncol=ncol(corMat),nrow=ncol(corMat)),
          trace = "none",
          notecol = "black",
          notecex=1,
          key=F,
          keysize=1,
          margins = c(6,6),
          col=hcl.colors(100,"mint"),
          cexRow = 1,
          cexCol = 1,
          offsetRow = 0.01,
          offsetCol = 0.01,
          main = "Player 1"
)

  data[data$Source=="RANDOM_Random3",] %>%
  select(Attack,Defense,Eccentricity,Vitality) %>%
  cor %>%
  round(2)  -> corMat
  
  heatmap.2(1-abs(corMat),
          Rowv = F,
          Colv = F,
          dendrogram="none",
          symm=T,
          scale="none",
          revC=F,
          cellnote=matrix(gsub("0.",".",corMat,fixed=T),ncol=ncol(corMat),nrow=ncol(corMat)),
          trace = "none",
          notecol = "black",
          notecex=1,
          key=F,
          keysize=1,
          margins = c(6,6),
          col=hcl.colors(100,"mint"),
          cexRow = 1,
          cexCol = 1,
          offsetRow = 0.01,
          offsetCol = 0.01,
          main = "Player 3"
)