r - 强制尺寸美观以适应给定的中断

Question

我正在创建几个绘图，以便为 gif 创建框架。随着时间的推移，它应该显示出增长点。 (参见图 1 和 2 - 值增加)。使用尺寸美学是有问题的，因为缩放是针对每个图单独完成的。
我尝试使用 scale_size_area() 设置中断来提供绝对值序列，以便在“所有值”上进行缩放，而不仅仅是每个图中存在的值。 (没有成功)。

图 3 显示了应如何缩放点，但应在每个图中实现此缩放。

library(tidyverse)
df1 <- data.frame(x = letters[1:5], y = 1:5, size2 = 21:25) 
ggplot(df1, aes(x, y, size = y))   +
  geom_point() +
scale_size_area(breaks = seq(0,25,1))

ggplot(df1, aes(x, y, size = size2))   +
  geom_point() +
  scale_size_area(breaks = seq(0,25,1))

df2 <- data.frame(x = letters[1:5], y = 1:5, size2 = 21:25) %>% gather(key, value, y:size2)

ggplot(df2, aes(x, value, size = value))   +
  geom_point() +
  scale_size_area(breaks = seq(0,25,1))

^{由reprex package于2019年5月12日创建(v0.2.1)}

Answer 1

将下限和上限传递给 scale_size_area 函数中的 limits 参数:

ggplot(df1, aes(x, y, size = y))   +
  geom_point() +
  labs(
    title = "Y on y-axis",
    size = NULL
  ) +
  scale_size_area(limits = c(0, 25))

ggplot(df1, aes(x, y, size = size2 ))   +
  geom_point() +
  labs(
    title = "size2 on y-axis",
    size = NULL
  ) +
  scale_size_area(limits = c(0, 25))