从ggplot渲染值框

Question

我正在尝试开发一个闪亮的应用程序，我正在使用ggplot绘制图形。

我的图表采用堆积柱形图的形式。它填写了类别（是，否）。

我想使用“值”框在我的信息中心中呈现“是”和“否”的值。

有人能建议我怎么做。

我有用于生成绘图的服务器代码。我只需要知道，我如何从图表中生成价值。

任何有示例的领导都会有所帮助。

以下是服务器代码

output$mat <- renderPlot({
   data <- cl_count <- cl %>%
     filter(year(Date)> 2016 & year(Date)<2018)%>%
     group_by(Date, Code, Accepted) %>%
     summarise(count=n())


   ggplot(cl_count, aes(Date, count, fill=Accepted))+
     geom_bar(stat='identity')
 })

编辑：

cl <- data.frame(c(30.01.2017, 31.12.2017,2.01.2017,04.02.2016), c(Yes,No,Yes,No), c(2345, 3456, 54637))

以上是样本数据。

我已经获得了沿着x轴的年份和沿着Y轴的accpetance（是和否）的计数值的条形图。

通过上面的代码，我可以渲染一个情节。我想有一个带有值框的infoboxoutput，它可以从图中告诉Yes和No的计数值。随着图表的变化，计数应该改变。