R：ggplot2 - Label会像模糊一样打印每一行，而不仅仅是值的总和

Question

我只需要将每个栏顶部的“会话”总和。但我得到这个：

这是我的代码：

ggplot(VisitasData, aes(factor(Fuentes), sessions, fill = Fuentes)) + 
        geom_bar(stat="identity", position = "dodge") +
        geom_text(aes(label = comma(sessions)), position=position_dodge(width=0.9), vjust=-0.25) +
        scale_fill_manual(breaks = c("0", "1", "3", "6", "9"),
                          labels = c("Directo", "Email", "References",
                                     "SEO", "Social Media"),
                          values = c("#E69F00", "#56B4E9", "#009E73", 
                                     "#F0E442", "#0072B2"))

Answer 1

我不能确定没有看到你的数据，但这里似乎正在发生的事情，用一些假数据说明：

# Fake data
set.seed(23)
dat = data.frame(cat=rep(LETTERS[1:3], each=4), value=sample(100:1000, 12))

   cat value
1    A   619
2    A   300
3    A   398
4    A   738
5    B   835
6    B   479
7    B   962
8    B   974
9    C   850
10   C   988
11   C   871
12   C   724

# Analogous to your plot
ggplot(dat, aes(cat, value, fill=cat)) +
  geom_bar(stat="identity", position="dodge", alpha=0.25) + 
  geom_text(aes(label=value))

上面发生的是ggplot为每一行数据添加了一个栏。结果，有四个条形图被过度绘制，正如您所看到的那样，因为alpha=0.25参数使条形图透明。 ggplot执行此操作是因为stat="identity"告诉ggplot按原样获取数据而不应用任何转换。但是如果没有stat="identity"，geom_bar会抛出错误，因为stat的默认geom_bar是stat="bin"（意味着创建行计数的直方图），你可以将变量映射到y并使用stat="bin"（并且直方图不是您想要的）。

相反，您需要告诉ggplot先对每个类别中的值求和，然后绘制总和。例如：

ggplot(dat, aes(cat, value, fill=cat)) +
  stat_summary(fun.y=sum, geom="bar", position="dodge") + 
  stat_summary(fun.y=sum, geom="text", aes(label=..y..))

您还可以在ggplot之外创建摘要数据框，然后将摘要数据框提供给ggplot。然后你可以使用geom_bar(stat="identity")来获得你想要的条形图。