Carregar o conjunto de dados

Lendo o conjunto de dados

dataset = read.csv('Country-data.csv')
dataset = data.frame(dataset$health, dataset$gdpp)

K means

kmeans = kmeans(x = dataset, centers = 3)
y_kmeans = kmeans$cluster

Visualizando os grupos

library(cluster)
clusplot(dataset,
         y_kmeans,
         lines = 0,
         shade = TRUE,
         color = TRUE,
         labels = 2,
         plotchar = FALSE,
         span = TRUE,
         main = paste('Grupos de Países'),
         xlab = 'PIB per capita',
         ylab = 'Indice de saude')