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

Question

我看到一些帖子有人问如何正确地标明他们的情节的传说。然而，所有这些人都有足够的 space 来改变传奇。就我而言，我没有那么多 space，因为我使用 abline 绘制的两条线要求整个 space。有人可以告诉我如何放置我的图例，例如在两条线上（也非常感谢其他想法）。

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), 
        xlab="Measurement point",
        ylab="Number of observations per measurement point",
        font.lab=1,)



abline(122, 0, lty=2)
abline(174, 0, lty=2)

Answer 1

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

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)

Answer 2

这个怎么样：

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

legend("right", legend=c("100% Sample", "MLM Sample"),
       col=colors()[c(180, 1)], fill=colors()[c(180, 1)], cex=0.8)


abline(122, 0, lty=2)
abline(174, 0, lty=2)

将图例定位在图的右侧：

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

Indicate legend in R barplot properly

r

bar-chart

yaxis