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

基础概念

ggalt::geom_dumbbell 是一个用于创建哑铃图的函数，通常用于显示两组数据之间的差异。哑铃图由两个点（代表两组数据的值）和一条连接这两个点的线组成。

类型

基础哑铃图：简单的点连接线形式。
带图例的哑铃图：添加图例以区分不同的数据组。
排序哑铃图：对y轴数据进行排序，以便更好地展示数据趋势。

应用场景

生物信息学：比较基因表达水平。
体育数据分析：比较运动员在不同比赛中的表现。
财务分析：比较不同时间段的财务数据。

示例代码

以下是一个使用 ggplot2 和 ggalt 包创建带图例并对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)