使用geom_segment

Question

我正在使用geom_segment为我的情节生成注释背景。具体来说，我使用以下代码绘制图例。唯一的问题是我希望看到图例框中的颜色，但这是不可能的，因为我的geom_segments非常小（没有填充可以使用geom_segment，你需要scale_color_manual，你不能使用scale_fill_manual，这将解决问题）。

xa <- seq(1,20000)
ya <- rep(0, length(xa))
anna <- as.factor(sample(c(1,2), size = length(xa), replace = T))
ggplot() + geom_segment(aes(x = xa, y = ya, xend = xa, yend = ya + 1,
                            col = anna), 
                          size = 0.1) +
scale_color_manual(name = "tit", values = c("#b47b00", "#000000"),
                                    labels = c('bels1', 'bels2'))

我想在标签框中只有统一的颜色，与值变量中的颜色相同。

Answer 1

您可以在override.aes图层中使用guides，如下所示：

guides(color = guide_legend(override.aes = list(size=5)))

完整代码：

ggplot() + 
     geom_segment(aes(x = xa, y = ya, xend = xa, yend = ya + 1, col = anna), size = 0.1) +
     scale_color_manual(name = "tit", values = c("#b47b00", "#000000"),
                                    labels = c('bels1', 'bels2'))+
     guides(color = guide_legend(override.aes = list(size=5)))