<div dir="ltr">Não há meios de acessar os dados ... e a imagem não veio...<br><br>Se ñ for possível enviá-los nem um <i>link</i> para baixá-los, pelo menos imprima e mostre aqui o resultado das funções de resumo do R, como <font face="monospace">summary()</font>, por exemplo.<div><br></div><div><br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Thu, Jul 21, 2022 at 6:30 AM Toni por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="auto"><div><div style="font-size:12.8px" dir="auto">Opa!!!</div><div style="font-size:12.8px" dir="auto">Obrigado pela ajuda!!!</div><div style="font-size:12.8px" dir="auto">Para o problema, basicamente, é esse o código que enviei, no mais é pegar a base e plotar, mas ficaria assim:</div><div style="font-size:12.8px" dir="auto"><br></div><div style="font-size:12.8px" dir="auto"># Início do Código<br><br>estado = read.csv(file.choose())<br>library(tidyverse)<br>library(cluster)<br>library(factoextra)<br>library(ggplot2)<br>library(gridExtra)<br>library(ggrepel)<br><br>base <- estado[c(5,4)]<br><br>k <- 25<br>grupos <- kmeans(base,k)<br>cluster <- fviz_cluster(grupos, labelsize = 8, geom = "point", data = base) +<br> ggtitle (paste("K =",k))<br>p25 <- cluster + theme(legend.position = "none")<br><br>k <- 26<br>grupos <- kmeans(base,k)<br>cluster <- fviz_cluster(grupos, labelsize = 8, geom = "point", data = base) +<br> ggtitle (paste("K =",k))<br>p26 <- cluster + theme(legend.position = "none")<br><br>k <- 27<br>grupos <- kmeans(base,k)<br>cluster <- fviz_cluster(grupos, labelsize = 8, geom = "point", data = base) +<br> ggtitle (paste("K =",k))<br>p27 <- cluster + theme(legend.position = "none")<br><br>grid.arrange(p25,p26,p27,nrow=1)<br></div><div style="font-size:12.8px" dir="auto"><br></div><div style="font-size:12.8px" dir="auto"># Fim do Código</div><div style="font-size:12.8px" dir="auto"><br></div><div style="font-size:12.8px" dir="auto">Segue a imagem também para uma melhor visualização do problema.</div><div style="font-size:12.8px" dir="auto"><br></div><div style="font-size:12.8px" dir="auto">Grato!!!</div><div style="font-size:12.8px" dir="auto">Toni Borges</div><br><div>...<br><br>Att,<br><br>Toni Borges<br>Enviado por Mobile</div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Wed, Jul 20, 2022, 6:13 PM sznelwar--- por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div><span style="color:rgb(0,0,255)">Envie um código reproduzível para tentar ajudar.</span><br>
</div>
<div dir="ltr">
<div>Olá Pessoal,</div>
<div> </div>
<div>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. </div>
<div>Veja a parte do código: </div>
<div> </div>
<div># Pego as coordenadas de Longitude e Latitude (5 e 4) de uma base e monto com 25 centroides (k)</div>
<div> </div>
<div>k <- 25<br>
grupos <- kmeans(base[c(5,4)], k)</div>
<div><br>
# Pego o resultado do agrupamento e jogo na variável cluster usando o fviz_cluster para visualizar o resultado da clusterização<br>
<br>
cluster <- fviz_cluster(grupos, labelsize = 8, geom = "point", data = base[c(5,4)]) <br>
<br>
Depois monto o grid com o resultado do cluster com k igual a 25, 26, 27, 28, 29 e 30</div>
<div> </div>
<div>Problema:<br>
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?<br>
</div>
<div>Mais uma vez obrigado!!!</div>
<div>Toni Borges</div>
<div> </div>
<div class="gmail_quote">
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"> </blockquote>
</div>
</div>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" rel="noreferrer" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a rel="noreferrer">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a rel="noreferrer">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" rel="noreferrer" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div></div></div>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div>