r - 如何绘制段的轮廓

Question

我正在使用 R 函数segments，想知道如何在段（轮廓）“周围”画出黑色。

plot(0)
segments(.9,.1,.8,.3, lwd=10, lend='square', col='pink')

在这里，我会在粉红色部分周围得到一个黑色矩形

Answer 1

您可以画两次，首先是黑色的大号 ( lwd=12)，然后是粉红色的小号 ( lwd=10)。

plot(0)
segments(.9,.1,.8,.3, lwd=12, lend='square', col='black')
segments(.9,.1,.8,.3, lwd=10, lend='square', col='pink')

Answer 2

这很混乱，但我还是把它放在了一起。

draw.rect <- function(x1=0.9,y1=0.1,x2=0.8,y2=0.3,width=0.05){
  ang <- atan((y2-y1)/(x2-x1))
  xshift <- width*sin(ang)
  yshift <- width*cos(ang)
  polygon(x=c(x1,x2,x2-xshift,x1-xshift),y=c(y1,y2,y2+yshift,y1+yshift),col="pink")
}

它将允许您使用相同的坐标。您可以使用 width 参数调整矩形的大小。我认为@VincentZoonekynd 有一个很棒的主意，可以将片段绘制两次。这个粗略的函数不会使矩形以提供的坐标为中心，尽管您可以很容易地调整它来做到这一点。