在ggplot2中用直线和箭头连接大的点

install.packages("ggplot2")
library(ggplot2)

data <- data.frame(
  x = c(1, 2, 3),  # 大的点的x坐标
  y = c(4, 5, 6),  # 大的点的y坐标
  start_x = c(1, 2, 3),  # 箭头起始点的x坐标
  start_y = c(4, 5, 6),  # 箭头起始点的y坐标
  end_x = c(2, 3, 1),  # 箭头终止点的x坐标
  end_y = c(5, 6, 4)  # 箭头终止点的y坐标
)

plot <- ggplot(data, aes(x, y)) + geom_point(size = 5)

plot <- plot + geom_segment(aes(x = start_x, y = start_y, xend = end_x, yend = end_y), 
                            arrow = arrow(length = unit(0.3, "cm")))

plot <- plot + labs(title = "Connecting Large Points with Lines and Arrows",
                    x = "X-axis", y = "Y-axis")

print(plot)