plot
(0, 0, col =
"white"
, xlab =
""
, ylab =
""
)
multiple_segments <-
data.frame
(x0 =
c
(0.1, 0.2, - 0.7, 0.4, - 0.8),
y0 =
c
(0.8, 0.3, 0.5, - 0.4, 0.3),
x1 =
c
(0, 0.4, 0.5, - 0.5, - 0.7),
y1 =
c
(- 0.3, 0.4, - 0.5, - 0.7, 0.8))
segments
(x0 = multiple_segments$x0,
y0 = multiple_segments$y0,
x1 = multiple_segments$x1,
y1 = multiple_segments$y1)