グループ化された棒グラフ、1つの数値と3つの階級変数

Question

次の問題があります。私は3つの係数変数と1つの数値変数をバープロットする必要があります。

マイセット：

Site,Gall,Status,Count 
Site1,absent,unhealthy,35 
Site1,absent,healthy,1750 
Site1,present,unhealthy,23 
Site1,present,healthy,1146 
Site2,absent,unhealthy,146 
Site2,absent,healthy,1642 
Site2,present,unhealthy,30 
Site2,present,healthy,333 

私はggplotを使用してみましたが、しかしそれは私だけで、X、Y、および1つ以上のオプションを定義することができますので、私は=ガルの塗りつぶしを使用していました。

私のコードは次のように見えますが、私はまだ1つの要因変数がありません。

ggplot(dat, aes(Status, Count, fill = Gall)) + 
    geom_bar(stat = "identity", position = "dodge") 

誰でも教えてください。

ありがとう、ありがとうございました

Answer 1

いくつか解決策があります。あなたは2つの要素によって充填に意図されている場合は、interactionを使用することができます。一般的には

ggplot(dat, aes(Status, Count)) + 
    geom_col(aes(fill = interaction(Site, Gall)), position = "dodge") 

しかし、それは複数の要因のためにファセットを使用することをお勧めします。たとえば：

ggplot(dat, aes(Status, Count)) + 
    geom_col(aes(fill = Gall), position = "dodge") + facet_grid(Site ~ .) 

Answer 2

あなたは代わりに、バーのポイントを持つ方が良いかもしれません。たとえば：

library(dplyr) 
library(ggplot2) 

ggplot(dat %>% mutate(Site = gsub("([0-9]$)", " \\1", Site)), 
     aes(Status, Count, colour=Status, shape=Gall)) + 
    geom_point(size=3, position=position_dodge(0.5), stroke=1) + 
    facet_grid(~ Site, switch="x") + 
    theme_classic() + 
    theme(strip.placement = "outside", 
     strip.background=element_blank()) + 
    scale_colour_manual(values=hcl(c(195,15),100,65)) + 
    scale_shape_manual(values=c(1,16)) + 
    labs(x="") + 
    guides(colour=FALSE)