R Shiny复选框不会绘制多个变量

Question

我正在尝试准备一个箱形图，仅根据复选框中选定的列来绘制该图。该图只能正确显示一列（我可以自由切换），但是添加（检查）多于一列后，该图会崩溃并发生错误：

Error: id variables not found in data: Numer

这是我从ui一侧开始的复选框部分的代码：

h4("Checkbox"),
      checkboxGroupInput(inputId = "zmienne",
                         label = "Columns:",
                         choices=c('L1','L2','L3','L4','L5','L6','L7','L8','L9','L10','L11','L12','L13','L14','L15','L16','L17','L18','L19','L20'),
                     selected = c('L1')
  )

)

从服务器端：

output$plot <- renderPlot({

d <- dataIn()

d <- melt(d[,c((input$zmienne))],id.vars="Numer")

wyk <- (
  ggplot(d,aes(x=input$zmienne,y=value)) 
  + geom_boxplot(fill = rgb(input$redid,0,1)) 
  + xlab("") + ylab("Kula")
) 

return(wyk)    

  })

可能是什么问题？感谢您的帮助。

Answer 1

我假设您的数据帧d中还有一列名为Numer。在这种情况下，您想要

d <- melt(d[,c("Numer", (input$zmienne))],id.vars="Numer")

（请注意，在选定的列中添加了"Numer"。）我想您也想要

ggplot(d,aes(x=variable,y=value))

而不是映射x = input$zmienne。会产生以下结果：