重新创建没有数据的绘图

Question

有没有办法在没有任何数据的情况下创建类似于下图的图形？

Answer 1

你可以做这样的事情。您可以添加另一个 geom_curve 和几个 geom_vline。

library(tidyverse)

ggplot() +
  geom_abline() +
  geom_curve(aes(x = 0, y = 0, xend = 1, yend = 1), curvature = -0.4) +
  annotate("text", x = 0.5, y = 0.5, label = "Line of Equality", angle = 35, vjust = 2) +
  labs(x = "Individuals Neighbourhoods\nAcross Space", y = "Scoioeconomic Position") +
  theme_minimal() +
  theme(axis.text = element_blank())

^{由 reprex package 于 2022-04-27 创建(v2.0.1)}