使用长格式数据和plot_usmap时出现gganimate错误

library(tidyr)

# 示例数据
data <- data.frame(
  state = c("CA", "TX", "NY"),
  year = c(2020, 2020, 2020),
  value = c(100, 200, 300)
)

# 转换为长格式
long_data <- pivot_longer(data, cols = -c(state, year), names_to = "variable", values_to = "value")

install.packages("gganimate")
library(gganimate)

library(ggplot2)
library(plot_usmap)

# 示例数据
data <- data.frame(
  state = c("CA", "TX", "NY"),
  year = c(2020, 2020, 2020),
  value = c(100, 200, 300)
)

# 转换为长格式
long_data <- pivot_longer(data, cols = -c(state, year), names_to = "variable", values_to = "value")

# 绘制动画
p <- ggplot(long_data, aes(fill = value)) +
  geom_usmap(aes(geometry = geometry), data = us_map()) +
  facet_wrap(~ year) +
  transition_time(year) +
  labs(title = "Year: {frame_time}")

animate(p)