如何在 R 的条形图中更改图例的位置？答案

【问题标题】：How to alter the position of a legend in a bar plot in R?如何在 R 的条形图中更改图例的位置？
【发布时间】：2018-09-10 16:08:51
【问题描述】：

我在 R 中生成了一个条形图，但图例几乎涵盖了所有情节。如何将其调整到不同的位置？例如剧情之外/剧情之外？

这是我的代码：

compare <- table(cats$color, cats$coat)
bar2 <- barplot(compare, legend = rownames(compare), main = 'Comparing coat design to color')
bar2

【问题讨论】：

【解决方案1】：

由于您没有提供数据示例，我们无法为您提供确切的设置，但一般建议如下：

如果您有一个较大的图例，您可以将其放置在绘图的边缘而不是绘图上方。为此，调整mar 使其有空间，并设置xpd = TRUE。这是mtcars 的示例：

df <- head(mtcars, 14)
par(mar = c(5.1, 4.1, 4.1, 9.1), xpd = TRUE)
barplot(df$mpg)
legend("topright", inset = c(-0.5, -0.3), rownames(df))

【讨论】：

这是数据集的样子："breed","sex","spay.neuter","coat","color" "domestic shorthair","Male","No ","虎斑","橙色" "国内短毛猫","女","无","虎斑","蓝色" "国内短毛猫","女","是","","白色" "国内mediumhair","Female","Yes","","black" "国内短毛猫","Male","No","","black" "国内短毛猫","Female","Yes","虎斑","棕色""国内短毛猫","女","是的","虎斑","棕色"