Я получил «Предупреждение: ошибка в kmeans: больше кластерных центров, чем отдельных точек данных». Как мне это исправить? - PullRequest
Новая
       10

Я получил «Предупреждение: ошибка в kmeans: больше кластерных центров, чем отдельных точек данных». Как мне это исправить?

1 голос
/ 22 июня 2019

Я пытаюсь исправить свой код, но получаю предупреждение: ошибка в kmeans: больше центров кластера, чем отдельных точек данных.когда я бегукак я это исправлю?Мои ссылки взяты из самой галереи R Shiny (https://shiny.rstudio.com/gallery/kmeans-example.html), но разница в том, что мне нужно загружать файл в нее.

Я использую R под 3.5.3 версии 

res_clusters <- reactive({req(df_kmeans_selected())
      req(input$n_clusters)
      kmeans(
        df_kmeans_selected(),
        centers = input$n_clusters
      )
    })

output$plot1 <- renderPlot({
  req(df_kmeans_selected())
  req(res_clusters())
  palette(c(
    "#E41A1C", "#377EB8", "#4DAF4A", "#984EA3",
    "#FF7F00", "#FFFF33", "#A65628", "#F781BF", "#999999"
  ))
  par(mar = c(5.1, 4.1, 0, 1))
  plot(df_kmeans_selected(),
       col = res_clusters()$cluster,
       pch = 20,
       cex = 1
  )
  points(res_clusters()$centers,
         pch = 4,
         cex = 1,
         lwd = 3

Я ожидал, что графика k-средних может появиться, но не удалась. Я показываю вам свои данные из Excel Это мои данные. Всего 30 данных

...