ggplot2：使用geom_bar绘制正确比例

Question

我正在尝试使用geom_bar和position = "dodge"绘制钻石的比例。 这是我所做的。

library(ggplot2)

ggplot(data = diamonds) + geom_bar(mapping = aes(x = cut))

下图告诉我每种cut类型有多少颗钻石。

现在，让我们做一些花哨的事情。

ggplot(data = diamonds) + geom_bar(mapping = aes(x = cut, fill = clarity), position = "dodge")

下图提供了按每种cut类型的clarity将钻石分组的计数。

我想做的是得到与上述相同的躲避图，但显示比例而不是数量 。

例如，对于cut=ideal且clarity = VS2 ，该比例应为5071/21551 = 0.23 。

Answer 1

你可以试试

library(tidyverse)
diamonds %>%
  count(cut, clarity) %>% 
  group_by(cut) %>% 
   mutate(Sum=sum(n)) %>% 
   mutate(proportion = n/Sum) %>% 
  ggplot(aes(y=proportion, x=cut,fill=clarity)) +
   geom_col(position = "dodge")

Answer 2

创建具有正确百分比（称为“百分比”）的列，然后使用

require(ggplot2)
require(scales)

ggplot(data = diamonds) + 
geom_bar(mapping = aes(x = cut, y = percentage, fill = clarity), position = "dodge") + 
scale_y_continuous(labels = scales::percent)

您还可以按照Maurits Evers的建议计算内联百分比。