如何解决network_plot中的错误“找不到对象'X1'”？

Question

问候我是R的新秀，我正在尝试ShinyApp。我的问题是

在运行应用程序时启动以下错误：

  

**找不到对象'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中使用。提示：由于您不过滤数据框或其他任何内容，因此无需使用反应式表达式。仅当结果可以更改时才这样做。