Question

我正在尝试从以下Shinyapp中的“ treemap”库示例中复制悬停图：

library(shiny)
library(treemap)
library(dplyr)
library(gridBase)


weights <- readRDS("/home/R projects/treemap1.rds")

### Handle cliks on a treemap

tmLocate <-
  function(coor, tmSave) {
    tm <- tmSave$tm

# retrieve selected rectangle
    rectInd <- which(tm$x0 < coor[1] & (tm$x0 + tm$w) > coor[1] &
                       tm$y0 < coor[2] & (tm$y0 + tm$h) > coor[2])
    return(tm[rectInd[1], ])   
  }

ui = fluidPage(pageWithSidebar(
  headerPanel("Interactive treemap"),
  sidebarPanel(
    selectInput("prov", "Select province:", choices = unique(weights$Region)), width = 2
  ),
  mainPanel(
    plotOutput("plot", hover="hover", height = 700, width = 900), 
    tableOutput("record")
  ))
)

server = function(input, output){
  sel1 <- reactive({
    weights %>% filter(Region %in% input$prov)
  })

  getRecord <- reactive({
    x <- input$hover$x
    y <- input$hover$y

    x <- (x - .tm$vpCoorX[1]) / (.tm$vpCoorX[2] - .tm$vpCoorX[1])
    y <- (y - .tm$vpCoorY[1]) / (.tm$vpCoorY[2] - .tm$vpCoorY[1])

    l <- tmLocate(list(x=x, y=y), .tm)
    l[, 1:(ncol(l)-9)]            
  })

  output$plot <- renderPlot({ 
    #cat(input$hover$x, "\n")
    par(mar=c(0,0,0,0), xaxs='i', yaxs='i') 
    plot(c(0,1), c(0,1),axes=F, col="white")
    vps <- baseViewports()

    .tm <<- treemap(sel1(), 
                    index=c("Level.0","Level.1"),
                    vSize="X2015", vp=vps$plot)

  })
  output$record <- renderTable({
    getRecord()
  })
}

shinyApp(ui=ui, server=server)

不幸的是，对于某些变量（如“住房”或“运输”），悬停树形图仅显示“ Level.0”的值，而对于其他变量，它显示Level.1的值。

当我将鼠标悬停在树形图上时，我试图仅显示Level.1的值，并且我认为问题出在我不完全了解的tmLocate函数（或getRecord函数）之内。

可以找到数据集here

将鼠标悬停在Shinyapp中的树形图上未显示正确的值

0 个答案: