從懸停文本中刪除列名

Question

如何從下面的圖中刪除cyl:的地址？

library(plotly) 
ggplotly(ggplot(mtcars, aes(mpg, hp, colour = cyl)) + geom_point(), 
     tooltip = c("colour")) 

Answer 1

有可能是一個更優雅的方式來做到這一點，但你可以嘗試：

b <- ggplotly(ggplot(mtcars, aes(mpg, hp, colour = cyl)) + geom_point(), 
      tooltip = c("colour")) 
p <- plotly_build(b) 
p$data[[1]]$text 
library(stringr) 
p$data[[1]]$text <- str_sub(p$data[[1]]$text,-2,-1) 
p 

你只需要替換的文字表明，當你通過別的懸停在您想。在你的例子中，我只是提取最後一位數字。

Answer 2

可以使用text審美沒有列名的顯示值：

library(plotly) 
ggplotly(ggplot(
    mtcars, 
    aes(mpg, hp, colour = cyl, text = cyl)) + geom_point(), 
    tooltip = c("text") 
)) 

您還可以使用text在字符串或造型粘貼，沒有出現爲「列名」這樣的代碼：

ggplotly(ggplot(
    mtcars, 
    aes(mpg, hp, colour = cyl, text = paste("Cylinders: ", cyl)) + 
    geom_point(), 
    tooltip = c("text") 
)) 

它沒有非常好的記錄，但請參閱here瞭解更多信息。