首页 文章

Histogram ggplot：显示每个类别的每个bin的计数标签

提问于
浏览 次
11

我将使用ggplot中的钻石数据集来说明我的观点，我想绘制一个直方图的价格，但我想显示每个切割的每个切割的计数这是我的代码

ggplot(aes(x = price ) , data = diamonds_df) + 
geom_histogram(aes(fill = cut , binwidth = 1500)) +
stat_bin(binwidth= 1500, geom="text", aes(label=..count..) , 
vjust = -1) + 
scale_x_continuous(breaks = seq(0 , max(stores_1_5$Weekly_Sales) , 1500 ) 
, labels = comma)

这是我目前的情节

enter image description here

但是当你看到数字显示每个箱子上所有切口的数量时，我想显示每个箱子上每个切口的数量 .

如果我能够配置Y轴而不是在步骤5000显示数字我可以手动配置的其他东西也是一个奖励点

r ggplot2

2 回答

  • 0

    ggplot2 2.x的更新

    您现在可以将标签置于堆叠条形图中，而无需使用 position=position_stack(vjust=0.5) 预先汇总数据 . 例如：

    ggplot(aes(x = price ) , data = diamonds) + 
  geom_histogram(aes(fill=cut), binwidth=1500, colour="grey20", lwd=0.2) +
  stat_bin(binwidth=1500, geom="text", colour="white", size=3.5,
           aes(label=..count.., group=cut), position=position_stack(vjust=0.5)) +
  scale_x_continuous(breaks=seq(0,max(diamonds$price), 1500))

    原始答案

    您可以通过将 cut 作为 group 美学添加到 stat_bin 来获取 cut 的每个值的计数 . 我还在 aes 之外移动了 binwidth ，这导致原始代码中的 binwidth 被忽略：

    ggplot(aes(x = price ), data = diamonds) + 
  geom_histogram(aes(fill = cut ), binwidth=1500, colour="grey20", lwd=0.2) +
  stat_bin(binwidth=1500, geom="text", colour="white", size=3.5,
           aes(label=..count.., group=cut, y=0.8*(..count..))) +
  scale_x_continuous(breaks=seq(0,max(diamonds$price), 1500))

    enter image description here

    上面代码的一个问题是我不知道如何在 stat_bin 内做到这一点，或者甚至可能 . 乘以0.8（或其他）将每个标签移动不同的相对量 . 因此，为了使标签居中，我在下面的代码中为标签创建了一个单独的数据框：

    # Create text labels
dat = diamonds %>% 
  group_by(cut, 
           price=cut(price, seq(0,max(diamonds$price)+1500,1500),
                     labels=seq(0,max(diamonds$price),1500), right=FALSE)) %>%
  summarise(count=n()) %>%
  group_by(price) %>%
  mutate(ypos = cumsum(count) - 0.5*count) %>%
  ungroup() %>%
  mutate(price = as.numeric(as.character(price)) + 750)

ggplot(aes(x = price ) , data = diamonds) + 
  geom_histogram(aes(fill = cut ), binwidth=1500, colour="grey20", lwd=0.2) +
  geom_text(data=dat, aes(label=count, y=ypos), colour="white", size=3.5)

    enter image description here

    要在y轴上配置中断，只需添加 scale_y_continuous(breaks=seq(0,20000,2000)) 或您想要的任何中断 .

    回复于
  • 15

    现在使用GGPLOT 2.2.0 position_stack选项使其更容易

    library(ggplot2)
s <- ggplot(mpg, aes(manufacturer, fill = class))
s + geom_bar(position = "stack") +  
    theme(axis.text.x = element_text(angle=90, vjust=1)) + 
    geom_text(stat='count', aes(label=..count..), position = position_stack(vjust = 0.5),size=4)
    回复于

相关问题