R ggplot barplot; Relleno basado en dos variables separadas

Question

Una imagen dice más de mil palabras. Como puede ver, mi fill se basa en la variable variable. Sin embargo

Dentro de cada bar hay ya que la variable discreta de datos múltiples entidades (bordes negros) complexity que sean únicos. Lo que estoy tratando de encontrar es algo que hace que cada sección de la barra sea más distinguible que el aspecto actual. Preferible sería si fuera algo así como sombreado.

He aquí un ejemplo (no el mismo conjunto de datos, ya que se importó el original):

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

Esto está lejos de ser perfecto, pero es de esperar un paso en la dirección correcta, ya que es esquivado por variable, pero se las arregla para representar Complexity de alguna manera:

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

difícil estar seguro sin un ejemplo reproducible, como se dijo Chase, pero añadiendo alpha=complexity podría funcionar :

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

Puede que sea necesario separar sus Method y variable factores. Aquí hay dos maneras de hacerlo:

Uso 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() 

uso tanto en el eje X:

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()