0

我annotation_custom用来制作带有箭头的自定义图例。

不幸的是，所有箭头似乎都有一个向下的角度（朝向西南或东北），我正在努力制作一个向上的箭头（朝向西北）。

这是一个可重现的示例：

library(ggplot2)
library(grid)
x=ggplot() +
  geom_blank() +
  geom_rect(aes(xmin=1, xmax=2,
                ymin=1, ymax=2)) +
  coord_fixed(clip="off") #a plain old nice grey rectangle

my_arrow = linesGrob(arrow=arrow(type="open", ends="first", length=unit(4,"mm")))
x + annotation_custom(my_arrow, xmin=1.5,xmax=2.2, ymin=1.5,ymax=1.25) #South-West :-)
x + annotation_custom(my_arrow, xmin=1.5,xmax=2.2, ymin=1.25,ymax=1.5) #Also South-West :-(

我怎样才能构造这样的箭头？

4

1 回答 1

0

annotation_custom似乎与从矩形或图像中获得的最小和最大坐标相关联。为了使箭头有意义，它需要一些东西来解释为方向。我正在切换到annotate一个段几何，并保存箭头以供重用。

my_arrow <- arrow(type = "open", ends = "first", length = unit(4, "mm"))

x +
  annotate("segment", x = 1.5, xend = 2.2, y = 1.5, yend = 1.25, arrow = my_arrow) +
  annotate("segment", x = 1.5, xend = 2.2, y = 1.25, yend = 1.5, arrow = my_arrow)

由于annotate没有data参数，您不能（AFAIK）沿着数据框变量映射aes，但您可以给它向量以收紧到单个调用中。

x +
  annotate("segment", x = 1.5, xend = 2.2, y = c(1.5, 1.25), yend = c(1.25, 1.5), arrow = my_arrow)
# same output

编辑添加：根据评论，将段坐标放在数据框中可能是有意义的，因此您也可以参考它们来放置标签。

coords <- tibble::tribble(
  ~x,  ~xend, ~y,   ~yend, ~lbl,
  1.5, 2.2,   1.5,  1.25,  "Still a square",
  1.5, 2.2,   1.25, 1.5,   "This is a square"
)

x +
  annotate("segment", x = coords$x, xend = coords$xend, y = coords$y, yend = coords$yend, arrow = my_arrow) +
  geom_text(aes(label = lbl, x = xend, y = yend), data = coords, hjust = 0)

于 2020-02-07T15:15:42.600 回答