r - ggplot でペアの積み上げ棒グラフを生成します (いくつかの変数でのみ position_dodge を使用します)。

Question

ggplot2次のように、ペアで積み上げられたバーのセットを生成するために使用したいと考えています。

次の例のデータを使用します。

df <- expand.grid(name = c("oak","birch","cedar"),
        sample = c("one","two"),
        type = c("sapling","adult","dead"))
df$count <- sample(5:200, size = nrow(df), replace = T)

X 軸に木の名前を表し、樹種ごとに 2 本のバー (サンプル 1 に 1 本、サンプル 2 に 1 本) を表示したいと思います。次に、各バーの色をタイプ別に決定する必要があります。

次のコードは、タイプごとに色が付けられた積み上げ棒グラフを生成します。

ggplot(df, aes(x = name, y = count, fill = type)) + geom_bar(stat = "identity")

次のコードは、サンプルごとに覆い隠しバーを生成します。

ggplot(df, aes(x = name, y = count, group = sample)) + geom_bar(stat = "identity", position = "dodge")

しかし、グループ (サンプル) の 1 つをかわして、他のグループ (タイプ) をスタックすることはできません。

ggplot(df, aes(x = name, y = count, fill = type, group = sample)) + geom_bar(stat = "identity", position = "dodge")