在ggplot上生成一行

Question

我正在尝试在ggplot上为我的geom_vline发布一个传奇。  我正在绘制一个数据集（见下文）并绘制到vlines（一个是平均值，一个是用户数据）。

以下是数据：

orig_quant
  std_curve_rsq    slope cluster_density
1     0.9989831 1.036102          240000
2     0.9991298 1.022148          240000
3     0.9996155 1.036922          240000
4     0.9989831 1.036102          240000
5     0.9989831 1.036102          240000

flowcell_batch_value
  std_curve_rsq     slope cluster_density
1        0.9799 0.9623146          240000

这是我的剧本：

std_plot = ggplot(data = orig_quant, aes(orig_quant$std_curve_rsq)) +
    geom_histogram(breaks = seq(min(orig_quant$std_curve_rsq) -sd(orig_quant$std_curve_rsq),
        max(orig_quant$std_curve_rsq)+sd(orig_quant$std_curve_rsq), by =
        sd(orig_quant$std_curve_rsq)),
        col="red", fill="green", alpha = .2) +
    labs(title = "Quantitation Std_Curve_Rsq") +
    labs(x = "std_curve_rsq", y = "Frequency") +
#need mean value in legend

#need user value in legend as well
    geom_vline(aes(xintercept = flowcell_batch_value, na.rm=T), color = "blue",
        linetype = "solid", size=2, show.legend = TRUE)

作为参考，orig_quant是一组数据，std_curve_rsq是数据列。我还在做的是在数据集的平均值上画一条线，在用户数据的位置画一条线（flowcell_batch_value_std_curve）。

我想要的是有一个传说，说明这两行的值。平均值和用户值。我尝试使用here中的示例来做到这一点，但它没有工作......你知道为什么它没有工作吗？

我添加了一张我目前得到的图表。如您所见，我生成条形图（好）和两条线，一条用于均值（红色）和用户数据（蓝色）。理想情况下，我想要一个说明两条线和这些线的值的图例。但由于某种原因，它无法正常工作。