geom_text 仅位于堆积条形图的顶部

Question

我只想在堆叠条形图的顶部有标签。

这是我的数据框：

#create data frame 
building <- c("Burj \nKhalifa", "Zifeng \nTower", "Bank of \nAmerica Tower", 
              "Burj Al Arab", "Emirates \nTower One", "New York \nTimes Tower",
              "Emirates \nTower Two", "Rose Rayhaan \nby Rotana", "The \nPinnacle", 
              "Minsheng \nBank Building")
occupiable<- c(585, 317, 235, 198, 241, 220, 213, 237, 265, 237)
nonoccupiable <- c(244, 133, 131, 124, 113, 99, 97, 96, 95, 94)
df.build <- data.frame(building, occupiable, nonoccupiable)

#melt data frame for stack bar plot
df.build2 <- melt(df.build, id.vars="building")

我的堆积条形图：

#comparision true and percived values
ggplot(df.build2, aes(x=reorder(building, -value), y=value, fill=variable)) +
  geom_bar(stat="identity") +
  xlab("") +
  ylab("") +
 #geom_text(aes(label = c("29%" "30%", "36%", "39%", "32%", "31%", "31%", "29%", "29%", "28%")), size = 3, hjust = 0.5, vjust = 3, position = "stack") +
  theme(legend.position="top") +
  ggtitle("Porównanie warto?ci prawdziwych i odczuwalnych") 

我想geom_text()在我的绘图代码中使用这样的标签（蓝色条的高度/整个条的高度）。它应该放在蓝色区域。我该怎么做？

Answer 1

有两个问题，您在标签向量的前两个元素之间缺少逗号；而且，你的标签向量太短了。即使您有看起来像 10 个条形，但实际上有 20 个（因为它们是堆叠的）。要解决此问题，请在标签之前添加 10 个空白字符串：

geom_text(
 aes(label = c(rep("",10),
 "29%", "30%", "36%", "39%", "32%", "31%", "31%", "29%", "29%", "28%")),
size = 3, hjust = 0.5, vjust = 3, position = "stack")

这使：