R Блестящие интерактивные сюжеты - метки данных

Question

Я строю две матрицы друг против друга, используя 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)
            })
    })

д =

ABCD

A 0 1 5 4

Б 2 0 5 6

C 3 5 0 8

Д 4 6 7 0

е =

ABCD

А 0,0 0,1 0,5 0,4

B 0,2 0,0 0,3 0,6

С 0,3 0,5 0,0 0,8

D 0,4 0,6 0,7 0,0