更改Plotly Colorbar標題

Question

我試圖在陰謀散點圖中更改顏色條的標題。

看着文檔，似乎這應該是微不足道的。不過，我已經嘗試將colorbar = list(title = "Typing Rate")插入主代碼plotly()，並將其管道編號爲layout()，如下所示。

我該如何定製這個標題？

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

df <- as.data.frame(list("UserID"=c(1,1,1,1,2,2,2,2), 
          "Category"=c('A','A','B','B','A','A','B','B'), 
          "Rate"=c(2,3,5,6,8,6,7,1), 
          "x"=c(1,3,5,7,2,4,6,8), 
          "y"=c(1,3,5,7,2,4,6,8) 
        )) 

ui <- (fluidPage(
    sidebarLayout(
    sidebarPanel(
     selectInput("userInput","Select User", sort(unique(df$UserID)), 
        selected=1), 
     checkboxGroupInput("CategoryInput", "Select Category", sort(unique(df$Category)), 
         selected=c('A','B')) 
    ), 

    mainPanel(
     plotlyOutput("mainPlot")#, 
    ) 
) 
)) 

server <- function(input, output, session) { 

    # filter for both user and category 
    filteredFull <- reactive({ 
     df %>% 
     filter(
      UserID == input$userInput, 
      Category %in% input$CategoryInput 
     ) 
    }) 

    output$mainPlot <- renderPlotly({ 
     plot_ly(data=filteredFull(), x=x, y=y, 
         color=Rate, size=Rate, 
         mode='markers') %>% 
     layout(
     colorbar = list(title = "Typing Rate") 
    ) 
    }) 
} 

shinyApp(ui, server) 

Answer 1

試試這個：

output$mainPlot <- renderPlotly({  
    m <- list(
    colorbar = list(title = "Typing Rate") 
) 
     plot_ly(data=filteredFull(), x=x, y=y, 
         color=Rate, size=Rate, 
         mode="markers", marker=m) 
    }) 

Answer 2

我在這裏結束了，而在JavaScript中尋找它。我知道OP在R中要求它;我爲那些想在JS中做同樣的事情添加這個答案。

var plotData8kW = [{ 
     z: data8kW, 
     hoverinfo:"z", 
     colorbar:{ 
      // len: 0.35, //Change size of bar 
      title: 'Speed(RPM)<br\><br\>', //set title 
      titleside:'top', //set postion 
      //tickvals:[0,50,100], 
      titlefont: {color: 'blue'} //title font color 
      }, 
     type: 'heatmap', 
     colorscale: enhancedScale, 
     }, 
];