r - 从悬停文本中删除列名

Question

如何删除下cyl:图中的 hovertext 中的？

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")
)) 

它没有很好的记录，但请参阅此处了解更多信息。