Question

基于this question，当鼠标悬停在模式栏上时，我还要更改其背景颜色。我看着CSS，但是找不到或更改相关部分。

这是一个可以测试的小闪亮应用程序：

library(shiny)
library(plotly)

ui <- fluidPage(
  plotlyOutput("plotly")
)

server <- function(input, output, session) {
  output$plotly <- renderPlotly({
    plot_ly(data = mtcars) %>% 
      add_markers(x=~mpg, y=~disp) %>% 
      layout(plot_bgcolor='transparent', paper_bgcolor='transparent')
  })
}

shinyApp(ui, server)

Answer 1

我将其设置为透明，但选项也不可见，因此我添加了颜色和活动颜色，请参见here。随时根据需要进行更改。

library(shiny)
library(plotly)

ui <- fluidPage(
    plotlyOutput("plotly")
)

server <- function(input, output, session) {
    output$plotly <- renderPlotly({
        plot_ly(data = mtcars) %>% 
            add_markers(x=~mpg, y=~disp) %>% 
            layout(plot_bgcolor='transparent', paper_bgcolor='transparent', 
                   modebar=list(bgcolor='transparent', color='blue', activecolor='green'))
    })
}

shinyApp(ui, server)

悬停时，透明地显示模式栏背景

1 个答案: