r - 与 ggplot geom_bar 的比例

Question

这个问题已经有答案了:

Create stacked barplot where each stack is scaled to sum to 100% (5 个回答)

已关闭 5 年前。

使用 ggplot 的最简单方法是什么，与此处相同:

我需要调用 prop.table 还是有更简单的方法？

可重现的示例:

x <- c("good", "good", "bad", "bad", "bad", "bad", "perfect", "perfect", "perfect")
y <- c("exercise1", "exercise2", "exercise3", "exercise1", "exercise2", "exercise3", "exercise1", "exercise2", "exercise3")
dt <- data.frame(x, y)

ggplot(dt, aes(x, fill = y)) + geom_bar()

Answer 1

这是一个与上一个类似的问题 here 。您可以在 ggplot 中使用 position = "fill" 参数将条形缩放至 100% 高度。 scale_y_continuous(labels = scales::percent) 命令将频率范围从 0-1 更改为 0-100%。

library(ggplot2)

x <- c("good", "good", "bad", "bad", "bad", "bad", "perfect", "perfect", "perfect") 
y <- c("exercise1", "exercise2", "exercise3", "exercise1", "exercise2", "exercise3", "exercise1", "exercise2", "exercise3") 
dt <- data.frame(x, y)

# Build plot
ggplot(dt, aes(x, fill = y)) +
  geom_bar(position = "fill") +
  scale_y_continuous(labels = scales::percent)