Olá Pessoal!!!
Apenas para dar um retorno para vocês, eu fiz um procedimento diferente,
fiz o mapeamento com o k-means, identifiquei os elementos de cada grupo e
gerei um agrupamento baseado nesse grupo de elementos. A princípio
funcionou, mas quero agradecer a ajuda de vocês.
Depois com mais calma vou dar uma estudada melhor nessas funções "fviz_"
Grande abraço!!!
Toni
On Thu, Jul 21, 2022 at 10:14 AM Cesar Rabak <cesar.ra...@gmail.com> wrote:
> 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@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@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@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@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@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@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.
