在 R/Shiny 中获取选定的 colname 作为字符答案

【问题标题】：Getting selected colname as character in R/Shiny在 R/Shiny 中获取选定的 colname 作为字符
【发布时间】：2018-07-13 07:36:02
【问题描述】：

我正在尝试根据 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
 )
})

请指教。

【问题讨论】：

标签： r shiny data-science

【解决方案1】：

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

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

希望这会有所帮助！

【讨论】：

非常感谢。这是我最初没有想到的解决方案。但是，您将如何从 selectInput 中提取所选列的名称以获得动态子集？