Question

我们如何获得闪亮的多个直方图的交互坐标（x和y）。我试过这段代码

#server.R
library(xts)  
shinyServer(function(input, output,session) {
output$info <- renderText({
    paste0("x=", input$plot_click$x, "\ny=", input$plot_click$y)
  })


output$plot<- renderPlot({ 
set.seed(3)
Ex <- xts(1:100, Sys.Date()+1:100)
df = data.frame(Ex,matrix(rnorm(100*3,mean=123,sd=3), nrow=100))
df<-df[,-1]
par(mfrow = c(2,2))
for(i in names(df)){
 hist(df[[i]] , main=i,xlab="x",freq=TRUE,label=TRUE,plot = TRUE)  
}

})
})

ui.R

#ui.r
mainPanel(

      tabsetPanel(type="tab",tabPanel("plot", plotOutput("plot",click = "plot_click"), verbatimTextOutput("info"))         

  )

上面代码的问题是我得到整个情节的随机坐标，如此

x=124.632301932263
y=20.4921068342051

相反，我希望获得具有相应值的各个图的坐标。例如，如果我点击X1图表中的任何位置，我应该得到该图表的x和y坐标。我怎么能这样做？

Answer 1

我最初会说这是因为点击是由图的像素而不是数据来控制的，但我被证明是错误的here：

请注意，x和y坐标是按比例缩放的，而不是像素坐标。这样可以轻松地使用这些值来选择或过滤数据。

我反而老实说，在图形设备中，Shiny无法分辨出各个图表之间的差异，解决方案是为每个图表创建单独的设备：

<强> ui.R

library(shiny)
shinyUI(
  tabsetPanel(type="tab",
              tabPanel("plot", 
                       uiOutput("coords"),
                       uiOutput("plots")
                       )
              )
)

<强> server.R

library(xts)  
set.seed(3)

Ex <- xts(1:100, Sys.Date() + 1:100)
df <- data.frame(Ex, matrix(rnorm(100*3, mean = 123, sd = 3), nrow = 100))
cn <- colnames(df)
df <- df[, cn[cn != "Ex"]]

n_seq <- seq(ncol(df))
shinyServer(function(input, output, session) {

  output$plots <- renderUI({
    plot_output_list <- lapply(n_seq, function(i) {
      plotOutput(paste0("plot", i), click = paste0("plot_click", i),
                 height = 250, width = 300)
    })
  })

  for (i in n_seq) {
    output[[paste0("plot", i)]] <- renderPlot({
      hist(df[[i]] , main = i, xlab = "x", freq = TRUE, label = TRUE)
    })
  }

  output$coords <- renderUI({
    coords_output_list <- lapply(n_seq, function(i) {
      renderText({
        set <- input[[paste0("plot_click", i)]]
        paste0("Plot ", i, ": x=", set$x, "\ny=", set$y)
      })
    })
  })
})

单击以从闪亮的多个直方图中获取坐标

1 个答案: