相关疑难解决方法(0)

我想在geom_bar图表上堆叠一些标签.这是一个例子:

df <- data.frame(x=factor(c(TRUE,TRUE,TRUE,TRUE,TRUE,FALSE,FALSE,FALSE)))
ggplot(df) + geom_bar(aes(x,fill=x)) + opts(axis.text.x=theme_blank(),axis.ticks=theme_blank(),axis.title.x=theme_blank(),legend.title=theme_blank(),axis.title.y=theme_blank())

现在

表(DF $ X)

FALSE  TRUE 
    3     5 

我想在两个酒吧的顶部有3和5.如果我也可以获得百分比值,那就更好了.例如3 (37.5%)和5 (62.5%).像这样:

这可能吗？如果是这样,怎么样？

我尝试在躲闪的条形图中添加位置geom_text中的文本 但是它不适用于我的简单数据

data=data.frame(s=c(10,13,17,8),
                pr=c("a","b","a","b"),
                m=c(rep(as.Date('01.01.2015','%d.%m.%Y'),2), rep(as.Date('01.02.2015','%d.%m.%Y'),2)))

和ggplot

ggplot(data = data 
       ,aes(x = m, y = s,fill=pr ,ymax = max(s)*1.1))+
  geom_bar(position = "dodge",stat="identity")+
  geom_text(aes(y=s/2,label=paste(round(s,3),"%")),position = position_dodge(width=1))+
  scale_x_date(labels = date_format("%m/%y"),breaks = date_breaks("months"))

我明白了

如何在正确的位置添加文本(在每个栏的中间)？谢谢!

我试图添加数据标签以显示给定x类别的y值的总和。这是我使用的代码：

library(ggplot2)
gg <- ggplot(vgsales, aes(x = Genre, y = Global_Sales, fill = Genre)) + 
geom_col() + 
geom_text(aes(x = Genre, y = Global_Sales, label = Global_Sales), stat = "sum")
print(gg)

这是我得到的结果：

我想将标签放置在每个条上方，并仅显示给定x的所有y值的总和。我该如何完成？

编辑：我试图使用提到的一些指南，结果是这样的：

因此，标签似乎相互重叠，并且报告了各个Global_Sales总和。有没有一种方法可以仅将流派的Global_Sales报告为标签？

我发现并被引导到许多帖子，显示如何将统计数据放置在 ggplot 中条形图的所有条形上方，但我还没有找到一个显示如何仅显示条形图中一个条形上方的计数/百分比的帖子。

• 如何使用 ggplot2 将标签放在 R 中每个条形的 geom_bar 上
• 如何使用ggplot2在R中的geom_bar上放置标签
• 上面的注释栏：
• 如何在百分比条形图上方添加百分比或计数标签？

例如下面的图：

ggplot(mtcars, aes(x = gear)) + geom_bar() +
  geom_text(stat='count',aes(label=..count..),vjust=-1)

我怎样才能在中间栏上方打印“12”并禁止打印“5”和“15”。我想显示上面计数的条形图会因图而异（例如，在另一个图中，我想显示 5 个条形图中第四大条形上方的统计数据）。

这是一个条形图：

ggplot(mtcars) +
  geom_bar(aes(x = reorder(factor(cyl), mpg), y = mpg), stat="identity") +
  coord_flip()

应该产生这个：

我想在最后添加标签，显示每个条形中 mpg 的总值。例如，仅从眼球上看，4cyl 就在 290 左右。我想为条形添加一个显示确切数字的标签。

我想尝试一下，看看它们的外观，所以为了完整性：

• 在酒吧的顶部里面
• 在顶部的酒吧外面
• 奖励是我能够控制标签是垂直还是水平显示。

我找到了这篇SO 帖子，但一直在努力复制所选的答案。这是我的尝试：

ggplot(mtcars) +
  geom_bar(aes(x = reorder(factor(cyl), mpg), y = mpg), stat="identity") +
  coord_flip() +
  geom_text(aes(label = mpg))

这给出了一个错误：

错误：geom_text 需要以下缺失的美学：x, y

如何在条形末端添加标签？