[R-br] Agrupamento - Kmeans

[Cesar Rabak]

Não há meios de acessar os dados ... e a imagem não veio...

Se ñ for possível enviá-los nem um *link* para baixá-los, pelo menos
imprima e mostre aqui o resultado das funções de resumo do R, como summary(),
por exemplo.



On Thu, Jul 21, 2022 at 6:30 AM Toni por (R-br) <r-br em listas.c3sl.ufpr.br>
wrote:

> Opa!!!
> Obrigado pela ajuda!!!
> Para o problema, basicamente, é esse o código que enviei, no mais é pegar
> a base e plotar, mas ficaria assim:
>
> # Início do Código
>
> estado = read.csv(file.choose())
> library(tidyverse)
> library(cluster)
> library(factoextra)
> library(ggplot2)
> library(gridExtra)
> library(ggrepel)
>
> base <- estado[c(5,4)]
>
> k <- 25
> grupos <- kmeans(base,k)
> cluster <- fviz_cluster(grupos, labelsize = 8, geom = "point", data =
> base) +
>   ggtitle (paste("K =",k))
> p25 <- cluster + theme(legend.position = "none")
>
> k <- 26
> grupos <- kmeans(base,k)
> cluster <- fviz_cluster(grupos, labelsize = 8, geom = "point", data =
> base) +
>   ggtitle (paste("K =",k))
> p26 <- cluster + theme(legend.position = "none")
>
> k <- 27
> grupos <- kmeans(base,k)
> cluster <- fviz_cluster(grupos, labelsize = 8, geom = "point", data =
> base) +
>   ggtitle (paste("K =",k))
> p27 <- cluster + theme(legend.position = "none")
>
> grid.arrange(p25,p26,p27,nrow=1)
>
> # Fim do Código
>
> Segue a imagem também para uma melhor visualização do problema.
>
> Grato!!!
> Toni Borges
>
> ...
>
> Att,
>
> Toni Borges
> Enviado por Mobile
>
> On Wed, Jul 20, 2022, 6:13 PM sznelwar--- por (R-br) <
> r-br em listas.c3sl.ufpr.br> wrote:
>
>> Envie um código reproduzível para tentar ajudar.
>>
>> Olá Pessoal,
>>
>> Vou recorrer novamente a vocês porque já pesquisei sobre isso e não
>> consigo encontrar uma resposta, nenhum conteúdo que achei fala sobre isso.
>> Veja a parte do código:
>>
>> # Pego as coordenadas de Longitude e Latitude (5 e 4) de uma base e monto
>> com 25 centroides (k)
>>
>> k <- 25
>> grupos <- kmeans(base[c(5,4)], k)
>>
>> # Pego o resultado do agrupamento e jogo na variável cluster usando o
>> fviz_cluster para visualizar o resultado da clusterização
>>
>> cluster <- fviz_cluster(grupos, labelsize = 8, geom = "point", data =
>> base[c(5,4)])
>>
>> Depois monto o grid com o resultado do cluster com k igual a 25, 26, 27,
>> 28, 29 e 30
>>
>> Problema:
>> Ele mostra o resultado no grid com os seis mapas, mas o problema é que
>> quando comparo os pontos de cada mapa, alguns não aparecem, parece que
>> alguns pontos desaparecem e também tem alguns clusters com o agrupamento
>> vazio. Isso faz parte do resultado do fviz_cluster, esses parâmetros estão
>> corretos? Esses pontos não teriam que aparecer todos, independente do
>> processo de agrupamento (vazio ou não)? Ou existe alguma outra função para
>> esse processo de agrupamento?
>>
>> Mais uma vez obrigado!!!
>> Toni Borges
>>
>>
>>>
>>
>> _______________________________________________
>> R-br mailing list
>> R-br em listas.c3sl.ufpr.br
>> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
>> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
>> código mínimo reproduzível. _______________________________________________
>> R-br mailing list
>> R-br em listas.c3sl.ufpr.br
>> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
>> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
>> código mínimo reproduzível.
>>
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
> código mínimo reproduzível.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20220721/e1c88dcf/attachment.htm>