R ggplot barplot基于两个变量填充

Question

以下是我正在使用的示例数据框：

dat <- read.table(text = "Response Gene MAJOR SUB_CLONE
1 R DNMT3A 20 10
2 N DNMT3A 30 80
3 R BCOR 20 40
4 N BCOR 30 80", sep = "", header=T)

short.m <- melt(dat)

我想生成一个图表，其中我的y轴基于变量＆＃34; Gene / Response＆＃34;进行分组。颜色表示变量MAJOR或SUB_CLONE。

我目前正在使用以下代码，但是，geom_bar中的位置和stat正在将变量MAJOR和SUB_CLONE相互堆叠（如示例所示）。相反，我喜欢这样，例如第一行的高度为30（20为浅绿色，10为深绿色）。

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

我非常感谢你的帮助。

谢谢你， NF