r - 条形上方的注释 :

Question

ggplot 中的闪避条形图再次让我难倒。几周前，我询问了关于在条形上方注释文本的问题( LINK )，使用 + stat_bin(geom="text", aes(label=..count.., vjust=-1)) 得到了很好的回应。 .我想，因为我已经有了计数，所以我将不提供 .. 来提供它们。前后和我说stat_bin position是 dodge .它将它们排列在组的中心并上下调整。大概是小事。请帮我把文字越过条形。

mtcars2 <- data.frame(type=factor(mtcars$cyl), 
    group=factor(mtcars$gear))
library(plyr); library(ggplot)
dat <- rbind(ddply(mtcars2,.(type,group), summarise,
    count = length(group)),c(8,4,NA))

p2 <- ggplot(dat,aes(x = type,y = count,fill = group)) + 
    geom_bar(colour = "black",position = "dodge",stat = "identity") +
    stat_bin(geom="text", aes(position='dodge', label=count, vjust=-.6)) 

Answer 1

我在让位置闪避对齐时遇到了麻烦，所以我最终创建了一个 position_dodge 对象(这是正确的术语吗？)，将其保存到一个变量中，然后将其用作两个几何体的位置。有点令人气愤的是，他们似乎仍然有点偏离中心。

dodgewidth <- position_dodge(width=0.9)
ggplot(dat,aes(x = type,y = count, fill = group)) + 
  geom_bar(colour = "black", position = dodgewidth ,stat = "identity") +
  stat_bin(geom="text", position= dodgewidth, aes(x=type, label=count), vjust=-1)