R ggplot barplot; İki ayrı değişkene göre doldurun

Question

Bir resim bin kelimeden fazla diyor. Gördüğünüz gibi, fill benim variable değişkenine dayanıyor.

Her çubukta, complexity ayrık değişkeninden bu yana birden çok veri öğesi (siyah kenarlık) vardır, bunları benzersiz kılar. Bulmaya çalıştığım şey, çubuğun her bölümünü mevcut görünümden daha ayrılabilir yapan bir şeydir. Gölgeleme gibi bir şey olsaydı tercih edilirdi. (Orijinal ithal edilmiş olduğu için, değil aynı veri kümesi) İşte

bir örnek:

dat <- read.table(text = "Complexity Method Sens Spec MMC 
1 L Alpha 50 20 10 
2 M Alpha 40 30 80 
3 H Alpha 10 10 5 
4 L Beta 70 50 60 
5 M Beta 49 10 80 
6 H Beta 90 17 48 
7 L Gamma 19 5 93 
8 M Gamma 18 39 4 
9 H Gamma 10 84 74", sep = "", header=T) 

library(ggplot2) 
library(reshape) 
short.m <- melt(dat) 
ggplot(short.m, aes(x=Method, y= value/100 , fill=variable)) + 
    geom_bar(stat="identity",position="dodge", colour="black") + 
    coord_flip() 

Answer 1

Bu mükemmel olmaktan uzak, ama umarım doğru yönde atılmış bir adımdır, butarafından kurtuldu oluyor olarak, ama yine de bir şekilde Complexity temsil yönetir:

ggplot(short.m, aes(x=Method, y=value/100, group=variable, fill=variable, alpha=Complexity,)) + 
    geom_bar(stat="identity",position="dodge", colour="black") + 
    scale_alpha_manual(values=c(0.1, 0.5, 1)) + 
    coord_flip() 

Answer 2

Chase söylediği gibi, bir tekrarlanabilir örnek olmadan emin olmak için, ama alpha=complexity ekleyerek işe yarayabilecek Sert :

ggplot(short.m, aes(x=Method, y= value/100 , fill=variable, alpha=complexity)) + 
geom_bar(stat="identity",position="dodge", colour="black") + coord_flip() 

Answer 3

Sen Method ve variable faktörleri ayırmak gerekebilir. İşte yapmanın iki yolu olduğunu:

Kullanım facet_wrap():

ggplot(short.m, aes(x=variable, y=value/100, fill=Complexity)) + 
    facet_wrap(~ Method) + geom_bar(position="stack", colour="black") + 
    scale_alpha_manual(values=c(0.1, 0.5, 1)) + coord_flip() 

kullanın x ekseni üzerinde hem:

ggplot(short.m, aes(x=Method:variable, y=value/100, group=Method, fill=variable, alpha=Complexity,)) + 
    geom_bar(stat="identity", position="stack", colour="black") + 
    scale_alpha_manual(values=c(0.1, 0.5, 1)) + coord_flip()