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的建議計算內聯百分比。