如何使用R将gganimate图与表（数据框）合并

Question

我正在使用gganimate，并且需要在“移动”图附近添加表格（数据框）。我不在乎表是否是静态的。

在使用ggplot包中的grid.arrange命令来绘制gridExtra图时，我可以做到这一点，但是恐怕我不知道在使用{{1 }}。

Answer 1

使用geom_table中的ggpmisc绝对可以。

代码

g <- ggplot(gapminder, aes(gdpPercap, lifeExp, size = pop, color = continent)) + 
    geom_point() + 
    scale_x_log10() +
    annotate(geom = "table", x = Inf, y = -Inf,
             label = list(mytable), 
             vjust = 0, hjust = 1) +
    transition_time(year) +
    labs(title = "Year: {frame_time}")

animate(g)

数据

library(gapminder)
library(ggplot2)
library(gganimate)
library(ggpmisc)

# Transform to numeric to prevent an integer overflow 
gapminder$pop <- as.numeric(gapminder$pop)    

# Create table
mytable <- gapminder %>%
    filter(year == 2007) %>%
    group_by(continent = continent) %>%
    summarise(pop_mn_2007 = round(sum(pop)/1000000, 1),
              avg_lifeExp_2007 = round(mean(lifeExp), 2))