web-dev-qa-db-ja.com

光沢のあるggplotにマウスオーバーしたときのツールチップ

光沢のあるアプリケーションを構築しています。

Ggplotを使用してグラフをプロットしています。

グラフ上のポイントにマウスを重ねると、データフレームの列の1つを表示するツールチップが必要になります（カスタマイズ可能なツールチップ）

今後の最善の方法を提案してください。

シンプルなアプリ：

# ui.R

shinyUI(fluidPage(
 sidebarLayout(
    sidebarPanel(
        h4("TEst PLot")),
    mainPanel(
        plotOutput("plot1")
    )
)
))

# server.R

library(ggplot2)
data(mtcars)

shinyServer(
function(input, output) {
    output$plot1 <- renderPlot({
        p <- ggplot(data=mtcars,aes(x=mpg,y=disp,color=factor(cyl)))
        p <- p + geom_point()
        print(p)
    })
}
)

ポイントの上にマウスを置くと、mtcars $ wtが表示されます。

rggplot2shinytooltipmouseover
21
guna

質問を正しく理解していれば、ggplot2とベースパッケージの両方のshinyパッケージの最近の更新でこれを達成できます。 Winston ChangとJoe Chengのこの例を使用して http://shiny.rstudio.com/gallery/plot-interaction-basic.html を使用すると、この問題を解決できました。 HoverはplotOutput（）への入力引数になったため、veratimTextOutputとともにuiに追加され、ホバーされたポイントのmtcars $ wtを表示します。

サーバーでは、基本的に、マウスからプロット内の任意のポイントまでの距離を計算する距離ベクトルを作成し、この距離が3未満の場合（このアプリケーションで動作します）、マウスに最も近いポイントのmtcars $ wtを表示します。明確にするために、input $ plot_hoverはマウスの位置に関する情報のリストを返し、この例ではinput $ plot_hoverからx要素とy要素のみが抽出されます。

library(ggplot2)
library(Cairo)   # For nicer ggplot2 output when deployed on Linux

ui <- fluidPage(
    fluidRow(
        column(width = 12,
               plotOutput("plot1", height = 350,hover = hoverOpts(id ="plot_hover"))
        )
    ),
    fluidRow(
        column(width = 5,
               verbatimTextOutput("hover_info")
        )
    )
)

server <- function(input, output) {


    output$plot1 <- renderPlot({

        ggplot(mtcars, aes(x=mpg,y=disp,color=factor(cyl))) + geom_point()

    })

    output$hover_info <- renderPrint({
        if(!is.null(input$plot_hover)){
            hover=input$plot_hover
            dist=sqrt((hover$x-mtcars$mpg)^2+(hover$y-mtcars$disp)^2)
            cat("Weight (lb/1000)\n")
            if(min(dist) < 3)
                mtcars$wt[which.min(dist)]
        }


    })
}
shinyApp(ui, server)

これがお役に立てば幸いです！

17
Sölvi

少しのJQueryと条件付きrenderUIを使用して、ポインターの近くにカスタムツールチップを表示することもできます。

library(shiny)
library(ggplot2)

ui <- fluidPage(

  tags$head(tags$style('
     #my_tooltip {
      position: absolute;
      width: 300px;
      z-index: 100;
     }
  ')),
  tags$script('
    $(document).ready(function(){
      // id of the plot
      $("#plot1").mousemove(function(e){ 

        // ID of uiOutput
        $("#my_tooltip").show();         
        $("#my_tooltip").css({             
          top: (e.pageY + 5) + "px",             
          left: (e.pageX + 5) + "px"         
        });     
      });     
    });
  '),

  selectInput("var_y", "Y-Axis", choices = names(mtcars), selected = "disp"),
  plotOutput("plot1", hover = hoverOpts(id = "plot_hover", delay = 0)),
  uiOutput("my_tooltip")
)

server <- function(input, output) {

  data <- reactive({
    mtcars
  })

  output$plot1 <- renderPlot({
    req(input$var_y)
    ggplot(data(), aes_string("mpg", input$var_y)) + 
      geom_point(aes(color = factor(cyl)))
  })

  output$my_tooltip <- renderUI({
    hover <- input$plot_hover 
    y <- nearPoints(data(), input$plot_hover)[ ,c("mpg", input$var_y)]
    req(nrow(y) != 0)
    verbatimTextOutput("vals")
  })

  output$vals <- renderPrint({
    hover <- input$plot_hover 
    y <- nearPoints(data(), input$plot_hover)[ , c("mpg", input$var_y)]
    # y <- nearPoints(data(), input$plot_hover)["wt"]
    req(nrow(y) != 0)
    # y is a data frame and you can freely edit content of the tooltip 
    # with "paste" function 
    y
  })
}
shinyApp(ui = ui, server = server)

編集済み：

この投稿の後、インターネットを検索して、もっとうまくできるかどうかを確認し、 this ggplotのすばらしいカスタムツールチップを見つけました。それ以上にうまくやることはできないと思います。

12
Michal Majka

plotlyを使用すると、ggplotをインタラクティブなバージョンに変換することができます。 ggplotlyオブジェクトで関数ggplotを呼び出すだけです：

library(plotly)

data(mtcars)

shinyApp(
ui <- shinyUI(fluidPage(
  sidebarLayout(sidebarPanel( h4("Test Plot")),
    mainPanel(plotlyOutput("plot1"))
  )
)),

server <- shinyServer(
  function(input, output) {
    output$plot1 <- renderPlotly({
      p <- ggplot(data=mtcars,aes(x=mpg,y=disp,color=factor(cyl)))
      p <- p + geom_point()

      ggplotly(p)
    })
  }
))

shinyApp(ui, server)

ツールチップに表示される内容のカスタマイズについては、たとえば ここ 。

enter image description here

2
shosaco

私は同僚と一緒に GGTips （CRANにはない）と呼ばれるパッケージをリリースし、プロットにツールチップを追加しました。 ggplot2と100％互換性のないplotlyを使用して複雑なプロットを再作成するのに問題があるため、独自のソリューションを作成しました。 Gitリポジトリには、オンラインデモへのリンクがあります。

enter image description here

0
jcubic