R 如何设置此线图的动画

我有一个折线图，我用ggplot创建了这个p图

用于创建绘图的代码如下所示

p <- ggplot(teleco,aes(x = tenure, color = Churn))+ geom_freqpoly(size=2)+theme_minimal()

当我运行这段代码时，它是这样运行的。什么是最好的方法，让它动画，只是有线填写，因为他们是在静态绘图

我的猜测（很难说a是肯定的）是不必要的行为来自于使用

geom_polygon

您可以尝试手动分组数据，然后使用

geom\u line

。差不多

teleco %>%
  group_by(tenure, Churn) %>%
  summarise(count = n(), .groups = 'drop') %>%
  ggplot(aes(tenure, count, col = Churn)) +
    geom_line(size = 2)

我的猜测（很难用a来确定）是不必要的行为来自于使用

geom_polygon

您可以尝试手动分组数据，然后使用

geom\u line

。差不多

teleco %>%
  group_by(tenure, Churn) %>%
  summarise(count = n(), .groups = 'drop') %>%
  ggplot(aes(tenure, count, col = Churn)) +
    geom_line(size = 2)

---

这是一个显示横穿x轴的绘图线条的工作、可复制的示例。我建议尝试

geom\u line

而不是

geom\u freqpoly

来让您的示例正常工作

library(datasets)
library(dplyr)
library(ggplot2)
library(gganimate)


aq <- datasets::airquality

ggplot(data = aq, aes(Day, Ozone, col = as.factor(Month))) +
  geom_line(size = 2) +
  transition_reveal(Day)

库（数据集）
图书馆（dplyr）
图书馆（GG2）
库（gganimate）
aq这是一个工作的、可复制的例子，展示了一个横穿x轴的曲线图。我建议尝试
geom\u line
而不是
geom\u freqpoly
来让您的示例正常工作

library(datasets)
library(dplyr)
library(ggplot2)
library(gganimate)


aq <- datasets::airquality

ggplot(data = aq, aes(Day, Ozone, col = as.factor(Month))) +
  geom_line(size = 2) +
  transition_reveal(Day)

库（数据集）
图书馆（dplyr）
图书馆（GG2）
库（gganimate）
aq查看用于创建绘图的代码会很有帮助，因为这似乎是问题的根源。更好的是，一个最小的可复制答案（）将使帮助更容易。感谢Tim，我现在添加了用于创建绘图的代码。查看用于创建绘图的代码会很有帮助，因为这似乎是问题的根源。更好的是，一个最小的可复制答案（）将使帮助更容易。谢谢Tim，我已经添加了用于创建绘图的代码。非常感谢。这为我解决了问题。非常感谢，非常感谢。这为我解决了问题。非常感谢蒂姆