如何从ggplot2中的两个不同的二进制值列绘制百分比堆积条形图？

Question

我在食品数据框中有两个二进制值列，如下所示：

foods$veryHealthy:

"False" "False" "True"  "True"  "False" "False" "False" "True"  "False" "False" "True"  "False"

"True"  "False" "False" "True"  "False" "True"  "False" "False" "True"  "False" "False" "False" ...

foods$dairyFree:

"True"  "True"  "True"  "True"  "True"  "True"  "True"  "True"  "False" "True"  "True"  "False"

"True"  "False" "False" "True"  "True"  "True"  "True"  "False" "True"  "False" "True"  "True" ...

I want to get some plot like:

对于 x 轴而不是四个类别我想使用二进制值。

注意条的粗细如何根据每个类中的实例数而变化。

我尝试了以下代码，但没有得到结果：

ggplot(foods, aes(x=veryHealthy, y=dairyFree, fill=dairyFree)) + 
  geom_col(position = "fill")  

编辑：我必须使用 ggplot2 而不是任何内置或其他库。

Answer 1

我猜你正在寻找包ggmosaic 这里你可以找到vingette 的一些例子：

# dummy data
df <- data.frame(veryHealthy = c("False","False","True","True","False","False","False","True","False","False","True","False","True","False","False","True","False","True","False","False","True","False","False","False"),
                 dairyFree = c("True","True","True","True","True","True","True","True","False","True","True","False","True","False","False","True","True","True","True","False","True","False","True","True"))

library(ggplot2)
library(ggmosaic)

# simple implementation with your dummy data
ggplot2::ggplot(data = df) +
    ggmosaic::geom_mosaic(aes(x = product(veryHealthy, dairyFree), fill = veryHealthy ))

编辑：

也许这对你有用（使用与以前相同的虚拟数据）：

plot(table(df))

而here 你可以找到一些“手动”的方法