r-在ggplot直方图上显示具有观察总数百分比的工具提示

Question

我有一个直方图，我希望工具提示显示该bin中观察值的百分比。

这里有一个简单的(可复制的(直方图：

library(tidyverse)
library(ggplot2)
library(plotly)
 
hist <- iris %>%
  ggplot(aes(x = Sepal.Length)) +
  geom_histogram(bins = 20)
 
hist %>%
  ggplotly(
    # This gives hoverover the count and the variable, but I'd like it
    # to also have the percent of total observations contained in that bin
    tooltip=c("count", "Sepal.Length")
  )

与"；计数"；以及"；Sepal.Length"；，我还想在工具提示中显示观察总数的百分比。

例如，最左边的仓(包含4个观测值(的值应为2.7%(4/150(

Answer 1

我会尝试在ggplot中使用text参数，并将其设置为计数除以所有计数的总和。使用sprintf可以获得所需的格式。在您的tooltip参考text中。

library(tidyverse)
library(ggplot2)
library(plotly)
hist <- iris %>%
ggplot(aes(x = Sepal.Length, 
text = sprintf("Percent: %0.1f", ..count../sum(..count..) * 100))) +
geom_histogram(bins = 20)
hist %>%
ggplotly(
tooltip=c("count", "text", "Sepal.Length")
)