R闪亮的交互式图 - 数据标签

时间:2016-06-15 16:33:27

标签: shiny

我正在使用R Shiny绘制两个矩阵。两个矩阵都具有相同的行名和列名。当我点击数据点时,我希望显示相关的列和行名称,而不是坐标。这是我正在使用的代码/数据的示例。谢谢!

    ui.R

    library(shiny)

    shinyUI(
      fluidPage(
        titlePanel("Matrix Plot"),
        plotOutput("plot", click = "plot_click"), br(), verbatimTextOutput("info")
    )
     )

    server.R

    library(shiny)

    d <- read.csv("d.csv",h=T, row.names=1)
    e <- read.csv("e.csv",h=T, row.names=1)

    shinyServer(function(input, output) {

         d_matrix <-reactive({
            as.matrix(d)
            d
          }) 

        e_matrix <-reactive({
            as.matrix(e)
            e
          }) 


            output$plot<-renderPlot({
            plot(d_matrix(),e_matrix())
        }) 

            output$info <- renderText({
            #output row and column names here instead of data coordinates
            paste0("x=", input$plot_click$x, "\ny=",  input$plot_click$y)
            })
    })

d =

A B C D

A 0 1 5 4

B 2 0 5 6

C 3 5 0 8

D 4 6 7 0

e =

A B C D

0.0 0.1 0.5 0.4

B 0.2 0.0 0.3 0.6

C 0.3 0.5 0.0 0.8

D 0.4 0.6 0.7 0.0

0 个答案:

没有答案