在 R 中添加和对齐频率标签到 100% 堆叠条形图

Question

我正在尝试将带有频率信息（不是百分比）的标签添加到 R 中的 100% 堆叠条形图。

我在将标签集中在条形图的正确部分上时遇到问题。我正在使用下面的代码。我认为position=position_fill(vjust=-0.5) 会适当地将标签居中，但显然仅此还不够。

library(ggplot2)

df <- matrix(c('A','A','A','A','B','B','B','B','p','q','r','s','p','q','r','s',81,32,21,75,42,21,95,72),ncol=3)
colnames(df)=c("ID","Class","Frequency")
df<-as.data.frame(df)

fig <-ggplot(df,aes(fill=Class,y=Frequency,x=ID)) + geom_bar(position=position_fill(reverse=TRUE),stat="identity")
fig <- fig + coord_flip()
fig <- fig + geom_text(aes(label=Frequency),position=position_fill(vjust=-0.5))

任何和所有的援助都是最合适的。

Answer 1

我们可以这样做：

library(ggplot2)
library(dplyr)

df %>% 
  mutate(Frequency = as.numeric(Frequency)) %>% 
  ggplot(aes(x = ID, y= Frequency, fill=Class)) +
  geom_col(position = position_stack(reverse = TRUE))+
  coord_flip() +
  geom_text(aes(label = Frequency),
            position = position_stack(reverse = TRUE, vjust = .5), size=6)