为多个变量制作堆积条形图 - R中的ggplot2

Question

我在ggplot2中制作堆积条形图时遇到一些问题。我知道如何使用barplot（）创建一个，但我想使用ggplot2，因为很容易使条形高度相同（如果我没有弄错的话，'position ='fill''）。

我的问题是我有多个变量，我想在彼此之上绘制;我的数据如下：

dfr <- data.frame(
  V1 = c(0.1, 0.2, 0.3),
  V2 = c(0.2, 0.3, 0.2),
  V3 = c(0.3, 0.6, 0.5),
  V4 = c(0.5, 0.1, 0.7),
  row.names = LETTERS[1:3]
)

我想要的是在X轴上具有类别A，B和C的图，并且对于每个图，V1，V2，V3和V4的值在Y轴上彼此堆叠。我见过的大多数图表只在Y轴上绘制了一个变量，但我确信可以用某种方式做到这一点。

我怎么能用ggplot2做到这一点？谢谢！

Answer 1

首先，一些数据操作。将类别添加为变量并将数据融合为长格式。

dfr$category <- row.names(dfr)
mdfr <- melt(dfr, id.vars = "category")

现在绘制，使用名为variable的变量来确定每个条形的填充颜色。

library(scales)
(p <- ggplot(mdfr, aes(category, value, fill = variable)) +
    geom_bar(position = "fill", stat = "identity") +
    scale_y_continuous(labels = percent)
)

（编辑：代码已更新为使用scales个包，根据ggplot2 v0.9的要求。）

Answer 2

请原谅我发起新答案，而我真的只想对@Richie提供的漂亮解决方案发表评论。我没有发表评论的最低分，所以这是我的情况：

... + geom_bar(position="fill")为我的绘图投掷了一个错误，我正在使用ggplot2版本0.9.3.1。并且重塑2而不是重塑融化。

error_message:
*Mapping a variable to y and also using stat="bin".
  With stat="bin", it will attempt to set the y value to the count of cases in each group.
  This can result in unexpected behavior and will not be allowed in a future version of ggplot2.
  If you want y to represent counts of cases, use stat="bin" and don't map a variable to y.
  If you want y to represent values in the data, use stat="identity".
  See ?geom_bar for examples. (Deprecated; last used in version 0.9.2)
stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.
Error in pmin(y, 0) : object 'y' not found*

所以我将其更改为geom_bar(stat='identity')并且确实有效。

Answer 3

你也可以这样做

library(tidyverse)
dfr %>% rownames_to_column("ID") %>% pivot_longer(!ID) %>%
  ggplot() +
  geom_col(aes(x = ID, y = value, fill = name), position = 'fill')