将箭头添加到多面 ggplot，在情节之外，仅在一个方面

Question

我的情节目前看起来像这样

我希望 Y 轴左侧有一个指向该轴的箭头，以及箭头旁边的文本。

到目前为止，这是我的代码：

co2_diff_2050 %>%   
  ggplot( aes( Year, MTC, fill = Sector ) ) +
  geom_bar( position = "stack", stat = "identity" ) +
  scale_fill_manual( values = CO2_sector_color ) +
  scale_x_continuous( name = "Year", breaks = c( 2050 ) ) +
  scale_y_continuous( name = "MTC", breaks = c( 0, 5, 10 ), limits = c( -1, 13 ) ) +
  geom_segment(aes(x = 2049.5, y = maryland_80goal, xend = 2049.8, yend = maryland_80goal),
            arrow = arrow(length = unit(0.5, "cm"))) +
  geom_errorbar( aes( ymin = net_diff, ymax = net_diff ), color = "gray30", linetype = "longdash", width = 1, size = 1 ) +
  geom_hline( yintercept = 0 ) +
  theme_bw() +
  guides( fill = guide_legend( ncol = 1 ) ) +
  theme( legend.position = "right" ) +
  labs( title = "Maryland Remaining CO2 Emissions by Sector in 2050",
        caption = "Arrow indicates Maryland's 2050 GHG emissions reduction goal
        Dashed gray line indicates emissions with biomass offset") +
  facet_wrap( ~ Scenario, nrow = 1 )

Answer 1

这是一种 hacky 解决方案，但它似乎有效。我们制作了一个没有任何映射美学的geom_segment()，因此不会在这些上训练尺度。但是，我们确实添加了 data 参数，只是为了指示箭头应该出现在哪个面板旁边。现在通常不会出现，因为它超出了范围，但我们可以设置clip = "off" 来显示它。

library(ggplot2)

ggplot(mpg, aes(displ, hwy)) + 
  geom_point() +
  geom_segment(
    # Change the 0 and 25's to be appropriate to your data
    x = 0, xend = -Inf, y = 25, yend=  25,
    arrow = arrow(length = unit(5, "pt")),
    # Add facetting variable appropriate to your data
    data = data.frame(cyl = 4)
  ) +
  coord_cartesian(clip = "off") +
  facet_wrap(~ cyl, ncol = 4)

^{由reprex package (v0.3.0) 于 2020 年 12 月 3 日创建}