r - 如何在 ggplot2 中翻转 geom_curve(箭头)？

Question

我好像不能把箭头做成凹面的。我已尝试对 geom_curve

中的 angle 参数进行多次调整

可重现的例子

library(ggplot2)
library(dplyr)
set.seed(123)
data.frame(x = runif(200)* 1000, y = runif(200)* 1000) %>% 
  ggplot(aes(x, y)) +
  geom_point() + 
  geom_curve(
  aes(x = 200, y = 300, xend = 500, yend = 400),
  arrow = arrow(length = unit(0.03, "npc"), type="closed"), colour = "#EC7014", size = 1.2, angle = 90)

上面的箭头是凸的——目标是使箭头成为彩虹的形状(凹)。我已经更改了 angle 和起点/终点，但所有生成的箭头仍然是凸的

实例

这里的箭头指向条形的粉红色部分 - 底部的箭头看起来不错，但顶部的箭头如果可以做成凹面会更好看

Answer 1

我认为您需要 curvature 参数。正值逆时针 curl ，负值顺时针 curl 。这是一个代表:

library(ggplot2)

ggplot() + 
  geom_text(aes(x = -5, y = 5, label = "Some text"), size = 10, hjust = 0) +
  geom_rect(aes(xmin = 0, xmax = 5, ymin = 2.5, ymax = 7.5)) +
  geom_curve(aes(x = -2.5, y = 5.5, xend = -1.25, yend = 6),
             arrow = arrow(length = unit(0.03, "npc"), type="closed"), 
             colour = "#EC7014", size = 1.2, curvature = -0.3, angle = 90) +
  geom_curve(aes(x = -2.5, y = 4.5, xend = -1.25, yend = 4),
             arrow = arrow(length = unit(0.03, "npc"), type="closed"), 
             colour = "#EC7014", size = 1.2, curvature = 0.3, angle = 90)

^{由 reprex package 创建于 2020-05-09 (v0.3.0)}