我想做一个克利夫兰风格的图表，可以比较男性和女性在不同年龄表现出不同行为的概率，我有一个类似的数据集：

Data <- data.frame(
    skill = c("Writes Name", "Reads 10 Words"),
    age15male = c(5, 10),
    age30male = c(6, 11),
    age45male = c(7, 12),
        age60male = c(8, 13),
    age75male = c(9, 14),
    age90male = c(10, 15),
    age15female = c(4, 9),
    age30female = c(5, 10),
        age45female = c(6, 11),
        age60female = c(7, 12),
    age75female = c(8, 13),
    age90female = c(9, 14)
)

我可以制作我想要的条形图，但一次只能显示一种性别，使用以下代码：

colors = c("15% - 30%" = "#d8ebf2",
           "30% - 45%" = "#96c6d9",
           "45% - 60%" = "#50a0bf",
           "60% - 75%" = "#025373",
           "75% - 90%" = "#023859")
ggplot(Data) +
#male
  geom_segment(aes(x=skill, xend=skill, y=age15male, yend=age30male, color = "15% - 30%"), linewidth=8) +
  geom_segment(aes(x=skill, xend=skill, y=age30male, yend=age45male, color = "30% - 45%"), linewidth=8) +
  geom_segment(aes(x=skill, xend=skill, y=age45male, yend=age60male, color = "45% - 60%"), linewidth=8) +
  geom_segment(aes(x=skill, xend=skill, y=age60male, yend=age75male, color = "60% - 75%"), linewidth=8) +
  geom_segment(aes(x=skill, xend=skill, y=age75male, yend=age90male, color = "75% - 90%"), linewidth=8) +
 coord_flip()+
 scale_color_manual(values = colors) +
  theme_gray(base_size = 14) +
  theme(axis.title.y =  element_text(margin=margin(t=0,r=10,b=0,l=0)))+
  labs(x = "Milestone", y = "Age (years)", color = "Probability")

但是，我想同时显示两种性别的值，每个技能的值都在旁边，如本例所示：

我的第一个方法是显示男性和女性的所有部分，但他们当然重叠，不创建单独的线.我的下一个方法是偏移每个geom段男性是上面一点，女性是下面一点：

geom_segment(aes(x=skill+0.5, xend=skill+0.5, y=age15male, yend=age30male, color = "15% - 30%"), linewidth=8)
geom_segment(aes(x=skill-0.5, xend=skill-0.5, y=age15male, yend=age30female, color = "15% - 30%"), linewidth=8)

但我得到了错误**“离散值提供给连续规模”。**我认为，如果我可以把男性部分较高和女性部分较低，我可以显示两种性别的数据。然而，我仍然需要一个不同的颜色梯度和图例为每种性别，我不知道如何处理这一点。任何帮助，例子，或资源是非常感谢。我道歉，如果有类似的线程，但我自己找不到类似的东西。