R图例问题，点的符号被线遮盖

Question

有没有一种方法可以画线，使它们从点的一侧开始，或者使符号位于前景中？

我的解决方案是使符号更大，更可见。

编辑1：用于R程序的图{graphics}。

编辑2：每个热门请求的代码。

legend(2,.4,bty='n', c('sugar','citrus','none'), pch=c('s','c','u'), pt.bg='white',lty= c(1,2,3), lwd=1.5, title="Condition",pt.cex=c(1.5),cex=1.5)

编辑3：这是为plot（type ='b'）解决的，但对于图例来说不然。

谢谢阅读！

Answer 1

我唯一能想到的是手动设置虚线长度，直到它们最终看起来像您想要的样子。 例如，这：

> plot(1,1)
> legend(c("A", "B"), col = 1:2, x = 1, y = .8, lty="99", pch=1:2)

产生下面的图像。

lty参数允许您将线条和破折号的长度指定为十六进制字符。 在这种情况下，它说创建线路长度的9然后创建长度的空间9然后重复。 看起来9与正常pch符号周围的空间最合适。

请注意，您可能需要根据图像，符号等的大小进行调整。我的建议最终是从R导出图像并修饰图像以满足图形编辑软件中的需求。

Answer 2

您还可以使用R提供的填充点（pch = 21：25），并使用pc.bg指定填充颜色，该颜色会在创建图例时传递给points调用。

plot(1,1)
legend(c("A", "B"), col = 1:2, x = 1, y = .8, lty=1, pt.bg=1:2, pch=21:22)

生成以下内容：

Answer 3

遵循@JeffAllen的建议，这是一种获取我认为您可能想要的方法。 它需要修改legend()函数以返回点的位置（它们由body(legend)[[46]]的x1和y1给出）。

legend2 <- legend
body(legend2)[[49]] <- quote(
  invisible(list(rect = list(w = w, h = h, left = left, top = top),
  text = list(x = xt, y = yt), points = list(x = x1, y = y1)))
)

作图：

plot(-100:100, -100:100, type = "b")

绘制图例时，在线条上绘制白色圆圈（ pch = 21 ， pt.bg = 'white' ），然后将legend2()隐式返回的值分配给对象。 还要注意对pt.lwd和pt.cex的更改。

myLegend <- legend2(1, .8, bty = 'n', c('sugar','citrus','none'), pch = 21,
  pt.bg = 'white', pt.lwd = 0, lty = c(1, 2, 3), lwd = 1.5, title = "Condition",
  pt.cex = c(1.8), cex = 1.5)

最后，使用points()绘制要在图例中使用的字符，并从对象myLegend提供x和y值。

points(myLegend$points$x, myLegend$points$y, pch = c('s','c','u'), cex = 1.5)

这应该为您提供以下信息：