堆叠条形图中的r图例

我对R比较陌生，努力让我的传奇在正确的位置。我在网上看了一眼，但似乎还是不明白

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

我如上所述创建了一个表（表10），然后使用以下代码创建了一个堆叠比例条形图：

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，你尝试过你的原始<代码>传说（传说＝C（“Orth1”，“Orth2”，…））@ <代码>欢呼，弥敦-另一位同事建议使用PAR（扩展边距）和ARGS。

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