如何使用 facet_wrap 在图形上添加不同的注释

Question

我想在 facet_wrap 生成的图形上添加不同的注释。

我尝试了下面的代码，但它显示错误，例如“FUN(X[[i]], ...) 错误：找不到对象 'value'”。

dat_text <- data.frame(
  label = c("TRUE:FALSE = 686:324", "TRUE:FALSE = 976:34", "TRUE:FALSE = 516:494", "TRUE:FALSE = 360:650",
            "TRUE:FALSE = 351:659", "TRUE:FALSE = 440:570", "TRUE:FALSE = 645:365", "TRUE:FALSE = 151:859", "TRUE:FALSE = 542:468"),
  cyl   = c(Agricultural_land, Artificial_land, Precipitation, Protected_area,
            RiverLake, Seashore, Temperature, Volcanic_area, Wasteland)
)


z_cor <- fit01_zsize2 %>%
  ggplot(aes(x = value_without, y = value_with, color = value))+
  geom_point(shape = 1)+
   geom_text(
     data    = dat_text,
     mapping = aes(x = -Inf, y = -Inf, label = label),
     hjust   = -0.1,
     vjust   = -1
   )+
  geom_abline(intercept = 0, slope = 1, linetype = "dashed") +
  scale_color_manual(values = c("TRUE" = "salmon", "FALSE" = "steelblue"))+
  facet_wrap(.~variable1)+
  theme(strip.text.x = element_text(size = 20),
            axis.title=element_text(size=16))

plot(z_cor)

当我在没有 geom_text() 的情况下尝试相同的代码时，它成功了。

当我可以避免错误的时候，新的问题又来了。我粘贴了我创建的图形。许多注释都放在图中。

Answer 1

正如@stefan 指出的那样，您的文本图层的数据应该引用构面变量：

ggplot(mtcars, aes(wt, mpg)) +
  geom_point() +
  facet_wrap(~am) +
  geom_text(data = data.frame(wt = 2, mpg = c(30, 12), am = c(0,1),
                              label = c("one note", "and another")),
            aes(label = label))

如何使用 facet_wrap 在图形上添加不同的注释

How to add different annotations on figures with facet_wrap

annotations

r

ggplot2

facet-wrap