正确指示R条形图中的图例

我看到一些帖子，上面有人问如何恰当地显示他们的故事情节。然而，所有这些人都有足够的空间来改变传说。在我的例子中，我没有那么多的空间，因为我用abline绘制的两条线需要整个空间。有人能告诉我如何放置我的传奇，例如，在这两行上（也非常感谢其他想法）

---

h1这里是一个手动更改，以阻止一条线穿过图例。只更改了最后一行代码

h1 <- 174
h2 <- 122

data.mlm = matrix(
  c(125,125,116,99,83,68,58,45,33,32,18,12,7,60,82,74,60,49,41,34,29,19,22,8,7,4),
  nrow=2,              # number of rows 
  ncol=13,              # number of columns 
  byrow = TRUE) 


colnames(data.mlm) <- c("1","2","3", "4","5","6", "7","8","9", "10","11","12", "13")
rownames(data.mlm) <- c("100% Sample","MLM Sample")


barplot(data.mlm, 
        col=colors()[c(180, 1)] , 
        border="black", 
        font.axis=1, 
        beside=T, 
        ylim=(c(0, 200)),
        legend=rownames(data.mlm), 
        args.legend = c(bg='white'),
        xlab="Measurement point",
        ylab="Number of observations per measurement point",
        font.lab=1,)



abline(122, 0, lty=2)
lines(c(0,25),c(174,174), lty=2)

h1这个怎么样：

barplot（data.mlm，
col=colors（）[c（180，1）]，
border=“黑色”，
font.axis=1，
除了=T，
ylim=（c（0200）），
#图例=行名（data.mlm），
xlab=“测量点”，
ylab=“每个测量点的观察次数”，
font.lab=1，）
图例（“右”，图例=c（“100%样本”，“传销样本”），
col=colors（）[c（180，1）]，fill=colors（）[c（180，1）]，cex=0.8）
abline（122,0，lty=2）
abline（174,0，lty=2）

将图例放置在绘图右侧的位置：
我实际上添加了行“args.legend=c（bg='white'）”以及我的第一次解决方案尝试。可以删除它，因为图例的透明度不是问题所在。创建图例后，将调用这些行。
h1 <- 174
h2 <- 122

data.mlm = matrix(
  c(125,125,116,99,83,68,58,45,33,32,18,12,7,60,82,74,60,49,41,34,29,19,22,8,7,4),
  nrow=2,              # number of rows 
  ncol=13,              # number of columns 
  byrow = TRUE) 


colnames(data.mlm) <- c("1","2","3", "4","5","6", "7","8","9", "10","11","12", "13")
rownames(data.mlm) <- c("100% Sample","MLM Sample")


barplot(data.mlm, 
        col=colors()[c(180, 1)] , 
        border="black", 
        font.axis=1, 
        beside=T, 
        ylim=(c(0, 200)),
        legend=rownames(data.mlm), 
        args.legend = c(bg='white'),
        xlab="Measurement point",
        ylab="Number of observations per measurement point",
        font.lab=1,)



abline(122, 0, lty=2)
lines(c(0,25),c(174,174), lty=2)