r - 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)