两个带状图和线图类型图的通用图例未显示

Question

对于我的RmarkDown文档，我整理了两个图。第二个图应该是第一个图的“放大”版本。

---
title: TwoGraphs
output: pdf_document
---

```{r echo=FALSE,fig.show="hold", out.width="50%",fig.cap="Results"}
library(ggplot2)
data <- data.frame(
  a_max = 1:10 * 10,
  a_min = 1:10 * 9,
  b_max = 1:10 * 5,
  b_min = 1:10 * 4,
  c_max = 1:10 * 0.002,
  c_min = 1:10 * 0.001
)

ggplot(data, aes(x = 1:10)) +
  xlab("Time") + ylab("Amount") +
  # a
  geom_ribbon(aes(ymax = a_max, ymin = a_min, fill = "A set"), fill = '#9B7FBF') +
  geom_line(aes(y = a_max), color = "#1e152a", size=1.5, linetype="dashed") +
  geom_line(aes(y = a_min), color = "#1e152a", size=1.5) +
  # b
  geom_ribbon(aes(ymax = b_max, ymin = b_min, fill = "B set"), fill = '#ACD8DD') +
  geom_line(aes(y = b_max), color = "#5ab1bb", size=1.5, linetype="dashed") +
  geom_line(aes(y = b_min), color = "#5ab1bb", size=1.5) +
  # c
  geom_ribbon(aes(ymax = c_max, ymin = c_min, fill = "C set"), fill = '#deebd1') +
  geom_line(aes(y = c_max), color = "#a5c882", size=1.5, linetype="dashed") +
  geom_line(aes(y = c_min), color = "#a5c882", size=1.5) +
  theme_bw()

# zoom in on c
ggplot(data, aes(x = 1:10)) +
  xlab("Time") + ylab("Amount") +
  geom_ribbon(aes(ymax = c_max, ymin = c_min, fill = "C set"), fill = '#deebd1') +
  geom_line(aes(y = c_max), color = "#a5c882", size=1.5, linetype="dashed") +
  geom_line(aes(y = c_min), color = "#a5c882", size=1.5) +
  theme_bw()
```

生成剧情效果很好，但是我想要拥有的传奇是丢失的。尤其是我希望记录色带颜色。这些行并不那么重要 - 尽管虚线表示大多数未排序的数据集，但我确实在标题中提到，并且连续行表示数据集已对其进行排序。

我已经在下面的屏幕截图中标记了想要拥有的传奇。

”的传说，

源于这个答案我尝试添加代码> scale_fill_manual ，但没有显示传奇。使用ggpubr为在这里建议的也对我不起作用，如这里所示。

---
title: TwoGraphs
output: pdf_document
---

```{r echo=FALSE,fig.show="hold", out.width="50%",fig.cap="Results"}
library(ggplot2)
data <- data.frame(
  a_max = 1:10 * 10,
  a_min = 1:10 * 9,
  b_max = 1:10 * 5,
  b_min = 1:10 * 4,
  c_max = 1:10 * 0.002,
  c_min = 1:10 * 0.001
)

p1 <- ggplot(data, aes(x = 1:10)) +
  xlab("Time") + ylab("Amount") +
  # a
  geom_ribbon(aes(ymax = a_max, ymin = a_min, fill = "Aha"), fill = '#9B7FBF') +
  geom_line(aes(y = a_max), color = "#1e152a", size=1.5, linetype="dashed") +
  geom_line(aes(y = a_min), color = "#1e152a", size=1.5) +
  # b
  geom_ribbon(aes(ymax = b_max, ymin = b_min, fill = "Behe"), fill = '#ACD8DD') +
  geom_line(aes(y = b_max), color = "#5ab1bb", size=1.5, linetype="dashed") +
  geom_line(aes(y = b_min), color = "#5ab1bb", size=1.5) +
  # c
  geom_ribbon(aes(ymax = c_max, ymin = c_min, fill = "Cehe"), fill = '#deebd1') +
  geom_line(aes(y = c_max), color = "#a5c882", size=1.5, linetype="dashed") +
  geom_line(aes(y = c_min), color = "#a5c882", size=1.5) +
  theme_bw()

p2 <- ggplot(data, aes(x = 1:10)) +
  xlab("Time") + ylab("Amount") +
  geom_ribbon(aes(ymax = c_max, ymin = c_min, fill = "Cehe"), fill = '#deebd1') +
  geom_line(aes(y = c_max), color = "#a5c882", size=1.5, linetype="dashed") +
  geom_line(aes(y = c_min), color = "#a5c882", size=1.5) +
  theme_bw()
 
library(ggpubr)

ggarrange(p1,p2,common.legend = TRUE,legend = "bottom")
```

我如何使三个填充的领域成为一个共同的传说？是否也可以添加总体虚线 /固体线传奇？ （即，“虚线= unsorted，实心=排序”）

Answer 1

当您在 aes 外部添加填充颜色时，它会覆盖您在内部添加的填充颜色。您需要删除这些内容并在 scale_fill_manual 中指定颜色。您可以遵循与线型美学完全相同的过程。

ggplot(data, aes(x = 1:10)) +
  xlab("Time") + ylab("Amount") +
  # a
  geom_ribbon(aes(ymax = a_max, ymin = a_min, fill = "A set")) +
  geom_line(aes(y = a_max, linetype = "sorted"), color = "#1e152a", size=1.5) +
  geom_line(aes(y = a_min, linetype = "unsorted"), color = "#1e152a", size=1.5) +
  # b
  geom_ribbon(aes(ymax = b_max, ymin = b_min, fill = "B set")) +
  geom_line(aes(y = b_max, linetype = "sorted"), color = "#5ab1bb", size=1.5) +
  geom_line(aes(y = b_min, linetype = "unsorted"), color = "#5ab1bb", size=1.5) +
  # c
  geom_ribbon(aes(ymax = c_max, ymin = c_min, fill = "C set")) +
  geom_line(aes(y = c_max, linetype = "sorted"), color = "#a5c882", size=1.5) +
  geom_line(aes(y = c_min, linetype = "unsorted"), color = "#a5c882", size=1.5) +
  theme_bw() +
  scale_fill_manual(values = c(`A set` = '#9B7FBF', `B set` = '#ACD8DD',
                               `C set` = '#deebd1')) +
  scale_linetype_manual(values = c(sorted = 1, unsorted = 2)) +
  guides(linetype = guide_legend(override.aes = list(color = "black", size = 0.4))) +
  labs(fill = "", linetype = "") +
  theme(legend.position = "bottom",
        legend.direction = "vertical")