我正在使用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