如何使用ggplot2在R中的geom_bar上放置标签

Question

我想在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%) 。 像这样：
_{（来源： skitch.com ）}

这可能吗？ 如果是这样，如何？

Answer 1

要在ggplot上绘制文本，请使用geom_text 。 但我发现首先使用ddply汇总数据ddply

dfl <- ddply(df, .(x), summarize, y=length(x))
str(dfl)

由于数据是预先汇总的，您需要记住更改添加stat="identity"参数到geom_bar ：

ggplot(dfl, aes(x, y=y, fill=x)) + geom_bar(stat="identity") +
    geom_text(aes(label=y), vjust=0) +
    opts(axis.text.x=theme_blank(),
        axis.ticks=theme_blank(),
        axis.title.x=theme_blank(),
        legend.title=theme_blank(),
        axis.title.y=theme_blank()
)

Answer 2

与 ggplot 中的许多任务一样，一般策略是以某种方式将您想要添加到图中的内容放入数据框中，以使变量与图中的变量和美学相匹配。 例如，您将创建一个新的数据框，如下所示：

dfTab <- as.data.frame(table(df))
colnames(dfTab)[1] <- "x"
dfTab$lab <- as.character(100 * dfTab$Freq / sum(dfTab$Freq))

以便x变量与df中的相应变量匹配，依此类推。 然后您只需使用geom_text包含它：

ggplot(df) + geom_bar(aes(x,fill=x)) + 
    geom_text(data=dfTab,aes(x=x,y=Freq,label=lab),vjust=0) +
    opts(axis.text.x=theme_blank(),axis.ticks=theme_blank(),
        axis.title.x=theme_blank(),legend.title=theme_blank(),
        axis.title.y=theme_blank())

此示例将仅绘制百分比，但您也可以通过以下方式将计数paste在一起：

dfTab$lab <- paste(dfTab$Freq,paste("(",dfTab$lab,"%)",sep=""),sep=" ")

请注意，在当前版本的 ggplot2 中，不推荐使用opts ，因此我们现在将使用theme和element_blank 。

Answer 3

另一种解决方案是在处理离散变量时使用stat_count() （和stat_bin()处理连续变量）。

ggplot(data = df, aes(x = x)) +
geom_bar(stat = "count") + 
stat_count(geom = "text", colour = "white", size = 3.5,
aes(label = ..count..),position=position_stack(vjust=0.5))

Answer 4

所以，这是我们最初的情节↓

library(ggplot2)

df <- data.frame(x=factor(c(TRUE,TRUE,TRUE,TRUE,TRUE,FALSE,FALSE,FALSE)))

p <- ggplot(df, aes(x = x, fill = x)) +
  geom_bar()
p

正如stat_count() -ning所建议的，我们可以使用stat_count() 。

geom_bar()默认使用stat_count() 。 正如 ggplot2 参考中提到的， stat_count()返回两个值： count表示 bin 中的点数， prop表示分组比例。 由于我们的组匹配 x 值，因此两个prop都是 1 并且没有用。 但是我们可以在geom_text()中使用实际表示条形高度的count （称为“..count..” geom_text() 。 请注意，我们还必须在geom_text()调用中包含“stat = 'count'”。

由于我们需要标签中的计数和百分比，因此我们需要在“标签”美学中进行一些计算和字符串粘贴，而不仅仅是“..count..”。 我更喜欢添加一行代码来从“scales”包（随“ggplot2”一起提供）创建一个包装百分比格式函数。

pct_format = scales::percent_format(accuracy = .1)

p <- p + geom_text(
    aes(
      label = sprintf(
        '%d (%s)',
        ..count..,
        pct_format(..count.. / sum(..count..))
      )
    ),
    stat = 'count',
    nudge_y = .2,
    colour = 'royalblue',
    size = 5
  )
p

当然，您可以进一步编辑带有colour 、 size 、微调、调整等的标签。