Вручную аннотируйте одну панель с несколькими метками

Question

Это очень похоже на этот вопрос ( ссылка ), но я не совсем уверен, как манипулировать им для своих нужд.

У меня есть граненый график с двумя панелями, и я хотел бы отметить три квадранта на первой панели и только на первой панели.

Вот фиктивный набор данных:

dfr=data.frame(
 variable=rep(c("A","B"),each=2),
 x=c(2,-3,4,-5),
 y=c(-2,4,-2,6))

А вот и сюжет:

p=ggplot(dfr,aes(x,y))+
 geom_point()+
 facet_grid(variable~.)+
 scale_x_continuous(limits=c(-6,6))+
 scale_y_continuous(limits=c(-6,6))+
 geom_hline(yintercept=0)+
 geom_vline(xintercept=0)

Вот чего я хотел бы достичь:

Answer 1

Вы всегда можете создать отдельный фрейм данных с нужными метками и нанести их на график, используя geom_text:

dfLab <- data.frame(variable = rep("A",3),
                    x = c(3,3,-3),
                    y = c(3,-3,-3),
                    lab = c('I','IV','III'))


ggplot(dfr,aes(x,y))+
 geom_point()+
 facet_grid(variable~.)+
 scale_x_continuous(limits=c(-6,6))+
 scale_y_continuous(limits=c(-6,6))+
 geom_hline(yintercept=0)+
 geom_vline(xintercept=0) + 
 geom_text(data = dfLab,aes(x=x,y=y,label=lab))