手动设置多层图的图例颜色和文本

1 回答

• 0

  如果没有实际数据进行测试，这是我对可以为您工作的最佳猜测：

  ggplot(D_ff_NWn, 
         aes(x = NW_norm))+
  
    geom_point(aes(y = FF_Det, fill = CYC), shape = 21, colour = alpha("black", 0)) +
    geom_line(aes(y = FF10.fit, colour = "Avg FF (g/min)")) +
    geom_line(aes(y = Diff1 * SCL_rg + SCL_FF[1], colour = "1st Derivative")) +
    geom_line(aes(y = FF_UCL, colour = "95% Prediction")) +
    geom_line(aes(y = FF_LCL, colour = "95% Prediction")) +
  
    labs(x = "Normalized Net Weight (%)")+
    scale_y_continuous(name = "Feed Factor (g/rev)", 
                       sec.axis = sec_axis(~ (. - SCL_FF[1])/SCL_rg, 
                                           name = "1st Derivative ([g/rev]/%)")) +
    scale_fill_gradient(name = "Feeder Cycle")+
    scale_colour_manual(name = "",
                        values = c("Avg FF (g/min)" = "black", 
                                   "1st Derivative" = "red",
                                   "95% Prediction" = "green"))+ 
  
    theme(axis.text.y.right = element_text(color = "red"), 
          axis.title.y.right = element_text(color = "red"))
  

  如果这样可行，请在下面解释我在您的代码中观察到的几个问题：

  Issue 1 - You want to specify different colour legends for the geom_point() & geom_line() layers

  如果你检查 ?geom_line ，你可以看到 colour 列在它理解的美学中，但 fill 就是它 . 这意味着 geom_line(aes(...)) 中的 fill = red （或其他颜色）线将被忽略 .

  另一方面， geom_point 同时了解 colour 和 fill . 默认的点形状基于 colour 美学而着色，但还有其他形状基于 fill 美学着色，其轮廓基于 colour 美学而非 .

  

  （图片来源于here . 形状21-25接受 fill 的颜色，＆ colour 的轮廓 . ）

  要解决问题1，请选择21-25的形状，使用 aes(fill = CYC) 设置 geom_point 的颜色，并为各自的 geom_line 层保留 aes(colour = something) .

  Issue 2 - The order of the manually stated legend labels is probably wrong

  我知道使用 aes(fill = "some value") 和 scale_fill_manual() 之类的东西可以手动指定美学映射，但代码中值的顺序是：

  • aes(fill = "black") （第2层）

  • aes(fill = "red") （第3层）

  • aes(fill = "Prediction") （第4层）

  而手动秤中的订单是：

  scale_fill_manual(name="", 
                    labels = c("Avg FF (g/min)", "1st Derivative","95% Prediction"),
                    values = c("black","red","green"))
  

  暂时忽略 colour 与 fill 问题，我们可以看到此处列出的值的字母顺序为 c("black", "Prediction", "red"). scale_fill_manual（） has no way of knowing that Prediction is supposed to be mapped to green`;它将简单地按字母顺序获取值列表，并将它们按顺序匹配到此处列出的标签/值 .

  要解决问题2，请在 scale_XXX_manual 中使用命名向量作为 values 参数 .

  （我还建议在各个 geom_line(aes(fill = "some value")) 图层中使用标签作为值，并将 labels = c(...) 从 scale_XXX_manual 中删除 . 我认为它更整洁 . ）

  Issue 3 - You explicitly asked for a colour legend in discrete points, rather than a colour bar

  ggplot2 ， guide_legend 和 guide_colourbar 中有两个不同的图例相关函数 . 前者创造了一个离散的尺度，而后者则是一个连续的尺度 . 默认情况下， scale_XXX_gradient 实际上使用colourbar选项，但 scale_color_gradient(guide = guide_legend(title = "Feeder Cycle")) 行覆盖了该选项 .

  要解决问题3，您可以：

  • 将 guide_legend(title = "some title") 替换为 guide_colourbar(title = "some title") ，或;

  • 只需将它们全部放在一起，并使用 scale_XXX_gradient(name = "some title") 指定图例名称 .

  (minor) Issue 4 - Top level aesthetic mappings

  在你的代码中，每个 geom 层的审美对于 x ，映射以 NW_norm 开头，然后是 y 的不同变量 .

  由于 x = NW_norm 对所有图层都是通用的，因此应该在顶级 ggplot() 调用中声明，并且 only 在那里 . 除非有本地 aes(x = some.other.variable) 映射来覆盖它，否则所有后续层都将继承该层 .

  由于 y = something 对于每一层都不同，因此不需要它在顶层调用中 . 每个 geom 图层都应该有 y 的美学映射，将 explicitly 命名为 aes(y = something, ...) 而不是 aes(something, ...)

  回复于 2024-05-02T10:34:27+08:00