r - 在图例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 创建于 2019-07-25 (v0.3.0)}