百分比 plot 使用 ggplot2

Question

我想 plot 類似於下圖，但我有一個錯誤“stat_count() 只能有 x 或 y 美學。”。 所以我把它改成stat="identity"。 但是結果和我在網上找到的例子不一樣。

網上找的例子：

示例來自： https://sebastiansauer.github.io/percentage_plot_ggplot2_V2/

我的代碼

  geom_bar(aes(y=pct_change, fill=factor(Year)), stat="count")+
  geom_text(aes( label = scales::percent(pct_change),
                 y= pct_change ), stat= "count", vjust = -.5) +
  ylab("Avg Unit Price")  +
  facet_grid(~Type.of.Sale) +
  scale_y_continuous(labels = scales::percent)

Answer 1

這是mtcars數據集的示例，您可以如何完成任務：

library(tidyverse)
ggplot(mtcars, aes(x = cyl, group=am))+
  geom_bar(aes(y=..prop.., fill=factor(..x..)), stat="count")+
  geom_text(aes( label = scales::percent(..prop..),
                 y= ..prop..), stat= "count", vjust = -.5) +
  ylab("Avg Unit Price")  +
  facet_grid(~am) +
  scale_y_continuous(labels = scales::percent)