Как я могу решить ошибку "объект 'X1' не найден" в network_plot?

Question

Привет всем Я новичок с R, и я пытаюсь блестящий приложение. моя проблема в том, что

При запуске приложения запускается следующая ошибка:

** объект 'X1' не найден **

Может кто-нибудь сказать мне, что не так? Спасибо

library(shiny)
library(corrr)



ui <- fluidPage(

  box(plotOutput("plot1")),


)

server <- function(input, output) {
slidervalues  <- reactive({
  data.frame(
  color = c("mixto", "negro", "atigrado"),
  peso = c(2.1, 5.0, 3.2),
  le_gusta_cuerda = c(1, 0, 1),
  le_gusta_jugar = c(2, 6, 1)
  )
})

output$plot1 <- renderPlot(                    

  network_plot(correlate(slidervalues()[,-1]), min_cor=0.4)

  )

}

Запустите приложение

shinyApp(ui = ui, server = server)

Answer 1

slidervalues <- data.frame(
  color = c("mixto", "negro", "atigrado"),
  peso = c(2.1, 5.0, 3.2),
  le_gusta_cuerda = c(1, 0, 1),
  le_gusta_jugar = c(2, 6, 1)
)


network_plot(correlate(slidervalues[,-1]), min_cor=0.4)

Correlation method: 'pearson'
Missing treated using: 'pairwise.complete.obs'

Error in .f(.x[[i]], ...) : object 'X1' not found
In addition: Warning message:
In stats::cmdscale(.) : only 1 of the first 2 eigenvalues are > 0

Проблема не блестящая, но я думаю из-за слишком маленького набора данных.

slidervalues <- data.frame(
  color = c("mixto", "negro", "atigrado", "test"),
  peso = c(2.1, 5.0, 3.2, 10),
  le_gusta_cuerda = c(1, 0, 1, 10),
  le_gusta_jugar = c(2, 6, 1, 5)
)


network_plot(correlate(slidervalues[,-1]), min_cor=0.4)

Этот код работает и будет работать в Shiny. Небольшой совет: поскольку вы не фильтруете фрейм данных или что-то еще, нет необходимости использовать реактивное выражение. Делайте это только тогда, когда результаты могут измениться.