在图例ggplot中显示实心箭头

Question

我试图绘制一条线段，在其末端带有箭头，并使它出现在图例中。我可以使用以下代码进行此操作：

library(ggplot2)

# sample data
dat <- data.frame(
  x = as.factor(1:10),
  y = c(20,30,13,37,12,50,31,2,40,30),
  z = rep('a', 10)
)

# basic plot
ggplot(dat) +
  geom_segment(
    aes(x = x, xend = x, y = 0, yend = y+15, linetype = z), 
    arrow = arrow(length = unit(0.25, 'cm'), type = 'closed'),
    size = 0.7
  ) 

输出：

问题：

我的问题是，图例中的箭头没有像情节那样牢固地填充。我尝试使用guide_legend(override.aes = aes(fill='black'))和guide_legend(override.aes = aes(type='closed'))，但都没有对图例产生任何影响。

有人知道如何使三角形填充为纯黑色吗？

编辑：

我有一个类似的问题，geom_label不包括图例中标签周围的黑线。我设法通过在想要的确切位置添加geom_rect来解决此问题，但希望这不是最好的解决方案：P

任何一种解决方案都将非常有帮助！

Answer 1

自ggplot2 3.2.0起，可以提供自定义图例绘制功能。因此，如果图例看起来不太正确，您始终可以从ggplot2代码库中复制相应的图例绘制函数，然后根据需要进行修改。

library(ggplot2)
library(grid)
library(rlang)

# legend drawing function, copied from ggplot2
draw_key_segment_custom <- function(data, params, size) {
  if (is.null(data$linetype)) {
    data$linetype <- 0
  } else {
    data$linetype[is.na(data$linetype)] <- 0
  }

  segmentsGrob(0.1, 0.5, 0.9, 0.5,
    gp = gpar(
      col = alpha(data$colour %||% data$fill %||% "black", data$alpha),
      # the following line was added relative to the ggplot2 code
      fill = alpha(data$colour %||% data$fill %||% "black", data$alpha),
      lwd = (data$size %||% 0.5) * .pt,
      lty = data$linetype %||% 1,
      lineend = "butt"
    ),
    arrow = params$arrow
  )
}


# sample data
dat <- data.frame(
  x = as.factor(1:10),
  y = c(20,30,13,37,12,50,31,2,40,30),
  z = rep('a', 10)
)

# basic plot
ggplot(dat) +
  geom_segment(
    aes(x = x, xend = x, y = 0, yend = y+15, linetype = z), 
    arrow = arrow(length = unit(0.25, 'cm'), type = 'closed'),
    size = 0.7,
    key_glyph = "segment_custom"
  ) 

^{由reprex package（v0.3.0）于2019-07-25创建}