Question

c1 <- rnorm(10,0,1)
c2 <- c(rep("txA",5),rep("txB",5))
c3 <- c(1:4,1:4,1:2)
c4 <- rep(LETTERS[1:5],2)
mydata <- data.frame(c1,c2,c3,c4)


ui <- fluidPage(
fileInput(inputId = "file",
        label = "import file"),
tableOutput("tb"),
sidebarLayout(
sidebarPanel(
  uiOutput(outputId = "aa")
),
mainPanel(textOutput("a"),
          verbatimTextOutput("info"),
          verbatimTextOutput("summary"),
          plotOutput("plot", click = "plot_click")
)
)
)

server <- function(input,output) {

output$aa <- renderUI({
    selectInput(inputId = "aa2",
            label="Select:",
            choices = colnames(mydata))
})

output$tb <- renderTable({
data <- input$file
if (is.null(data))return()
read.table(data$datapath,sep=",")
})

mysubsetdata <- eventReactive(input$aa2,{
mydata[[input$aa2]]
})


output$summary <- renderPrint({
summary(mysubsetdata())
})

output$plot <- renderPlot({
plot(mysubsetdata())
})

output$info <- renderText({
paste0("x=", input$plot_click$x, "\ny=", input$plot_click$y)
})
}
shinyApp(ui=ui, server=server)

上面的代码是一个闪亮的应用程序，可以接收任何数据。根据您的数据，该应用程序将显示数据的外观，并提供图表和统计信息。但是，此应用程序的问题在于我一次只能选择一列。我想选择两列：一列用于X轴，另一列用于Y轴。我想制作以下闪亮的应用程序：有两个下拉菜单。一个X轴和一个Y轴分别具有我数据的所有列（c1〜c4）。这样我就可以从两个下拉菜单中进行选择。我该如何编码？再次感谢！

P.S部分代码是由猪排给出的，这是猪排的后续问题。

如何根据我从闪亮的数据中选择两个下拉菜单进行绘图

0 个答案: