每个州有两条geom_segment线的ggplot2点图

# 导入ggplot2包
library(ggplot2)

# 准备数据
data <- data.frame(
  state = c("State A", "State B", "State C"),
  x1 = c(1, 2, 3),
  y1 = c(1, 2, 3),
  x2 = c(4, 5, 6),
  y2 = c(4, 5, 6)
)

# 创建ggplot对象
p <- ggplot(data)

# 添加点图层
p <- p + geom_point(aes(x = x1, y = y1), color = "blue", size = 3)
p <- p + geom_point(aes(x = x2, y = y2), color = "red", size = 3)

# 添加线段图层
p <- p + geom_segment(aes(x = x1, y = y1, xend = x2, yend = y2), color = "black", size = 1)

# 设置图形属性
p <- p + labs(title = "每个州有两条geom_segment线的ggplot2点图", x = "X轴", y = "Y轴")
p <- p + theme_minimal()

# 显示图形
print(p)