如何在 R 中创建 (100%) 堆叠直方图？

Question

我的数据集：

我有以下格式的数据（此处是从 CSV 文件导入）。您可以在此处找到 CSV 格式的示例数据集。

PAIR   PREFERENCE
1      5
1      3
1      2
2      4
2      1
2      3

… 等等。总共有 19 对，PREFERENCE 范围为 1 到 5，为离散值。

---

我想要实现的目标：

我需要的是每对的堆叠直方图，例如 100% 高的列，指示 PREFERENCE 值的分布。

类似于 Excel 中的“100% 堆叠列”，或者（虽然不完全相同，所谓的“马赛克图”）：

---

我尝试过的：

我认为使用 ggplot2 是最简单的，但我什至不知道从哪里开始。我知道我可以创建一个简单的条形图，其中包含以下内容：

ggplot(d, aes(x=factor(PAIR), y=factor(PREFERENCE))) + geom_bar(position="fill")

……但这并不能让我走得太远。所以我尝试了这个，它让我更接近我想要实现的目标，但我想它仍然使用 PREFERENCE 的计数？请注意，此处的 ylab 为“count”，值范围为 19。

qplot(factor(PAIR), data=d, geom="bar", fill=factor(PREFERENCE_FIXED))

结果为：

• 那么，我需要做什么才能让堆积条形图表示直方图？
• 或者他们实际上已经这样做了吗？
• 如果是这样，我需要更改什么才能使标签正确（例如使用百分比而不是“计数”）？

_{顺便说一句，这与这个问题并没有真正的关系，与这个（即可能相同的想法，但不是连续值，而是分组为条形）。}

Answer 1

也许您想要这样的东西：

ggplot() + 
    geom_bar(data = dat,
             aes(x = factor(PAIR),fill = factor(PREFERENCE)),
             position = "fill")

我将您的数据读入dat。这会输出类似这样的内容：

y 标签仍然是“count”，但您可以通过以下方式手动更改：添加：

+ scale_x_discrete("Pairs") + scale_y_continuous("Votes")