如果使用融化的 data.table，如何使用 ggplot2 向条形图添加标签？

Question

我用的是融化的data.table:

cat <- melt(as.data.table(insti), id.vars=c(1:3,11), measure.vars=4:10)

我用来创建情节的：

  ggplot(cat,
         aes(x=reorder(Llengua, -Publicacions),
             y=Publicacions, fill=Xarxa))+
  geom_bar(stat="identity")+#nº de publicacions
  theme_classic()+
  theme(axis.text.x=element_text(angle=90, hjust=0.8, vjust=0.5), legend.position="top")+
  labs(x="Llengua")+
  ggtitle("Catalunya")+
  geom_text(aes(label =Percentatge), vjust = 0.5)+
  theme(plot.title = element_text(hjust=0.5))+
  scale_fill_manual(values=col.Xarxa)+
  geom_hline(yintercept=0.333*sum(cat$Publicacions),
             linetype="dashed", color = "dark grey")

看起来像这样： enter image description here

我的问题是：如果每一列都来自几行的总和，我如何为每一列添加百分比或绝对值标签（不考虑颜色划分）？

我在 data.table 中添加了一个 Percentatge 列（原始），因此我的 x 值 Català 和 Espanyol 具有相同的百分比： enter image description here

但是当我尝试将标签添加到图表时，该数字重复出现的次数与构成条形的行数一样多，因此无法读取任何内容：

 p + geom_text(aes(label =Percentatge), vjust = 0.5)

enter image description here

我能做些什么来避免重复并设置它在栏上的位置？

Answer 1

使用这两个帖子我可以回答我的问题：

adding overlap data label over bar chart

要删除重叠部分，您可以在 geom_text() 中使用参数 check_overlaps=T。但是为了解决我的问题，我不得不创建一个新的数据框：

m3 <- aggregate(cat$Publicacions, by=list(Llengua=cat$Llengua), FUN = sum)
m3 <- as.data.frame(m3)

并像这样在 geom_text 中使用它：

 + geom_text(aes(x=Llengua, y=x, label=x), data=m3, vjust=-0.2)

如果使用融化的 data.table，如何使用 ggplot2 向条形图添加标签？

How can I add labels to bar chart with ggplot2 if using a melted data.table?

label

r

bar-chart

ggplot2

melt