R - Clusters

clusters.R

#Clusters

#Distribuicao
set.seed(1909)
x = rnorm(15,mean = rep(1:3, each=5),sd = 0.2)
y = rnorm(15,mean = rep(c(1,2), each=5),sd = 0.2)
plot(x,y,col='blue',pch=19,cex=1)
text(x + 0.05, y + 0.05, labels=as.character(1:15))

#Kmeans
mydata = data.frame(x,y)
modelo = kmeans(x = mydata, centers = 3)

modelo$centers #centroides dos clusters

#------------------------------------------------------------

#Analisando Fifa 2018

fifa = read.csv("C:/Users/logonrmlocal/Desktop/fifa game-2.csv")

fifaFiltrado = 
  fifa %>% 
  filter(league == 'Spanish Primera División') %>%
  select(name, dribbling,acceleration) 

plot(x=fifaFiltrado$dribbling, y=fifaFiltrado$acceleration)

#Centroides
set.seed(666)
modeloFifa = kmeans(x = data.frame(fifaFiltrado$dribbling, fifaFiltrado$acceleration),centers = 4)

plot(fifaFiltrado[,-1],
     col = modeloFifa$cluster,
     pch = 18, cex = 1)

points(modeloFifa$centers, pch=15, col = 4:1)