使用工具提示或悬停显示总数答案

【问题标题】：showing total using tooltip or hovering使用工具提示或悬停显示总数
【发布时间】：2021-06-07 02:29:08
【问题描述】：

在这段代码的帮助下，我可以获得每个条的总数，但是如何使用悬停或工具提示功能显示这个总数

#Data
    hp=read.csv(textConnection(
      "class,year,amount
    a,99,100
    a,100,200
    a,101,150
    b,100,50
    b,101,100
    c,102,70
    c,102,80
    c,103,90
    c,104,50
    d,102,90"))
    hp$year=as.factor(hp$year)
   

d = ggplot(hp, aes(reorder(class, -amount, sum), amount, fill = year)) +
  geom_col() 
  #geom_text(aes(label = stat(y), group = class),stat = 'summary', fun = sum,vjust = -1)

ggplotly(d)

【问题讨论】：

您用ggplotly 标记了您的问题，但似乎根本没有使用该软件包？你有没有尝试过什么？ Base ggplot2 不允许悬停交互，但应该使用 ggplotly。这个现有的问题可能会有所帮助：stackoverflow.com/questions/34605919/…
我试过了，但它没有显示栏的总数@MrFlick

标签： r ggplot2 plotly ggplotly

【解决方案1】：

您可以在数据中使用sum 或amount 为每个class 创建一个新列：

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

plot1 <- hp %>%
  group_by(class, year) %>%
  summarise(amount = sum(amount)) %>%
  mutate(total_sum = sum(amount)) %>%
  ggplot(aes(class, amount, fill = year, text = total_sum)) +
  geom_col() +
  geom_text(aes(label = amount), vjust = -1, 
            position = position_stack(vjust = .5))


ggplotly(plot1, tooltip = 'text')

【讨论】：