在R / Shiny中将选定的姓作为字符

Question

我正在尝试根据 selectInput 中的选定列对数据进行子集化。我尝试过：

as.character(input$LabelBubble)

但是，这似乎并未提取列文本。我选择下面各列的其余代码：

output$LabelBubble = renderUI(if(input$PlotType=="Dynamic Bubble Scatter"){
 mtext <- sapply(loadfile1(), is.factor)
 mcols<-as.list(colnames(loadfile1()[,mtext]))
 selectInput(
  "LabellBubble", 
  label = "Select factor variable",
  "",selectize=TRUE,multiple=FALSE,choices=mcols
 )
})

请告知。

Answer 1

我认为您的问题是mtext中只有一列。 loadfile1()[,mtext]返回向量而不是data.frame。如果您使用的是dplyr，则可以这样做，但效果更好

mcols<-as.list(colnames(select(iris,one_of(names(mtext)[mtext]))))

希望这会有所帮助！