R中带有弹出窗口的直方图

我目前正在创建一个显示直方图的闪亮应用程序。我希望直方图显示两种不同的颜色：蓝色表示小于第三个四分位数的值，红色表示大于第三个四分位数的值。此外，我希望用户能够点击（或悬停在）一个特定的箱子上，并有一个弹出窗口显示直方图中包含的值的类型

例如，如果我有一个包含两列的数据集，其中一列是一种水果，另一列是一种特定水果的成本（每个水果的成本不一定相同），那么我想显示所有水果的水果价格直方图。每当成本值超过第三个四分位数时，我想更改直方图的颜色。棘手的是，我希望每当用户单击或将鼠标悬停在垃圾箱上时，都会出现一个弹出窗口，显示特定垃圾箱中每个水果的频率

我觉得可以使用ifelse（）修复颜色情况，但我不确定如何按照描述执行弹出窗口

理想情况下，我希望出现的弹出窗口应该是这样的：

Apple: 3
Banana: 2

下面是一个简短的示例代码，希望对您有所帮助：

Fruit <- c("Apple", "Apple", "Banana", "Grape", "Orange", "Grape", "Apple", "Banana", "Banana", "Banana")
Cost <- c(rep(sample(1:9), 1), 10)
Data <- as.data.frame(cbind(Fruit,Cost))
Data$Cost <- as.numeric(Data$Cost)

library(shiny)
ui <- fluidPage(

    titlePanel("Example Code"),

    sidebarLayout(
        sidebarPanel(
            sliderInput("bins",
                        "Number of bins:",
                        min = 1,
                        max = 50,
                        value = 30)
        ),

        mainPanel(
           plotOutput("distPlot")
        )
    )
)

# Define server logic required to draw a histogram
server <- function(input, output) {

    output$distPlot <- renderPlot({
        hist(Data$Cost, main = "Cost of Fruit", col = "skyblue", bins = sqrt(nrow(Data)))

    })
}

# Run the application 
shinyApp(ui = ui, server = server)

---

这里已经有了弹出窗口的好主意：对于弹出窗口，您可以从开始。可能重复的