为 abline 创建第二个图例

Creating a second legend for abline

我在 ggplot 中有一个图,我添加了一个 abline 来显示多次校正后显着性截止的位置,但是该线的图例没有与显示我的变量域的第一个图例分开显示。相反,它只是在每个域的密钥上绘制一条虚线。我想要第二个带有黑色虚线的框,标题为“FDR 阈值”,我不希望第一个图例框的颜色值用黑色虚线填充。

  geom_abline(aes(slope=0,intercept=-log10(c(var)[astsa::FDR(c(var))]),lty='FDR Correction'), 
              linetype = "dashed", show.legend = TRUE)+

我相信这可以通过在“aes”中映射 abline 线型来实现,从而创建图例。我使用 scale_linetype_manual 将虚线分配给名为“legend”的类别。

library(ggplot2)
ggplot(mtcars, aes(wt, mpg, color = as.character(gear))) +
  geom_point() +
  geom_abline(aes(intercept = 10, slope = 3, linetype = "threshold")) +
  scale_linetype_manual(values = c("threshold" = "dashed"))