如何将鼠标移到闪亮的 ggplot2 极坐标图中的标签上？

Question

我正在努力将鼠标悬停在闪亮的 ggplot 2 极坐标图的标签上。

我的代码的简单版本（没有鼠标悬停在标签上）：

library(dplyr)
library(shiny)
library(ggplot2)

# Define UI for application that plots features of iris
ui <- fluidPage(
  br(),

  # Sidebar layout 
  sidebarLayout(

    # Inputs

    sidebarPanel( 
    ),

    # Outputs
    mainPanel(  
      plotOutput(outputId = "radarplot"), 
      br()
    )
  )
)

# Define server function required to create the radarplot
server <- function(input, output) { 

  # Create radarplot with iris dataset 
  output$radarplot  <- renderPlot ({ 
    iris %>%
      ggplot(.) + geom_histogram(aes(y = Petal.Width, x = Species, fill = Species), 
                                 binwidth= 1,
                                 stat= 'identity', 
                                 alpha = 1 ) + 
      geom_histogram(aes(y = Sepal.Width,  x = Species, fill = Species),  
                                 binwidth= 1, 
                                 stat= 'identity',
                                 alpha = 0.3) + 
      coord_polar() 


  })

}

# Create a Shiny app object
shinyApp(ui = ui, server = server)

我使用 plotly 制作了一个版本，试图在标签上添加鼠标。但是后来我没有得到雷达图。

library(dplyr)
library(shiny)
library(ggplot2)
library(plotly)

# Define UI for application that plots features of iris
ui <- fluidPage(
  br(),

# Sidebar layout 
sidebarLayout(

# Inputs

    sidebarPanel( 
    ),

   # Outputs
      mainPanel(  
      plotlyOutput(outputId = "radarplot"), 
      br()
    )
  )
)

# Define server function required to create the radarplot
server <- function(input, output) { 

  # Create radarplot with iris dataset 
  output$radarplot  <- renderPlotly ({ 
    iris %>%
      ggplot(.) + geom_histogram(aes(y = Petal.Width, x = Species, fill = Species), 
                                 binwidth= 1,
                                 stat= 'identity', 
                                 alpha = 1 ) + 
      geom_histogram(aes(y = Sepal.Width,  x = Species, fill = Species),  
                                 binwidth= 1, 
                                 stat= 'identity',
                                 alpha = 0.3) + 
      coord_polar() 


  })

}

# Create a Shiny app object
shinyApp(ui = ui, server = server)

理想情况下，当鼠标悬停在特定物种 'wing' 上时，我希望鼠标悬停在标签上时给出关于 Petal.Width、Sepal.Width 和物种的输出。

有什么建议可以让这些鼠标悬停在标签上吗？

Answer 1

这是一个使用 ggiraph 包的例子。首先需要创建工具提示。

library(tidyverse)
iris_group_means <- 
  iris %>% 
  group_by(Species) %>% 
  summarise_all(mean) %>% 
  mutate(tooltip = sprintf("Sepal Length: %1.2f\nSepal Width: %1.2f\nPetal Length: %1.2f\nPetal Width: %1.2f",
                           Sepal.Length, Sepal.Width, Petal.Length, Petal.Width)) %>% 
  select(Species, tooltip)

然后只需要提供此工具提示作为美学，而不是 geom_histogram，请使用 ggiraph::geom_histogram_interactive 功能。

my_gg <- 
  iris %>%
  ggplot() + 
  geom_histogram(aes(y = Petal.Width, x = Species, fill = Species), 
                                      binwidth= 1, 
                                      stat= 'identity', 
                                      alpha = 1 ) + 
  ggiraph::geom_histogram_interactive(aes(y = Sepal.Width,  x = Species, fill = Species, tooltip = tooltip),
                 binwidth= 1,
                 stat= 'identity',
                 alpha = 0.3) +
  coord_polar() 
ggiraph::ggiraph(code = print(my_gg))

然后可以在 Shiny 中使用它。还涉及一些其他步骤，并且有一个单独的 ggiraph::renderggiraph 函数可供使用。详情在ggiraph site

这是最终的 Shiny 代码。我用的不多，所以这可能会有所改进，但它对我有用。

# Define UI for application that plots features of iris
ui <- fluidPage(
  br(),

  # Sidebar layout 
  sidebarLayout(

    # Inputs

    sidebarPanel( 
    ),

    # Outputs
    mainPanel(  
      ggiraph::ggiraphOutput(outputId = "radarplot"), 
      br()
    )
  )
)

# Define server function required to create the radarplot
server <- function(input, output) { 

  # Create radarplot with iris dataset 
  output$radarplot  <- ggiraph::renderggiraph ({ 
    iris_group_means <- 
      iris %>% 
      group_by(Species) %>% 
      summarise_all(mean) %>% 
      mutate(tooltip = sprintf("Sepal Length: %1.2f\nSepal Width: %1.2f\nPetal Length: %1.2f\nPetal Width: %1.2f",
                               Sepal.Length, Sepal.Width, Petal.Length, Petal.Width)) %>% 
      select(Species, tooltip)

    iris <- 
      left_join(iris, iris_group_means, by="Species")

    my_gg <- 
      iris %>%
      ggplot() + 
      geom_histogram(aes(y = Petal.Width, x = Species, fill = Species), 
                     binwidth= 1, 
                     stat= 'identity', 
                     alpha = 1 ) + 
      ggiraph::geom_histogram_interactive(aes(y = Sepal.Width,  x = Species, fill = Species, tooltip = tooltip),
                                          binwidth= 1,
                                          stat= 'identity',
                                          alpha = 0.3) +
      coord_polar() 

    ggiraph::ggiraph(code = print(my_gg))


  })

}

# Create a Shiny app object
shinyApp(ui = ui, server = server)

如何将鼠标移到闪亮的 ggplot2 极坐标图中的标签上？

How to get mouse over labels in a shiny ggplot2 polar plot?

r

mouseover

ggplot2

shiny

plotly