r - 小节上方的注释:

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))

最佳答案

我在使位置闪避对齐时遇到麻烦，因此最终创建了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)

关于r - 小节上方的注释:，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/10327267/