# Create empty example plot
plot(0, 0, col = "white", xlab = "", ylab = "")
# Create data frame with line-values
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))
# Draw multiple lines
segments(x0 = multiple_segments$x0,
y0 = multiple_segments$y0,
x1 = multiple_segments$x1,
y1 = multiple_segments$y1)