Текстовые ярлыки для ggplot2 facet_wrap

Question

У меня возникли проблемы с нанесением буквенных надписей на графе ggplot2 facet_wrapped. Это должно быть просто, и я сделал это раньше ... хотя, очевидно, я сейчас ничего не делаю. Буквы просто рисуют поверх друг друга на каждом сюжете, когда на каждом сюжете должно быть другое письмо. Что-то изменилось недавно или я не замечаю очевидного?

library(ggplot2) 
library(reshape2) 
posdat<-data.frame( x=c(rep(10,4)), 
        y=c(rep(0.4,4)),  
        lab=c("A","B","C","D"), 
        stringsAsFactors = FALSE) 
sp <- ggplot(tips, aes(x=total_bill, y=tip/total_bill)) + geom_point(shape=1) 
sp+geom_text(data=posdat, aes(x=10, y=0.4, label=lab))+ 
facet_wrap(~ day, ncol=2) 

Answer 1

Если добавить day идентификатор данных posdat, то текст может быть разделен между гранями.

posdat$day <- unique(tips$day) 

sp <- ggplot(tips, aes(x=total_bill, y=tip/total_bill)) + geom_point(shape=1) 
sp+geom_text(data=posdat, aes(x=10, y=0.4, label=lab))+ 
    facet_wrap(~ day, ncol=2)