Вывод fviz_mclust_BIC при блестящем сложении всегда слева - PullRequest
Новая
       55

Вывод fviz_mclust_BIC при блестящем сложении всегда слева

0 голосов
/ 09 февраля 2019

Новые записи для кластеров на графике fviz_mclust_bic отображаются слева, даже если они должны быть справа.Эта проблема только с fviz_mclust_bic, просто сюжет (M1, что = "BIC") работает нормально.

Я написал блестящее приложение, которое выполняет различные кластеризации данных и их визуализации.Одним из них является график BIC plot(M1, what="BIC"), который отлично работает даже на блестящих экранах, где я могу отрегулировать количество кластеров, которые пытается Макласт.Но когда я попытался вывести результат с помощью функции fviz_mclust_bic, произошло следующее.График выглядит нормально, но когда я изменяю количество кластеров с ползунком на> 10, новые кластеры появляются в левой части графика BIC, даже если количество кластеров увеличивается.Это приводит к странному графику, где исходный график находится справа, а вновь добавленные точки данных - слева.

x<- scale(iris[,-5])


library(shiny)
library(factoextra)


ui <- fluidPage(


titlePanel("BIC Output"),


sidebarLayout(
  sidebarPanel(
    sliderInput("G", "No. of Clusters:",min = 2, max = 25, value=c(2,9))),

  mainPanel(
     plotOutput("BICPlot")
  )))

server <- function(input, output) {

output$BICPlot <- renderPlot({
 M1<- Mclust(x, G=seq(min(input$G), max(input$G)), verbose = FALSE)
fviz_mclust_bic(M1)
})}


shinyApp(ui = ui, server = server)

Но это работает нормально: 

     x<- scale(iris[,-5])

 library(shiny)
 library(factoextra)

 ui <- fluidPage(

 titlePanel("BIC Output"),

 sidebarLayout(
  sidebarPanel(
    sliderInput("G", "No. of Clusters:",min = 2, max = 25, value=c(2,9))),

  mainPanel(
     plotOutput("BICPlot")
  )))

server <- function(input, output) {

 output$BICPlot <- renderPlot({
 M1<- Mclust(x, G=seq(min(input$G), max(input$G)), verbose = FALSE)
plot(M1, what="BIC")
})}

 shinyApp(ui = ui, server = server)

Я ожидаю увидеть новые результаты справа, если они используют большее количество кластеров, чем фактическое, и слева, еслицифры меньше.

...