r - セグメントの輪郭を描く方法

Question

私はR関数を使用していますsegmentsが、セグメント（輪郭）の「周り」を黒で描く方法を知りたいです。

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

ここでは、ピンクのセグメントの周りに黒い長方形が表示されます

Answer 1

これはかなり厄介ですが、とにかくまとめました。

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 引数で四角形のサイズを調整できます。@VincentZooonekynd は、セグメントを 2 回描画するという素晴らしいアイデアを持っていると思います。この大まかな関数は、提供された座標で長方形を中央に配置しませんが、そのように調整することは非常に簡単です。