如何抑制/组合 R 中两个几何图形的图例

Question

我制作了一个散点图，它显示了一个相对于症状发作以来的日期绘制的值。 这些患者根据疾病严重程度进行分类，我想展示每个严重程度类别中的值如何随时间变化。 我已经根据严重性评分为点着色，但我更喜欢使用 shape =21，这样我就可以有一个边框。 我还画了一条线来查看趋势，并且我希望以相同的方式着色，但是，这增加了另一个图例，看起来很复杂。 如果使用未填充的其他形状，则不会发生此问题，因为 scale_colour_manual 可用于线条和点，但我认为它看起来不太好。 知道如何解决这个问题吗？

IC50SymObySS <- ggplot(data = isaric) +
  geom_point(mapping = aes(x = Days_since_onset, y = log2IC50, fill = Severity_score),  size = 2, colour = "black", shape = 21)+
  geom_smooth(mapping = aes(x = Days_since_onset, y = log2IC50, colour = Severity_score), se = FALSE)+
  scale_fill_manual(breaks=c("1","2","3","4","5"),
                      values=c("1" = "lightblue1","2" = "lightblue3","3" = "lightblue4","4" = "lightcoral","5" = "firebrick2"),
                      labels=c("1","2","3","4","5"),
                      name = "Severity Score")+
  scale_colour_manual(values=c("1" = "lightblue1","2" = "lightblue3","3" = "lightblue4","4" = "lightcoral","5" = "firebrick2"))+
  theme_minimal()+
  JTheme+
  ylab("Serum Log2 IC50")+
  xlab("Days Since Symptom Onset")+
  guides(colour = guide_legend(title.position = "top", title.hjust = 0.5))
IC50SymObySS 

Answer 1

根据这个答案，您需要对填充和颜色比例使用相同的名称和标签值。

library(ggplot2)
library(dplyr)
isaric <- transmute(iris, 
    Days_since_onset = (Sepal.Length - 4)^3, 
    log2IC50 = Sepal.Width * 3, 
    Severity_score = cut(Petal.Length, breaks = quantile(Petal.Length, prob = 0:5 / 5), labels = 1:5))

ggplot(data = isaric) +
    geom_smooth(mapping = aes(x = Days_since_onset, y = log2IC50, colour = Severity_score), se = FALSE)+
    geom_point(mapping = aes(x = Days_since_onset, y = log2IC50, fill = Severity_score),  size = 2, colour = "black", shape = 21)+
    scale_colour_manual(
        name = "Severity Score", 
        values=c("1" = "lightblue1","2" = "lightblue3","3" = "lightblue4","4" = "lightcoral","5" = "firebrick2"), 
        labels=c("1","2","3","4","5"))+
    scale_fill_manual(
        name = "Severity Score", 
        breaks=c("1","2","3","4","5"),
        values=c("1" = "lightblue1","2" = "lightblue3","3" = "lightblue4","4" = "lightcoral","5" = "firebrick2"),
        labels=c("1","2","3","4","5"))+
    theme_minimal()+
    ylab("Serum Log2 IC50")+
    xlab("Days Since Symptom Onset")+
    guides(colour = guide_legend(title.position = "top", title.hjust = 0.5))