将图例添加到ggalt::geom_dumbbell图并对y轴进行排序

# 安装并加载必要的包
if (!requireNamespace("ggplot2", quietly = TRUE)) install.packages("ggplot2")
if (!requireNamespace("ggalt", quietly = TRUE)) install.packages("ggalt")

library(ggplot2)
library(ggalt)

# 创建示例数据
data <- data.frame(
  Group = rep(c("A", "B"), each = 5),
  Category = rep(letters[1:5], 2),
  Value1 = c(10, 15, 20, 25, 30, 12, 18, 22, 27, 32),
  Value2 = c(14, 19, 24, 29, 34, 16, 21, 26, 31, 36)
)

# 创建哑铃图并添加图例
p <- ggplot(data, aes(x = Category, y = Value1, xend = Category, yend = Value2, color = Group)) +
  geom_dumbbell(size = 3, color = "#e31a1c", alpha = 0.6, size_x = 5, size_xend = 5) +
  scale_color_manual(values = c("A" = "#1f78b4", "B" = "#e31a1c")) +
  labs(title = "Dumbbell Chart with Legend and Sorted Y Axis",
       x = "Category",
       y = "Value",
       color = "Group")

# 对y轴进行排序
p <- p + scale_y_continuous(breaks = sort(unique(c(data$Value1, data$Value2))))

# 显示图形
print(p)