ggplot2:如何使用长Y轴标签在绘图顶部水平居中图例？

library(ggplot2)

# 创建数据集
data <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y = c(10, 20, 30, 40, 50),
  label = c("标签1", "标签2", "标签3", "标签4", "标签5")
)

# 创建基础图层
plot <- ggplot(data, aes(x = x, y = y)) +
  geom_point()

# 打印基础图层
print(plot)

# 设置Y轴标签和位置
plot <- plot +
  scale_y_continuous(
    breaks = data$y,
    labels = data$label,
    sec.axis = dup_axis()
  )

# 打印带有Y轴标签的图层
print(plot)

# 调整图例的位置和对齐方式
plot <- plot +
  theme(
    legend.position = "top",
    legend.justification = "center"
  )

# 打印带有调整后图例的图层
print(plot)