Last active
June 20, 2019 01:38
-
-
Save LetticiaNicoli/084d9e22e1ecd5ffd25973b15abdf32a to your computer and use it in GitHub Desktop.
R - Clusters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#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) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment