堆积条形图中的r-legend

Question

我对R来说比较新，并努力让我的传奇在正确的地方。我在网上看起来很好看，但似乎无法弄清楚。

#  rating no  yes
#    1   140  38
#    2   72   46
#    3   46   62
#    4   42   140
#    5   16   32

我创建了一个表格（tab10），然后使用以下代码创建了一个堆叠的比例条形图：

prop = prop.table(tab10,margin=2)
barplot(tab10, names.arg=c("Non-CBFM", "CBFM"), 
ylab="count", legend=c("much worse", "worse", "no change", "better", "much better"))

显然，图例放置是一个问题。

根据另一篇文章的建议，我创建了一个新的csv文件，将我的分类列列为名称（而不是转换为因子）。

然而，这一个按字母顺序排列评级栏，与原始比例（1-5）相反。

d3 <- read.csv("Water.csv")
attach(d3)
levels(CBFM)
#[1] "CBFM"     "Non-CBFM"
levels(Rating)
#[1] "better"      "much better" "much worse"  "no change"       "worse"      
data=Count
data=matrix(data,ncol=2,byrow=TRUE)
colnames(data)=levels(CBFM)
rownames(data)=levels(Rating)

#create table based on proportions of columns
prop = prop.table(data,margin=2)
barplot(prop, col=heat.colors(length(rownames(prop))), width=2)
legend("topright", inset=c(-0.25,0),             
fill=heat.colors(length(rownames(prop))),
legend=rownames(data))

有人能够提供帮助吗？

非常感谢！