如何为条形图中的每个条添加标签？

Question

我有以下数据df：

   type     operation  year    month    weekday
1  A1       AAAA       2011    11       Tue
2  A1       BBBB       2011    11       Mon
3  D3       AAAA       2012     1       Tue
4  A1       AAAA       2012     1       Thu
5  D3       DDDD       2012    11       Thu
6  D3       BBBB       2013     1       Wed

然后我需要按type和operation对这些数据进行分组，并计算每个组合的出现次数。我目前正在对df进行分组，如下所示：

grouped_data = aggregate(df,
                 list(type_names = df$type,
                      operation = df$operation),
                 FUN = function(x){NROW(x)})

然后我使用分组条形图绘制它：

ggplot(grouped_data, aes(type_names,type)) +   
  geom_bar(aes(fill = operation), position = "dodge", stat="identity")+
  coord_flip()

我的问题是如何为酒吧添加额外的标签？特别是，我将一些关于每个type的其他信息存储在一个名为add_data的单独数据框中。假设这是每种类型的流行度指数（pop_ind）。 如何将pop_ind值附加到每个相应的栏？