使用title.adj在标题中标题的位置

Question

我正在尝试使用title.adj为x和y方向将我的图例标题置于“居中”位置。然而，标题显示两次（一次在正确位置，一次在错误的x位置）。 任何人都可以帮我删除第二个“错误的”标题吗？ 这是一个例子：

plot(c(1,2), pch=20)
legend("topleft", legend="text", pch=20, col="red", title="double-title", title.adj=c(0.4, 0.2))

Answer 1

标题调整仅适用于水平，但如果您确实需要，则无法阻止您创建自己的图例功能。 我创建了legend.enhanced，接受title.adj作为双向量数组。

示例输出 - 第一列是原始legend，第二列是legend.enhanced - 右下图是您想要的 - 它按指定X和{{调整标题1}}值。 （第二个选项是自己手动绘制图例。）

Y

制作一个地块：

代码：

par(mfrow=c(2,2))

plot(c(1,2), pch=20)
legend("topleft", legend="text", pch=20, col="red", title="double-title A B C",
       title.adj=c(0.4))

plot(c(1,2), pch=20)
legend.enhanced("topleft", legend="text", pch=20, col="red", title="double-title A B C",
       title.adj=c(0.4))


plot(c(1,2), pch=20)
legend("topleft", legend="text", pch=20, col="red", title="double-title A B C",
       title.adj=c(0.4,0.5))

plot(c(1,2), pch=20)
legend.enhanced("topleft", legend="text", pch=20, col="red", title="double-title A B C",
                title.adj=c(0.4,1))