ggplot2 facet_wrap的文本标签

Question

我无法在facet_wrapped ggplot2图表上添加字母标签。它应该很简单，我之前已经做过了......虽然显然我现在没做正确的事情。当每个情节中应该有不同的字母时，这些字母只是在每个情节中相互映射。最近发生了什么变化，还是我忽略了显而易见的事情？

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)