添加多个传说ggplot

Question

我有以下多层情节：

df <- data.frame(number = 1:10, 
       values = rnorm(10), 
       decision = factor(rbinom(10,1,.5), levels = c(0,1), 
            labels=c("No","Yes")), 
       expValues = rnorm(10), 
       bandwidth = runif(10, 0,1)) 

ggplot(df,aes(x = number, y = values, color=decision)) + aes(group=NA) + 
    geom_line(size = 1) + 
    geom_point(size = 3,shape = 16) + 
    geom_smooth(data = df, aes(ymin = values-bandwidth , ymax = values+bandwidth), 
       stat = "identity") + 
    geom_point(data=df, 
      aes(x=number,y=expValues),shape = "x", size = 5, color = "blue") + 
    geom_text(data = data.frame(x = Inf, y = max(df$values), label = "Mean = 12"), 
      aes(label=label, x = x, y = y) , 
      hjust = 1, vjust = -0.1, color = "brown", size = 10) + 
    geom_hline(yintercept=mean(df$values) ,color="blue", linetype = "dashed") + 
    theme(text=element_text(size=20)) 

我想补充的传说为geom_hline和geom_point与形状“×”，表示了第一个它是“削减价值”，为第二个“预期价值”。

我该怎么做？

注意：我检查了THIS后和THIS后可能的解决方案，但无法弄清楚我该怎么做，尤其是geom_hline。

Answer 1

要添加传说，首先要做的是实际将某物映射到所需的美学。例如，现在您已将点形状设置为x，但您没有地图它位于aes之内，因此您不会获得图例。您可以映射到常量以及变量以强制图例。

对于您的geom_point图层，您可以将shape移动到aes的内部，映射到您喜欢的任何常数。使用指示它的值可以使图例编辑变得更容易。

geom_point(data=df, aes(x=number, y=expValues, shape = "Expected value"), size = 5, color = "blue") 

对于geom_hline，你需要特定于映射目的层的数据集。根据您走的路线，您可能还需要在此层设置show_guide至TRUE。

geom_hline(data = data.frame(yint = mean(df$values)), aes(...), show_guide = TRUE) 

你可以让两个独立的传说。你也可以将线条和形状组合成一个单独的图例，就像这个回答here。这两个选项都将涉及在适当的scale_xxx_manual中设置值并在guide_legend中使用override.aes。

下面介绍如何创建一个新的图例。注意我必须在geom_line之前添加geom_hline以使decision图例看起来正确。

ggplot(df, aes(x = number, y = values, color=decision, group = NA)) + 
    geom_hline(data = data.frame(yint = mean(df$values)), 
     aes(yintercept = yint, shape = "Cut value"), 
      color="blue", linetype = 2, show_guide = TRUE) + 
    geom_line(size = 1) + 
    geom_point(size = 3,shape = 16) + 
    geom_smooth(data = df, aes(ymin = values-bandwidth , ymax = values+bandwidth), 
       stat = "identity") + 
    geom_point(data=df, aes(x=number, y=expValues, shape = "Expected value"), 
      size = 5, color = "blue") + 
    geom_text(data = data.frame(x = Inf, y = max(df$values), label = "Mean = 12"), 
     aes(label=label, x = x, y = y), 
     hjust = 1, vjust = -0.1, color = "brown", size = 10) +  
    theme(text=element_text(size=20)) + 
    scale_shape_manual(name = "", values = c("x", "x")) + 
    guides(shape = guide_legend(override.aes = list(linetype = c(2, 0), 
              shape = c(NA, "x")))) 

编辑添加一个传奇的误差带丝带

我不能完全得到的东西与fill工作的基础上添加了误差带缎带第三传说。你可以这样做有三个独立的传说，但我不认为间距是一样好：

ggplot(df, aes(x = number, y = values, color=decision, group = NA)) + 
    geom_hline(data = data.frame(yint = mean(df$values)), 
     aes(yintercept = yint, linetype = "Cut value"), 
      color="blue", show_guide = TRUE) + 
    geom_line(size = 1) + 
    geom_point(size = 3,shape = 16) + 
    geom_smooth(data = df, aes(ymin = values-bandwidth , ymax = values+bandwidth, fill = "Error band"), 
       stat = "identity") + 
    geom_point(data=df, aes(x=number, y=expValues, shape = "Expected value"), 
      size = 5, color = "blue") + 
    geom_text(data = data.frame(x = Inf, y = max(df$values), label = "Mean = 12"), 
     aes(label=label, x = x, y = y), 
     hjust = 1, vjust = -0.1, color = "brown", size = 10) + 
    theme(text=element_text(size=20)) + 
    scale_shape_manual(name = "", values = "x") + 
    scale_linetype_manual(name = "", values = 2) + 
    scale_fill_manual(name = "", values = "grey") + 
    guides(shape = guide_legend(override.aes = list(linetype = 0)), 
      fill = guide_legend(override.aes = list(linetype = 0)), 
      color = guide_legend(override.aes = list(fill = NA))) 

或者，里面override.aes一些工作，这可能与colour与linetype沿组合和size完成和shape。

ggplot(df, aes(x = number, y = values, color=decision, group = NA)) + 
    geom_hline(data = data.frame(yint = mean(df$values)), 
     aes(yintercept = yint, shape = "Cut value"), 
      color="blue", linetype = 2, show_guide = TRUE) + 
    geom_line(size = 1) + 
    geom_point(size = 3,shape = 16) + 
    geom_smooth(data = df, aes(ymin = values-bandwidth , ymax = values+bandwidth, shape = "Error band"), 
       stat = "identity", show_guide = FALSE) + 
    geom_point(data=df, aes(x=number, y=expValues, shape = "Expected value"), 
      size = 5, color = "blue") + 
    geom_text(data = data.frame(x = Inf, y = max(df$values), label = "Mean = 12"), 
     aes(label=label, x = x, y = y), 
     hjust = 1, vjust = -0.1, color = "brown", size = 10) + 
    theme(text=element_text(size=20)) + 
    scale_shape_manual(name = "", values = rep("x", 3)) + 
    guides(shape = guide_legend(override.aes = list(linetype = c(2, 1, 0), 
              size = c(.5, 10, 5), 
              shape = c(NA, NA, "x"), 
              colour = c("blue", "grey75", "blue"))))