首先对您的数据进行排序。为了更好地控制图例位置,请将其分开。
示例
df1 <- mtcars[grep("^Merc", rownames(mtcars)), c(1, 2)]
df1 <- df1[order(df1$mpg), ] # this orders your data by "mpg", look into `?order`
# plot
barplot(t(df1), col=c("blue", "green"), border="white", font.axis=2,
beside=TRUE, xlab="group", font.lab=2)
legend("topleft", legend=c("mpg", "cyl"), pch=15, col=c("blue", "green"))
注意:
如文档所述,还有其他可能的字符串来指定图例位置:
The location may also be specified by setting x to a single keyword from
the list "bottomright", "bottom", "bottomleft", "left",
"topleft", "top", "topright", "right" and "center".
您还可以指定精确坐标,请参阅?legend。