r - ggplot2 の 2 つの異なるバイナリ値の列からパーセント積み上げ棒グラフを描画する方法は?

Question

次のように、foods データフレームに 2 つのバイナリ値の列があります。

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:

4 つのカテゴリではなく x 軸には、バイナリ値を使用したいと考えています。

各クラスのインスタンス数に基づいてバーの太さがどのように変化するかに注目してください。

次のコードを試しましたが、結果が得られませんでした。

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

編集:組み込みまたは他のライブラリではなく、ggplot2 を使用する必要があります。