example_for_geom_segment.R

example1 <- tribble(~x, ~y, ~x_end, ~y_end,
                    0, 0, 1, 1,
                    1.5, 1, 2, 2,
                    3, 5, 4, 2)

example_pointed <- example1 %>% select(x,y) %>% 
  bind_rows(example1 %>% select(x_end, y_end) %>% set_names(c("x", "y")))

ggplot(example1, aes(x = x, y = y)) + 
  geom_segment(aes(x = x, y = y, xend = x_end, yend = y_end), lineend = "round") + 
  geom_point(data = example_pointed, inherit.aes = FALSE, aes(x = x, y = y), color = "red")