デシケータ文字でアニメートするときにタイトルスペースが変わらないようにする

Question

gganimateを使用していくつかの月次データをアニメートしようとしています。ディセンダ（ベースラインを下回る文字、つまりg、j、p、q、y）が存在すると、タイトルが占めるスペースの量が変化するという点を除いて、プロットは大きく機能しています。これは、タイトルのベースラインをちょう​​ど少し動かし、アニメーションを損なう。つまり、タイトルにディケンダーがある場合、タイトルは目立つように「ジャンプ」します。

例：それは代わりにプロットを移動するように、問題はより明らかだった（と証明するために年を含めることを必要としませんでした）gganimateの古いバージョンを使用して

myDF <- 
    data.frame(
    Date = seq(as.Date("2015-01-15") 
       , as.Date("2015-12-15") 
       , "1 month") 
    , x = 1:12 
    , y = 1:12 
) 

myDF$frame <- 
    factor(format(myDF$Date, "%Y-%b") 
     , levels = paste0("2015-", month.abb)) 

toAnimate <- 
    ggplot(
    myDF 
    , aes(x = x 
      , y = y 
      , frame = frame) 
) + 
    geom_point() + 
    theme_gray() 

gganimate::gganimate(toAnimate) 

gganimate::gg_animate(toAnimate) 

：タイトルの

すべてのキャップ（ディセンダがない）を使用して問題を修正することはできますが、特にこれについてのすべてのキャップの外観が気に入らない（特に、実際の使用例では大きなタイトルの一部として）。私はまた、フレームタイトルの前に既にディセンダーを持っているものを追加することもできます。 ggtitle("Timeperiod: ")私はむしろ、この問題を回避するために無関係のテキストを追加することはしませんでした（「Timeperiod」を追加することは、私が今行っていることです）。

themeのヘルプを見て、ggplot2にありますが、この問題に対処しているように見えません。

Answer 1

タイトルのスペースが予約されている場合は、タイトルにはフォントの高さではなくテキストの高さが表示されるようです。

代わりにgeom_textを使用して、プロットのどこかにタイトルを配置することができます。例えば、私がしなければ：

ggplot(myDF, aes(x=x,y=y, label=frame)) + 
    geom_point()+theme_gray() + 
    geom_text(x=2.5,y=5,aes(label=frame),adj=0) 

（ちょうどggplotとして、アニメーションはまだない...）私は正確に重複すべて2015年代を見ることができる、と月名のディセンダーが明らかに存在しており、テキストベースラインは一定である。あなたはプロットに便利な空間にあなたのタイトルを置くことができる場合

だから、あなたはそれを使用して、あなたのgganimateでtitle_frame=FALSEを使用することができます。

私はまた、バグ/強化レポートをggplot2と考えています。あなたはタイトルを大きくする場合には十分なそれは実際にプロット上stomps：

ggplot(myDF, aes(x=x,y=y)) +geom_point()+theme(plot.title=element_text(size=rel(10),debug=TRUE)) + labs(title="y")