横棒棒を横にして積み重ねてください

Question

私はバープロットを作成しようとします。それは同時に使用され、積み重ねられます。 I私は、ファセットで欲しいものに似ている何かを持っている：No1の、赤：NO 2、青：No] 3のとTRUE：0

tmp <- morley 
tmp$loc <- paste("No", tmp$Run %/% 2, sep="") 
tmp$group <- as.logical(tmp$Run %% 2) 
tmp$year <- tmp$Expt + 2000 
tmp$value <- tmp$Speed 
tmp <- subset(tmp, loc %in% c("No1", "No2", "No3")) 

ggplot(tmp, aes(x=loc, y=value, fill=group)) + 
    geom_bar(stat ='identity', position ='stack') + 
    facet_grid (~year) 

を私は面と2つの伝説（グリーンずにいることを望みます透明度は40％、透明度は40％）、x軸上の年、横の場所、およびグループが積み重ねられています。また、No1 true、No1 false、No2 true ...という6つのエントリを持つ伝説は大丈夫でしょう。

これを行う方法はありますか？

Answer 1

ggplot(tmp, aes(x=loc, y=value, fill=loc, alpha=group)) + 
    geom_bar(stat ='identity', position ='stack') + 
    scale_alpha_manual(values=c('TRUE'=1, 'FALSE'=0.6)) + 
    facet_grid(~year, switch='x') + 
    theme(axis.title.x=element_blank(), strip.placement='outside') 

次に、テーマを調整し、スケールを適切に入力します。