在ggplot中使用facet_wrap将标题放置在绘图的顶部和左侧

df

我想创建带有ggplot的刻面换行图，使其具有标题，并将country放在每个图的左侧，如图所示。这在ggplot中可行吗

Date       Team    Country   Score
1/1/2012   TeamA   Germany  10
1/2/2012   TeamA   Germany  25
1/3/2012   TeamA   Germany  50
1/1/2012   TeamB   France  10
1/2/2012   TeamB   France  70
1/3/2012   TeamB   France  50

我定义

ggplot(df,aes(Date, Score, group=Team, colour=Team))+ 
        geom_point(size=0.5) + 
        geom_smooth(method="lm", se=T, size=1) + 
        facet_wrap(~Team, scale="free")

使用geom_文本

dat.text
   Team Country x  y
3 TeamA Germany 3 30
4 TeamB  France 3 15

其想法是：我使用一个包含三条信息的新数据框，并将其上传到geom_文本中

我将完成剩下的工作

• 坐标（x，y）
• 分面变量级别：团队
• 提供的标签：国家/地区
  要将文本放在绘图的右侧，我选择

   p + geom_text(aes(x, y, label=Country, group=NULL),data=dat.text,
                 angle =90,family = "mono",size=12)
      + theme(legend.position = "none")
  

  ---

  dat.text$x这不是我要找的。我的问题是，使用facet_wrap，是否可以将标题放在情节的右侧？啊，oki！但是你的情节有点混乱！但是，如果你明白了这一点，想法是一样的…准备数据…然后做其余的。。
   dat.text$x  <- tail(originalData$Date,1)