аюсь оживить некоторые ежемесячные данные, используя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: ") хотя я бы предпочел не добавлять нерелевантный текст только для того, чтобы обойти эту проблему (хотя добавление «Timeperiod:» - это то, с чем я сейчас столкнулся).

Я просмотрел помощь наtheme вggplot2, но я не вижу ничего похожего на решение этой проблемы.