在geom_point（而非标签）中增加气泡大小。使用ggplot2 + gganimate + ggrepel

Question

我有一个使用gganimate和geom_point的非常简单的动画，它显示了关于两个类别的每年增长。

我的问题是我希望气泡大小随时间增加，但标签保持相同大小。

可复制的示例代码：

Where

似乎气泡大小没有变化，此外，标签很大（也没有大小变化），但是主要问题是将标签固定为通常的大小，并沿动画保持这种状态。

所需的结果应该是这样的：

Answer 1

将size = cumtotal, colour = type放在geom_point中。不知道distinctColorPalette()的来源。

library(ggrepel)
library(gganimate)
ggplot(df, aes(cumtotal, cumamount, group = type, label =  type)) +
  geom_point(aes(colour = type, size = cumtotal), alpha = 0.75, show.legend = FALSE) +
  # scale_colour_manual(values = palette) +
  scale_size_continuous(range = c(2, 20)) + # added this because I need the bubble to have a minimal size
  scale_y_log10() +
  geom_text_repel(segment.color = "slategrey",
                  nudge_y = 0.05,
                  angle        = 0,
                  vjust        = -5,
                  segment.size = 0.2) +
  labs(title = 'Year: {frame_time}', x = 'Total', y = 'Freq') +
  transition_time(year) +
  ease_aes('linear')