7

我正在尝试使用gganimate. 绘图工作得很好，除了下降（低于基线的字母，即 g、j、p、q 和 y）的存在改变了标题占用的空间量。反过来，这会稍微移动标题的基线，这会减损动画效果。也就是说，当标题中有下降时，标题会明显“跳跃”一点。

一个例子：

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的问题更明显（并且不需要包含年份来演示），因为它移动了情节而不是标题：

gganimate::gg_animate(toAnimate)

在此处输入图像描述

我可以通过使用所有大写字母（没有下降）来“解决”这个问题，但我并不特别喜欢所有大写字母的外观（特别是作为实际用例的较大标题的一部分）。我也可以在框架标题前面加上已经有下降的东西，例如ggtitle("Timeperiod: ")，尽管我宁愿不添加无关的文本来解决这个问题（添加“时间段：”是我现在所做的）。

我已经查看了 中的帮助theme，ggplot2但我没有看到任何看起来可以解决此问题的内容。

4

1 回答 1

2

在为标题保留空间时，标题似乎只获取文本的高度，而不是字体的高度。

因此，您可以改用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 年的完全重叠，月份名称的下降明显在那里，并且文本基线是恒定的。

因此，如果您可以将您的标题放在情节的方便空间中，您可以使用它，并title_frame=FALSE在您的gganimate.

我还会考虑向ggplot2. 如果你让标题足够大，它实际上会踩到情节：

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

在此处输入图像描述

于 2017-03-30T17:31:59.900 回答