当 x 轴为日期时，将图像插入 ggplot + gganimate答案

【问题标题】：insert image into ggplot + gganimate when x axis are dates当 x 轴为日期时，将图像插入 ggplot + gganimate
【发布时间】：2019-04-27 23:52:29
【问题描述】：

我想使用 gganimate 为一些数据制作动画。以他们的 github 页面为例，我对其进行了一些更改以反映我的情况。 X 轴是日期，我希望所有帧的徽标都位于同一位置。

可重现的代码：

library(magick)
library(gapminder)
library(ggplot2)
library(rsvg)
library(gganimate)

tiger <- image_read_svg('http://jeroen.github.io/images/tiger.svg', width = 400)

(p <- ggplot(gapminder, aes(year, lifeExp, size = pop, colour = country)) +
  geom_point(alpha = 0.7, show.legend = FALSE) +
  scale_colour_manual(values = country_colors) +
  scale_size(range = c(2, 12)) +
  scale_x_log10() +
  annotation_raster(tiger, ymin = 75, ymax = 100, xmin = 1965, xmax = 2005) )

# here the animate part (not needed just for ilustrative purposes)

p + labs(title = 'Year: {frame_time}', x = 'Year', y = 'life expectancy') +
  transition_time(year) +
  ease_aes('linear')

问题是当 x 轴不是日期时，我可以在任何图表中绘制徽标。

我怀疑这个问题与日期类型有关，但到目前为止没有成功。

【问题讨论】：

我对此感到困惑。日期是一种特殊的数据类型。您所拥有的“日期”只是编码为整数的年份。对数刻度是您想要做的特定事情吗？
如果您尝试沿 log10 比例放置图像，则需要根据该比例设置其坐标。 log10(1965) 是 3.293363，log10(2005) 是 3.302114。我也不认为动画与它有任何关系——问题在于放置注释。如果该展示位置与transition_time 无关，则不应受到动画的影响。

标签： r ggplot2 gganimate

【解决方案1】：

您的问题似乎与您为 x 轴调用的对数刻度有关。它采用您的年份向量（不是日期，而是 4 位整数）并对其应用对数转换...正如@camille 所指出的，这意味着当您调用 animation_raster 时，坐标（xmin / xmax) 不在绘图网格之外。

这是一个通过将数据框中的年份更改为日期格式来合并日期的解决方案。它还在几何图形后面分层图像并以其原始比例渲染，即。 1x1。

library(magick) 
library(gapminder)
library(ggplot2)
library(rsvg)
library(gganimate)
library(lubridate)

tiger <- image_read_svg('http://jeroen.github.io/images/tiger.svg', width = 
400)

xmin <- ymd("1965/01/01")
xmax <- ymd("2005/01/01")
ymin <- 30
height <- round(as.numeric(xmax-xmin)/356, 0)
ymax <- ymin + height

gapminder %>%
    mutate(year = ymd(year, truncated = 2L)) %>%
    ggplot() +
    aes(year, lifeExp, size = pop, colour = country) +
    annotation_raster(tiger, ymin = ymin, ymax = ymax, xmin = xmin, xmax = 
    xmax) +
    geom_point(alpha = 0.7, show.legend = FALSE) +
    scale_colour_manual(values = country_colors) +
    scale_size(range = c(2, 12)) +
    labs(title = 'Year: {frame_time}', x = 'Year', y = 'life expectancy') +
    transition_time(year) +
    ease_aes('linear') +
    anim_save("animated_tiger_timeseries.gif")

产生这个...

这就是你要找的吗？

【讨论】：

@Forge 别担心！