Agrupamento - Listar elementos
Olá Pessoal! Alguém sabe como faço para listar os elementos de um determinado agrupamento? Comando utiizado: fviz_cluster(objeto, geom="point", data = df_utilizado) Nesse caso o objeto tem 23 clusters; Como resultado ele me fornece o agrupamento dos pontos mas eu gostaria de listar quem são os pontos de cada um desses 23 agrupamentos. Tem como fazer isso? OBS: Se trocar o geom para "text" ele mostra os pontos mas é impossível ler isso. Grato, Toni Borges
Olá, Algo tipo isso? ### library(factoextra) library(dplyr) iris_kmeans <- kmeans(iris[, -5], centers = 3) clusters <- fviz_cluster(iris_kmeans, geom = "point", data = iris[, -5]) clusters$data clusters$data %>% select(cluster) ### -- Marcus Nunes Professor Adjunto https://marcusnunes.me/ Universidade Federal do Rio Grande do Norte Departamento de Estatística Laboratório de Estatística Aplicada - http://lea.estatistica.ccet.ufrn.br Curso de Big Data - https://introbigdata.org Aplicações em Shiny - http://shiny.estatistica.ccet.ufrn.br On Wed, Jul 13, 2022 at 9:53 AM Toni por (R-br) <r-br@listas.c3sl.ufpr.br> wrote:
Olá Pessoal!
Alguém sabe como faço para listar os elementos de um determinado agrupamento?
Comando utiizado: fviz_cluster(objeto, geom="point", data = df_utilizado)
Nesse caso o objeto tem 23 clusters; Como resultado ele me fornece o agrupamento dos pontos mas eu gostaria de listar quem são os pontos de cada um desses 23 agrupamentos. Tem como fazer isso? OBS: Se trocar o geom para "text" ele mostra os pontos mas é impossível ler isso.
Grato, 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.
Obrigado Marcus, Resolveu. Att, Toni Borges On Wed, Jul 13, 2022 at 10:44 AM Marcus Nunes <marcus.nunes@gmail.com> wrote:
Olá,
Algo tipo isso?
### library(factoextra) library(dplyr)
iris_kmeans <- kmeans(iris[, -5], centers = 3)
clusters <- fviz_cluster(iris_kmeans, geom = "point", data = iris[, -5])
clusters$data
clusters$data %>% select(cluster) ### -- Marcus Nunes Professor Adjunto https://marcusnunes.me/ Universidade Federal do Rio Grande do Norte Departamento de Estatística Laboratório de Estatística Aplicada - http://lea.estatistica.ccet.ufrn.br Curso de Big Data - https://introbigdata.org Aplicações em Shiny - http://shiny.estatistica.ccet.ufrn.br
On Wed, Jul 13, 2022 at 9:53 AM Toni por (R-br) <r-br@listas.c3sl.ufpr.br> wrote:
Olá Pessoal!
Alguém sabe como faço para listar os elementos de um determinado agrupamento?
Comando utiizado: fviz_cluster(objeto, geom="point", data = df_utilizado)
Nesse caso o objeto tem 23 clusters; Como resultado ele me fornece o agrupamento dos pontos mas eu gostaria de listar quem são os pontos de cada um desses 23 agrupamentos. Tem como fazer isso? OBS: Se trocar o geom para "text" ele mostra os pontos mas é impossível ler isso.
Grato, 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.
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
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.
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.
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.rabak@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.
participantes (4)
-
Cesar Rabak -
Marcus Nunes -
sznelwar＠uol.com.br -
Toni